[Osorio]

Deberia funcionarte.

Hice esta prueba en XE3 y responde al evento onclick del listbox.

Código Delphi [-]

procedure TForm1.ListBox1Click(Sender: TObject);
begin
    label1.Text:= listbox1.items[listbox1.itemindex];
end;