Eintrag in einer Listbox löschen

[Sharky]

versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if (ListBox1.ItemIndex <> -1) then
  begin
    ListBox1.Items.Delete(ListBox1.ItemIndex);
  end;
end;

Bist Du sicher das der Fehler beim löschen kommt und nicht an einer anderen Stelle?