Durch Zuweisung. Du erzeugst doch zur Laufzeit eine ListBox, oder? Dort gibst du der Komponente bestimmte Eigenschaften, wie Parent, Width oder Height. Genauso kannst du auch eine Prozedur zuweisen. Z. B. MyListBox.OnClick
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure MyListBoxClick(Sender: TObject);
...
procedure TForm1.MyListBoxClick(Sender: TObject);
begin
ShowMessage('Eigene OnClick Prozedur nach Klick auf Button1');
end;
procedure TForm1.ListBox1Click(Sender: TObject);
begin
ShowMessage('Original OnClick Prozedur');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ListBox1.OnClick := MyListBoxClick;
end;
Edit:
In deinem Fall natürlich OnDrawItem