Automatizar funcion del ReplaceDialog

[lmpadron]

Hola, s eme ocurrio esta solucion, pero aun asi sigue dejando algunos sin reemplazar, alguna idea ???????

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
       ProgressBar1->Show();
       ProgressBar1->Min = 0;
       ProgressBar1->Max = ADOQuery1->RecordCount;
       ProgressBar1->Step = 1;

        while (!ADOQuery1->Eof)
        {
            int SelPos = DBRichEdit1->Text.Pos(Edit1->Text);
            if (SelPos > 0)
            {
                DBRichEdit1->SelStart = SelPos - 1;
                DBRichEdit1->SelLength = Edit2->Text.Length();
                DBRichEdit1->SelText = Edit2->Text;
            }

            ProgressBar1->Show();
            ProgressBar1->StepIt();

            if (ProgressBar1->Position == ProgressBar1->Max)
            {
                ProgressBar1->Position = 0;
                ProgressBar1->Hide();
            }

            ADOQuery1->Next();

         }
}