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

TForm1 *Form1;
AnsiString poisk;
int k,dlina;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
Memo1->Clear();
Edit1->Clear();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
poisk=Trim(Edit1->Text);
dlina=poisk.Length();
k=AnsiPos(poisk,Memo1->Text);
 
if (k>0){
Memo1->HideSelection=false;
Memo1->SelStart=k-1;
 
Memo1->SelLength=dlina;
MessageDlgPos( "<<"+poisk+">> íàéäåíî",
mtInformation, TMsgDlgButtons()<<mbOK,0,95,175);
        }
else
                {
MessageDlgPos("<<"+poisk+">> íå íàéäåíî",mtInformation,
TMsgDlgButtons()<<mbOK,0,95,175);
Memo1->HideSelection=true;
                }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
OpenDialog1->Execute();
Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
}
//---------------------------------------------------------------------------

int k=0;
AnsiString text=RichEdit1->Text;
int int_pos;
AnsiString word = Edit1->Text;
 
 if(text.Pos(word))  {
    int_pos = text.Pos(word);
    RichEdit1->SelStart=int_pos-1;
    RichEdit1->SelLength=word.Length();
    RichEdit1->SelAttributes->Color=clBlue;
    text[int_pos]='0';
                     }
 else   {
 RichEdit1->SelAttributes->Color=clWindowText;
 
        }

Richedit::CHARFORMAT2 format;
 
    memset( &format, 0x00, sizeof(format) );
    format.cbSize = sizeof(Richedit::CHARFORMAT2);
    format.dwMask = CFM_BACKCOLOR;
    format.crBackColor = RGB(128, 128, 128);
 
    SendMessage(RichEdit1->Handle, EM_SETCHARFORMAT, (WPARAM)SCF_SELECTION,
                (LPARAM)&format);

SendMessage(RichEdit1->Handle,EM_SETBKGNDCOLOR,TRUE,0);   // использовать системный цвет(фон окна)
SendMessage(RichEdit1->Handle,EM_SETBKGNDCOLOR,FALSE,clRed); // использовать красный цвет

Чтобы ыыделить и подсветить текст:
 
void backgr_text_color(TColor color, int pos, int len, TRichEdit *REdit)
{
   Richedit::CHARFORMAT2 format;
 
   REdit->SelStart=pos;
   REdit->SelLength=len;
 
   format.cbSize=sizeof(format);
   format.dwMask=CFM_BACKCOLOR;
   format.crBackColor=color;
 
   SendMessage(REdit->Handle,EM_SETCHARFORMAT,(WPARAM)SCF_SELECTION,(LPARAM)&format);
}
 
Чтобы снять выделение и подстветку - овторно послать то же сообщение контролу.