Button Ulangi Kriptograpfi Caesar Wheels Menggunakan Delphi

procedure TFUtama.BitBtn2Click(Sender: TObject);
begin
  sayabersih;
  Edit1.ReadOnly:=False;
  BitBtn2.Hide;
  BitBtn1.Show;
end;