TStringList "Listindex überschreitet das Maximum"

[Zioone]

hallo, ich habe da ein Problem
und zwar habe ich in meinem Programm eine Suche.

Delphi-Quellcode:

for ii := 0 to Foriginal.Count-1 do
      begin
        ss := Foriginal.Strings[ii];

             if cb_negate.Checked=false then 
             begin
               if Pos( LowerCase( Edit1.Text ), LowerCase( ss ) ) > 0 then
               begin
                 if Pos( LowerCase( Edit2.Text ), LowerCase( ss ) ) > 0 then
                 begin
                 i3:=i3+1;
                   search_add(ss,ii);
                 end;

                 if Edit2.Text = '' then
                 begin
                   i3:=i3+1;
                   search_add(ss,ii);
                 end;
               end;
             end

usw. ist jetzt nicht komplett aber ist auch nicht wichtig bzw das Problem.

ich gehe ja dann in die Prozedur "Search_Add"
dort wird dann das ergebnis in das Memo feld geschrieben.
So nun möchte ich aber das Suchergebnis zwischenspeichern in einen weiteren TSTRINGLIST

Delphi-Quellcode:

procedure TfrmLogView.search_add(ss: String; ii: Integer);
begin
  mmoLines.Lines.Add( ss );

  FSelect.Strings[i3]:=ss;

end;

aber da bringt er die Fehler meldung "Listindex überschreitet das Maximum"
und ich weiß nicht so recht warum.
i3 ist übirgens gloabal(ich weiß das nicht so gut aber hab auch keine rechte idee dafür um es besser zu machen)

über eine Idee, oder hilfe wäre ich echt danlkbar weil ich keine Idee mehr habe..