Подсветка синтаксиса

//---------------------------------------------------------------------------
bool __fastcall Select(TRichEdit* RE,String Word, TColor Color=clBlack, TFontStyle FStyle=fsBold)
{
    int FoundAt, StartPos, ToEnd;
 
    if(RE->SelLength)
         StartPos = RE->SelStart + RE->SelLength;
    else
         StartPos = 0;
 
    ToEnd = RE->Text.Length() - StartPos;
    FoundAt = RE->FindText(Word, StartPos, ToEnd,TSearchTypes()<<stWholeWord);
 
    if (FoundAt != -1)
    {
        RE->SetFocus();
        RE->SelStart = FoundAt;
        RE->SelLength = Word.Length();
 
        RE->SelAttributes->Style=RE->SelAttributes->Style<< FStyle;
        RE->SelAttributes->Color= Color;
 
        return true;
    }
return false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
while( Select(RichEdit1,"for",clBlue) );
RichEdit1->SelLength= 0;
 
while( Select(RichEdit1,"if",clRed) );
RichEdit1->SelLength= 0;
 
 
while( Select(RichEdit1,"__fastcall",clBlack) );
RichEdit1->SelLength= 0;
 
while( Select(RichEdit1,"void",clBlack) );
RichEdit1->SelLength= 0;
}
//---------------------------------------------------------------------------