맨땅에 해딩한 결과 입니다..
맞는지는 모르겠지만..
아무것도 필요없고..


Find 일경우..
void __fastcall Tword::FindBtnClick(TObject *Sender)
{
    RichEdit1->FindDialog(RichEdit1->SelText);
}

NextFind 일경우
void __fastcall Tword::NextFindClick(TObject *Sender)
{
    RichEdit1->FindNext();
    RichEdit1->SetFocus();

}

ReplaceText 일경우
void __fastcall Tword::ReplaceBtnClick(TObject *Sender)
{
    RichEdit1->ReplaceDialog(RichEdit1->SelText, "");
}

나머지..
void __fastcall Tword::RichEdit1CloseFindDialog(TObject *Sender,
      TFindDialog *Dialog)
{
      RichEdit1->SetFocus();
}

void __fastcall Tword::RichEdit1TextNotFound(TObject *Sender,
      const AnsiString FindText)
{
    Application->MessageBox("해당하는 문자가 없습니다","문자열찾기",MB_OK+MB_ICONWARNING);
    
}