RichEdit suchen und markieren

Suche in einem Richedit mit FindText nach einer Zeichenkette die öfters vorkommt. Ist die Datei 500 k gross dauert dies ca. eine halbe Minute.
Hat vielleicht jemand eine Idee wie man das beschleunigen könnte?

Bj

poste mal bitte deinen code ja?

while((Fundstelle = RichEdit->FindText("xy", Fundstelle, textlen-   
           Fundstelle, options)) != -1) {[cpp]
    if(Terminated)
      return;
    RichEdit->SelStart = Fundstelle;
    RichEdit->SelLength = 3;
    RichEdit->SelAttributes->Color = clRed;
    RichEdit->SelAttributes->Style<<fsBold;
    Fundstelle += 3;
    ErrCnt++;

    }

gibts wirklich keine Ideen??