Поиск слова в RichEdit

void __fastcall TForm5::BitBtn1Click(TObject *Sender)
{
if (Pos(Edit1->Text,RichEdit1->Text)!=0)
        {
         RichEdit1->SelStart = RichEdit1->Text.Trim().Pos(Edit1->Text)-1;
         RichEdit1->SelLength=Edit1->Text.Length()+1;
        }
  else ShowMessage("Не найдено!");
}

void __fastcall TForm3::Button1Click(TObject *Sender)
{
TStringList *list = new TStringList;
list->Delimiter = ' ';
list->DelimitedText = RichEdit1->Text;
 
for (int i = 0; i < list->Count; i++)
{
    if (list->Strings[i].LowerCase() == Edit1->Text.LowerCase()) {
       Memo1->Lines->Add(list->Strings[i]);
    }
}
}

TEdit *Edit1;
TRichEdit *RichEdit1;
TButton *Button1;
TMemo *Memo1;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  AnsiString word = "int";
  int int_pos;
  AnsiString text=RichEdit->Text;
  while(text.Pos(word)) {
    int_pos = text.Pos(word);
    RichEdit->SelStart=int_pos-1;
    RichEdit->SelLength=word.Length();
    RichEdit->SelAttributes->Color=clRed;
    text[int_pos]='0';
 }
}

AnsiString word = Edit1->Text;

RichEdit1->SelAttributes->Color=clRed;

AnsiString text=RichEdit->Text;
AnsiString word = "int";
  int int_pos;
  AnsiString word = Edit1->Text;
 //
  while(text.Pos(word)) {
    int_pos = text.Pos(word);
    RichEdit->SelStart=int_pos-1;
    RichEdit->SelLength=word.Length();
    RichEdit->SelAttributes->Color=clRed;
    text[int_pos]='0';
 }

// AnsiString word = "int";

RichEdit1->SelStart = -1;
RichEdit1->SelAttributes->Assign(RichEdit1->DefAttributes);

  int int_pos;
  AnsiString word = Edit1->Text;
 //
  while(text.Pos(word)) {
    int_pos = text.Pos(word);
    RichEdit->SelStart=int_pos-1;
    RichEdit->SelLength=word.Length();
    RichEdit->SelAttributes->Color=clRed;
    text[int_pos]='0';
    RichEdit->SelStart = -1;
RichEdit->SelAttributes->Assign(RichEdit->DefAttributes);
 
 
 }