Moin!
Der o.g. Code ist MultiSelect tauglich und zeigt dabei nur das letzte selektierte Element in dem Label an. Wenn du kein MultiSelect verwendest, dann reicht es auch ItemIndex zu nutzen....
Delphi-Quellcode:
Procedure TForm1.ListBox1Click(Sender: TObject);
Begin
If ( ListBox1.ItemIndex > -1 ) Then
Label1.Caption := ListBox1.Items[ ListBox1.ItemIndex ];
End;
MfG
Muetze1