ListBox Problem

[Blackheart]

Delphi-Quellcode:

procedure TForm1.Aufrufen_Click(Sender: TObject);
var
 i:Integer;
begin
  i:=ListBox1.ItemIndex;
  Edit1.Text:=ListBox1.Items.Strings[i];
end;