bool __fastcall TForm1::OpenForm(TForm *WForm)
{
    int i;
    bool FormExist;
    if (WForm == NULL) return false;
    FormExist=false;
    for(i=0;iFormCount;i  )
    {
        if(Screen->Forms[i]->ClassType()==WForm->ClassType())
        {
            FormExist=true;
            break;
        }
    }
    if (FormExist == false) return false;
    if (WForm->WindowState == wsMinimized)
        ShowWindow(WForm->Handle,SW_SHOWNORMAL);
    else
        ShowWindow(WForm->Handle,SW_SHOWNA);
    if (!WForm->Visible) WForm->Visible=true;
    WForm->BringToFront();
    WForm->SetFocus();
    return true;
}