Ошибка: Сannot make a visible window modal

Form2->Close();
 Form2->Hide();
 Form1->Button25->Click();

Form3->Close();
 Form3->Hide();
 Form1->Button25->Click();

Form2->ShowModal();

if (Form2->Visible==false)
    {
        Form3->ShowModal();
    }
if (Form3->Visible==false)
    {
        Form2->ShowModal();
    }

TForm *ActiveFrm = 0;
 
void __fastcall TForm1::ChangeModal() // не забудь добавить прототип в класс формы
{
    do
    {
        if (ActiveFrm->ShowModal() == mrOk)
        {
            ActiveFrm->Close();
            ActiveFrm->Hide();
        }
        ActiveFrm = (ActiveFrm->ClassName() == "TForm2" ? (TForm*)Form3 :
            (TForm*)Form2);
    }
    while (1); // тут, разумеется, можно поставить другое условие на выход из цикла.
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ActiveFrm = Form2;
    ChangeModal();
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    ActiveFrm = Form3;
    ChangeModal();
}

void __fastcall TForm2::Button1Click(TObject *Sender)
{
    this->ModalResult = mrOk;
}

    do
    {
        // ...
    }
    while (!flag); // как только flag стал true - ты тут же выйдешь из цикла, не надо больше ничего делать.