Listbox leere Einräge löschen.

[delphi_newbie_123]

Hallo,
ich hab wieder mal ein Problem mit den Listboxen.
Und zwar will cih in einer Schleife alle leeren Einträge löschen.
Ich versuch es mit

Delphi-Quellcode:

   for cl:=0 to Listbox4.Items.Count-1 do
   begin

   if Listbox4.Items[cl] = ''
     then
       begin
        Listbox4.items.delete(cl);
       end;

   end;

doch das klappt nicht.
was mache ich falsch ?