Procedure Saya Bersih Kriptograpfi Caesar Wheels Menggunakan

procedure TFUtama.sayabersih;
begin
  Edit1.Clear;
  Edit6.Clear;
  Edit7.Clear;
  Edit8.Clear;
  Edit9.Clear;
  Memo1.Clear;
  Memo2.Clear;
  BitBtn3.Enabled:=False;
  Edit1.SetFocus;
end;