Redundanzprüfung

[danku]

Im Bezug auf den Thread:

Letztes Item einer Lisbox löschen:

Delphi-Quellcode:

//Redundanz!
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');
  edfilter.SetFocus;
  lbfilter.selected[i-1] := True;
  lbfilter.DeleteSelected;
  //Zeile markieren
  end;

  lbfilter.Selected[i];

ich setz die daten von einem Tedit in eine Tlistbox.
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?