Membuat Buton Berfungsi Ganda

Sobat" ilmu alakadarnya kali ini saya tambahin postingan nih, postingan ini trik membuat satu button mempunyai dua fungsi...ok langsung aja buka delphinya dan sediakan satu button yang bisa di ambil di  pallet standard dan caption diganti dengan Pesan 1.
setelah itu double klik pada button tersebut dan isikan rumus sebagai berikut
if button1.caption='Pesan 1' then
begin
button1.caption:='Pesan 2';
showmessage('Anda barusaja menekan tombol yang berfungsi untuk menampilkan pesan 1');
end
else

begin

button1.caption:='Pesan 1';
showmessage('Anda barusaja menekan tombol yang berfungsi untuk menampilkan pesan 2');
end;


sekian dulu tips dari saya semoga bermanfaat dan silahkan di praktekan semoga berhasil....Salam Ilmu