1. Procedure
Jika pada proses program dipanggil nama procedure, maka procedure yang dipanggil akan melakukan seluruh pernyataan yang ada didalamnya. Pendeklarasian procedure adalah sebagai berikut:

procedure nama (variable_sebagai_keluaran : tipe_dari_variable; parameter_nilai_ sebagai_masukan : tipe_parameter);

Contoh program:
Pada form terdiri dari 1 TButton dengan nama Button1 dan 1 TEdit dengan nama Edit1.

var
  kali,c : integer;
  d : string;

procedure hasil(var kali:integer;a:integer);
begin
  kali := a * 76; //variable keluaran bernama kali dan
                  //masukan procedure adalah a
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  c := strtoint(edit1.text );
  d := edit1.Text +'* 76 = ';
  hasil(c,c); // memanggil procedure hasil
  showmessage(d+inttostr(c));
end;

Hasil ketika di-run: 
Jika Edit1 penulis isi dengan bilangan 3 kemudian penulis tekan button1 maka akan muncul message box dengan tulisan sebagai berikut:

3*76=288

Yang perlu diperhatikan adalah pengertian dari perbedaan variable dan nilai. Lihat pada bagian hasil(c,c) ini sama artinya dengan hasil(var kali:integer;a:integer)

c kedua adalah nilai c yaitu dari edit1.text yang akan diubah dengan nama a kemudian diolah pada procedure hasil. Hasil akhir dari procedure hasil adalah kali yang kemudian diubah namanya menjadi c yang nantinya akan dipakai oleh showmessage dibawahnya. c pertama merupakan variable (var) yang nilainya dapat berubah mengikuti masukan dari a dan c kedua merupakan parameter nilai yang dibutuhkan oleh procedure hasil.

Jika var kali:integer diganti dengan kali:integer. Maka keluaran akan tertulis 3*76=3. Hal itu disebabkan karena kali bukan variable tapi sebagai parameter nilai masukan sehingga yang terdeklarasi pada waktu pemanggilan procedure hasil adalah nilai c yang tertulis di Edit1.text.

Tidak ada variable yang menjadi keluaran dari procedure.

2. Function
Pada function ada perbedaan sedikit dengan procedure. Perbedaan terletak pada penulisan judul function yang hanya menuliskan parameter-parameter nilai masukan, sementara itu untuk variable keluaran merupakan nama function itu sendiri. Sehingga function hanya bisa mengeluarkan 1 (satu) hasil akhir sedangkan pada procedure kita dapat mengeluarkan lebih dari 1 (satu) hasil atau variable keluaran. Berikut ini adalah sintaks dari sebuah function.

function nama (parameter_nilai_sebagai_masukan: tipe_parameter): tipe_variable_fungsi_sebagai_keluaran

Contoh program:
Pada form terdiri dari 1 TButton dengan nama Button1 dan 1 TEdit dengan nama Edit1.

var
  c : integer;
  d : string;

function hasil(a:integer):integer;
begin
  hasil:=a*76; // nama variable keluaran sama
               // dengan nama function
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  c:=strtoint(edit1.text );
  d:=edit1.Text +'* 76 = ';
  // memanggil function hasil
  showmessage(d+inttostr(hasil(c))); 
end;

Ketika program di-run:
Jika Edit1 diisi dengan angka 3 dan pada saat button1 ditekan maka akan muncul tulisan:

3*76=288

Function hanya menerima masukan parameter-parameter nilai kemudian nanti function akan memproses dan memberikan hasil akhir dari proses dengan memanggil nama function.

Demikanlah sedikit penjelasan mengenai procedure dan function, semoga bisa bermanfaat bagi kita semua. Jika ada saran atau komentar bisa dikirimkan ke bluesnow_ratih@yahoo.com. Untuk membaca tulisan menarik lainnya silakan ke www.sony-ak.com.

Terimakasih.