Contoh Procedure 1

//Contoh Procedure

{
kali ini kita akan membuat Procedure sederhana

Menampilkan Pesan Yang ada Pada Edit text
}



// Procedure

Procedure Pesan(Isi : string) ;
begin
showmessage(isi) ;
end;

// Pada Button
Procedure Tform1.button1click(sender:tobject);
Begin
Pesan(edit1.text);
end;


{
Jadi "Procedure Pesan(Isi : string) " Maksunya Variabel Publik pada prrocedure itu adalah
Bertype string ...

Dan pada button Kita mengisinya juga Dengan string .. Pesan(edit1.text) ...

}