void __fastcall TMessageNews::Timer1Timer(TObject *Sender)
{
 TRegistry *reg = new TRegistry();
 reg->RootKey = HKEY_LOCAL_MACHINE;
 reg->OpenKeyReadOnly("SYSTEM\\CurrentControlSet\\services\\LanmanServer\\Parameters");
 AnsiString opis;
 opis = reg->ReadString("srvcomment");   //имя в описании компа
 //ShowMessage(opis);
 reg->CloseKey();
 delete reg;
 
 DataModuleABS->ADOQueryEmployee->Active = true;
 DataModuleABS->ADOQueryEmployee->Close();
 DataModuleABS->ADOQueryEmployee->SQL->Clear();
 DataModuleABS->ADOQueryEmployee->SQL->Add("Select Код From dbo.Employee Where Фамилия = '"+opis+"'");
 DataModuleABS->ADOQueryEmployee->Open();
 Way = DataModuleABS->ADOQueryEmployee->FieldByName("Код")->AsInteger;
 //Доработать: если Way = 0, выдать сообщение, чтобы пользователь ввел свое имя в описании
 
 DataModuleABS->ADOQueryZakaz->Active = true;
 DataModuleABS->ADOQueryZakaz->Close();
 DataModuleABS->ADOQueryZakaz->SQL->Clear();
 DataModuleABS->ADOQueryZakaz->SQL->Add("Select Заказ FROM dbo.ТипНовости INNER JOIN (dbo.EmployeeNews INNER JOIN dbo.ВременТабл ON dbo.EmployeeNews.ТипНовости = dbo.ВременТабл.ТипНовости) ON dbo.ТипНовости.Код = dbo.ВременТабл.ТипНовости WHERE dbo.ВременТабл.idUser="+IntToStr(Way)+" AND dbo.ВременТабл.ОтменаПоказа = 1 AND dbo.EmployeeNews.Сотрудник="+IntToStr(Way));
 DataModuleABS->ADOQueryZakaz->Open();
 nomerZak = DataModuleABS->ADOQueryZakaz->FieldByName("Заказ")->AsInteger ;
 
 if ( nomerZak == 0)
   {
 Timer1->Interval = 25000;
   }
 else
   {
  DataModuleABS->ADOQueryNews->Active = true;
  DataModuleABS->ADOQueryNews->Close();
  DataModuleABS->ADOQueryNews->SQL->Clear();
  DataModuleABS->ADOQueryNews->SQL->Add("Select Сообщение From dbo.ВременТабл Where ОтменаПоказа = 1 AND idUser="+IntToStr(Way));
  DataModuleABS->ADOQueryNews->Open();
  strNews = DataModuleABS->ADOQueryNews->FieldByName("Сообщение")->AsString;
 
 FormMessag->Timer1->Interval = 1000;
 FormMessag->Timer1->Enabled = true;
 Timer1->Interval = 15000;
 FormMessag->Show();
   }
}

 void __fastcall TFormMessag::Timer3Timer(TObject *Sender) 
//Какой то код
 
 DataModuleABS->ADOQueryNewsUpDate->Active = true;
 DataModuleABS->ADOQueryNewsUpDate->Close();
 DataModuleABS->ADOQueryNewsUpDate->SQL->Clear();
 DataModuleABS->ADOQueryNewsUpDate->SQL->Add("Update dbo.ВременТабл Set ОтменаПоказа = 0 Where Заказ ="+IntToStr(nomerZak)); //ОтменаПоказа <> 0 AND idUser="+IntToStr(Way));
 DataModuleABS->ADOQueryNewsUpDate->ExecSQL();
  //Close();
}