Efectivamente me va valido. El código ha quedado así:
Código:
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.