Letztes Item einer Lisbox löschen

[danku]

hab da noch eine weitere Frage:

ich setz die daten von einem Tedit in eine Tlistbox:

Delphi-Quellcode:

//Redundanzprüfung!
for i:=lbfilter.items.Count-1 downto 1
  do begin
  if lbfilter.Items.Strings[i] = lbfilter.Items.Strings[i-1]
  then begin
  showmessage('Redundanz Problem');
  lbfilter.selected[i-1] := True;
  lbfilter.DeleteSelected;
  //Zeile markieren
  end;

die prüfung funktioniert einwandfrei, bis aber eine zahl in das Tedit geschrieben wird,
die in der tlistbox an letzter stelle steht. da gibts einen crash.
wie kann ich den umgehen zumal ja der rest auch geht?