Suche effizienter machen

[Zioone]

Hallo,
mein Programm soll für voreingestellte Schlüsselwörter, wenn etwas gesucht oder die Datei geöffnet wurde, farbig hervorheben.

Das funktioniert auch.
Mein Problem ist nur, wenn ich sehr große Dateien habe ala Zeilen >2000, dann dauert das eine halbe Ewigkeit.

Ich wollte nur mal wissen ob wer eine Idee hat, dieses Suchen/markieren effizienter zu machen oder ob ich mit der Geschwindigkeit leben muss.
Hier der Code:

Delphi-Quellcode:

i2:=0;

    for ii := 0 to FSelectCount-1 do
    begin
      if FSelect.Strings[ii] <>'' then
      begin
        if (text<>'') OR (text2<>'') OR (text3<>'') then
        begin
          if (Pos( LowerCase(text), LowerCase( FSelect.Strings[ii] ) ))  > 0 then
          begin
            i:=Pos( LowerCase(text), LowerCase( FSelect.Strings[ii] ) );
            mmoLines.SelStart := i+i2-1;
            mmoLines.SelLength := Length(text);
            mmoLines.SelAttributes.Color := c;
            mmoLInes.SelAttributes.Style := [fsBold];
            mmoLines.SelLength := 0;
          end;
          if Pos( LowerCase(text2), LowerCase( FSelect.Strings[ii] ) )  > 0 then
          begin
            i:=Pos( LowerCase(text2), LowerCase( FSelect.Strings[ii] ) );
            mmoLines.SelStart := i+i2-1;
            mmoLines.SelLength := Length(text2);
            mmoLines.SelAttributes.Color := c2;
            mmoLInes.SelAttributes.Style := [fsBold];
            mmoLines.SelLength := 0;
          end;
          if Pos( LowerCase(text3), LowerCase( FSelect.Strings[ii] ) )  > 0 then
          begin
            i:=Pos( LowerCase(text3), LowerCase( FSelect.Strings[ii] ) );
            mmoLines.SelStart := i+i2-1;
            mmoLines.SelLength := Length(text3);
            mmoLines.SelAttributes.Color := c3;
            mmoLInes.SelAttributes.Style := [fsBold];
            mmoLines.SelLength := 0;
          end;
        end;
      end;
        i2 := i2+Length(FSelect.Strings[ii])+2;
    end;

wobei FSelect eine Stringlist ist
und text und color und c aus einer ini datei gelesen werden

über Ideen wäre ich dankbar