Markiertes Listbox Item nach Edit

[lblbw]

Habe diesen Code genommen, aber wenn ich nun auf den button klicke, passiert gar nichts.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to Listbox1.Items.Count - 1 do
  begin
    if Listbox1.Selected[i] then
      Edit2.Text := Listbox1.Items[Listbox1.ItemIndex];
  end;
end;