DtMdMain->IdMessage1->From->Address="email.ru";
       DtMdMain->IdMessage1->From->Name=RekNameEng[RekNum-1];
       DtMdMain->IdMessage1->Recipients->EMailAddresses=DtMdMain->ADOQtmp->FieldByName("email")->AsString;//
       DtMdMain->IdMessage1->Subject="Base TOO <KEC>";
       TIdAttachmentFile * x;
       x=new TIdAttachmentFile(DtMdMain->IdMessage1->MessageParts,tmp_str3+""+s1);
       try
       {DtMdMain->IdSMTP1->Send(DtMdMain->IdMessage1); }
   catch(exception){}
       DtMdMain->IdMessage1->Clear();
       DtMdMain->ADOQtmp->Next();