void __fastcall TOptionMainForm::TestConnectionButtonClick(TObject *Sender)
{
    if(DataForm->Connection->Connected)
    {
        DataForm->Connection->Close();
        PerformNotification(NoticeLabel,SERVER_DISCONNECTION);
        FormActivate(this);
    }
    DataForm->FillConnectonParams();
    ProcessAnimation *pa = new ProcessAnimation(false);   //  Нить создали и пытаемся подключиться
    try{
        DataForm->Connection->Open();
    }
    catch(...)
    {
        PerformNotification(NoticeLabel,CONNECTION_HAS_FAULT);
        pa->Terminate();
    }


}

__fastcall ProcessAnimation::ProcessAnimation(bool CreateSuspended)
    : TThread(CreateSuspended)
{
    this->Priority = tpLower;
    FreeOnTerminate = true;

}
//---------------------------------------------------------------------------
void __fastcall ProcessAnimation::Execute()
{
    //---- Place thread code here ----
    Connected = DataForm->Connection->Connected;
    Synchronize(&ProcessStart);
    while(!Connected);
    {
         Synchronize(&ProcessCheck);
         Sleep(TIME_OUT);
    }
    Synchronize(&ProcessEnd);
}
//---------------------------------------------------------------------------

void __fastcall ProcessAnimation::ProcessEnd(void)
{
    pf->Close();
    Options::AddNotice(SERVER_FOUNDED);
    delete pf;
}

void __fastcall ProcessAnimation::ProcessStart(void)
{
    pf = new TProcessForm();
    pf->ShowModal();
}

void __fastcall ProcessAnimation::ProcessCheck(void)
{
    Connected = DataForm->Connection->Connected;
}