edit.text ein item einer listbox zuweisen

[guude4]

Guten Tag

Ich möchte gerne dem Text eines Editfeldes den Wert oder Namen eines Item einer Listbox zuweisen.
Theoretisch würde dass dan so aussehen:

Code:

Edit1.Text := for i := 0 to ListBox1.Items.Count -1 do
  begin
    if ListBox1.Selected[i] then
      Label1.Caption := ListBox1.Items.Strings[i];
  end;

Das kann natürlich nicht funktionieren, aber wie es fuzen könnte weiß ich leider auch nicht.

Vielen Dank für eure Hilfe
Chris