Contoh Function 2

//Function 2

{

Kali ini kita akan Membuat Function yang berguna mengisi memo sesuai isi listbox ...


Buat dulu Listbox , dan isi ..
Dan buat 1 Memo ...

}

//Function
Function Input(Index : integer ) : string ;
Begin
if index <> -1 then
input := form1.listbox1.items[index] ;
end;


// Code pada listbox , on click ...

procedure TForm1.ListBox1Click(Sender: TObject);
begin
memo1.lines.add(input (listbox1.itemindex) ) ;
end;