Automatizar funcion del ReplaceDialog

[lmpadron]

Hola

sucede que tengo que realizar reemplazos en un campo de una tabla de una base de datos, el problema es que esta BD ya tiene muchos datos e ir manualmente uno por uno seria acabar en 2012. Me surgio la siquiente idea usar un while hasta el EoF e ir realizando los cambios, ahora bien siempre he usado el ReplaceDialog y no se como hacerlo yo directamente y el problema esta en que cada ves que se pase de un registro a otro tedria que ejecutar el ReplaceDialog, si alguien conoce una forma de hacerlo sin tener que ejecutarlo estare muy agradecido

[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();

         }
}