Items aus ListBox löschen!

[mo_greene]

Hallo,

ich würde gerne alle leeren Items aus meiner ListBox löschen, jedoch kann es sein, dass diese zu der Zeit, wo die Prozedur aufgerufen wird, total leer ist.
Folgendes habe ich mir überlegt:

Delphi-Quellcode:

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

Leider bekomme ich eine Meldung: Exception der Klasse EStringListError mit der Meldung 'Listenindex überschreitet das Maximum(16)'.

Woran kann das liegen?

Danke