Evitar formularios duplicados

[Angel.Matilla]

Gracias por las respuestas. Las propiedades TScreen->FormCount y TScreen->Forms no las conocía y creo que me va a ser muy útiles. Los formularios los voy creando cuando se pulsa la opción donde hacen falta.

void __fastcall TfMenu::GesAfiClick(TObject *Sender)
{
Application->CreateForm(__classid(TfPersona), &fPersona);
fPersona->Show();
}

[Angel.Matilla]

Efectivamente me va valido. El código ha quedado así:

void __fastcall TfMenu::GesAfiClick(TObject *Sender)
{
     bool lExiste = false;

     for (nItem = 0; nItem < Screen->FormCount; nItem ++)
     {
          if (Screen->Forms[nItem]->Name == "fPersona")
          {
               lExiste = true;
               break;
          }
     }

     if (!lExiste)
          Application->CreateForm(__classid(TfPersona), &fPersona);
     fPersona->Show();
}

Gracias a los dos por las sugerencias.