Items aus ListBox löschen!

[mo_greene]

Ich habe es jetzt so gemacht

Delphi-Quellcode:

  if ListBox.Count >= 1 then
  begin
    for i := ListBox.Count downto 0 do
    begin
      if ListBox.Items.Strings[i] = '' then
      begin
        ListBox.Items.Delete(i);
      end;
    end;
  end;

Leider bekomme ich immernoch die gleiche Fehlermeldung