[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.