Buat aplikasi baru dan design seperti tampilan dibawah ini :
komponen yang digunakan TButton dan TEdit, property yang diubah hanya pada bagian TButton ganti Caption menjadi ganti. Klik dua kali pada TButton (tombol ganti) lalu tambahkan script
Form1.Caption := edit1.Text
jalankan aplikasi diatas dengan menekan tombol F9
screenshoot :
