TForm* TfmMain::FormExist(AnsiString szCaption)
{
    for(int i=0; i<this->MDIChildCount; i++)
    {
        TForm *pForm = this->MDIChildren[i];
        if(pForm->Caption == szCaption)
            return pForm;   // 已存在窗体,返回该窗体
    }
    return NULL;    // 不存在窗体,返回空值
}

使用方法:

void __fastcall TfmMain::mnuRegClick(TObject *Sender)
{
    // 门诊挂号管理
    TForm *pForm = FormExist("门诊挂号管理");
    // 如果已存在则激活，否则新建一个字窗体
    if(pForm)
        pForm->SetFocus();
    else
        pForm = new TfmReg(Application);
    pForm->Show();
}