. klik pada button1 lalu ketikkan program seperti dibawah ini : procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Clear; Memo1.SetFocus; end; Jika sudah selanjutnya klik button2 lalu ketikkan program seperti dibawah ini : procedure TForm1.Button2Click(Sender: TObject); var F:Textfile; nmfile:string; begin if savedialog1.Execute then begin nmfile:=savedialog1.FileName+'.txt'; assignfile(F,nmfile); rewrite(F); write(F,memo1.text); closefile(F); end; end; Selanjutnya klik pada button3 lalu ketikkan program seperti dibawah ini : procedure TForm1.Button3Click(Sender: TObject); begin application.Terminate end; end. 1.Bikin Seperti ini 2. Lalu seperti ini 3.Seperti ini jadinya