Hallo,
also im Moment verstehe ich nicht ganz was du willst. Ich dachte, dass bei dir das onClick-Event nicht richtig ausgelöst wird, deshalb auch meine Antwort.
Wenn ich den angeklickten Wert in einer Listbox in ein Label übertragen will, dann mache ich das so:
Delphi-Quellcode:
procedure TForm1.ListBox1Click(Sender: TObject);
var i: integer;
begin
for i := 0 to ListBox1.Count - 1 do
if ListBox1.Selected[i] then label1.Caption := Listbox1.Items[i];
end;