Combobox blad

MAm pytanie jak zrobic by usunelo mi wszystkie puste miejsca z combobox.
TZN takie w ktorych NIE MA ani jednej litwerki tylko pustwe pole :-) ale te puste pole da sie wybrac.
Jest to mi niezwykle potrzebne, bo gdy tylko wybierze sie te puste miejsce program "robi blad" i sie zamyka.

var
    i : integer;
begin
    for i := 0 to combobox1.items.count - 1 do begin
        if combobox1.Items[i] = '' then combobox1.Items.Delete(i);
    end;
end;

var
    i : integer;
begin
    for i := 0 to combobox1.items.count - 1 do begin
        if combobox1.Items[i] = '' then combobox1.Items.Delete(i);
    end;
end;

myślę, że bezpieczniej byłoby usunąć jeszcze spacje przed sprawdzeniem warunku:
if trim(combobox1.Items[i]) = '' then combobox1.Items.Delete(i);
bo w przypadku gdy w itemie byłyby spacje nie zostałby on skasowany.

Petla musi isc w dol (downto).
Jesli bedzie szla w gore, to wtedy bedzie sie wykrzaczac.

Powiedzmy ze jest 5 itemow (index 0..4) i 2 jest pusty. Program usunie item 2, zrobia sie 4 itemy (0..3) a petla bedzie chodzic do 4 i jak sprobuje czytac item4 bedzie wiolacja akcesji;)

Pq, święta racja, mój błąd. Wystarczy popatrzeć na mój podpis...