TStringList "Listindex überschreitet das Maximum"

[Zioone]

wieso sollten die wegfallen?

also hab das jetzt so:

Delphi-Quellcode:

if cb_search.Checked=false then
  begin
   for ii := 0 to Foriginal.Count-1 do
   begin
     ss:=FOriginal.Strings[ii];
     Search_in_Items(Forignal,ss,ii);
   end;
  end
  else
  begin
    for ii := 0 to Foriginal.Count-1 do
    begin
      ss:=FSelect.Strings[ii];
      Search_in_Items(FSelect,ss,ii);
    end;
  end;
end;

Search_in_Items ist logischerweise meine suche *gg*
naja jedenfalls bringt er den gleich fehler.
Nur ist mir beim debuggen aufgefallen das er in "ss" nichts reinschreibt o_O?

EDIT: äh Fehler hab ich gefunden, bin ein depp^^'

naja nur zeigt er mir jetzt mehr zeilen an als ich vorher hatte o_O hm. ma schaun was ich da wieder für mist gebaut habe.
schon mal danke =)

EDIT2: T_T nu bekommt er nicht mal mehr die "normale" Suche hin