TIdMessage * msg=new TIdMessage(sm);
     msg->Subject="From Urka!";
     msg->Recipients->EMailAddresses="super@hotbox.ru";
     msg->From->Text="super@hotbox.ru";
     msg->Body->Add("Hello I am Berhold");
     TSearchRec  Rec;
     sm->AuthenticationType=atLogin;
     sm->Host="smtp.pochta.ru";
      sm->Port= 25 ;
      sm->UserId="super@hotbox.ru";
      sm->Password="123456";
       sm->Connect();
       int File= 1 ;
     ChDir(ExtractFilePath(Application->ExeName));
     if(FindFirst("*.*",faAnyFile,Rec)== 0 )
     {
       if(UpperCase(ExtractFileExt(Rec.Name))==".BMP" || UpperCase(ExtractFileExt(Rec.Name))==".TXT" || UpperCase(ExtractFileExt(Rec.Name))==".JPG" )
       {
           TIdAttachment * x;
           x=new TIdAttachment(msg->MessageParts,Rec.Name);
           msg->Subject=msg->Subject+" "+AnsiString(File);
           sm->Send(msg);
           delete x;
       }
       while(FindNext(Rec)== 0 )
       {
         //ShowMessage(ExtractFileExt(Rec.Name));
         if(UpperCase(ExtractFileExt(Rec.Name))==".BMP" || UpperCase(ExtractFileExt(Rec.Name))==".TXT" || UpperCase(ExtractFileExt(Rec.Name))==".JPG" )
         {

              TIdAttachment * x;
              x=new TIdAttachment(msg->MessageParts,Rec.Name);
              File++;
              msg->Subject=msg->Subject+" "+AnsiString(File);
              sm->Send(msg);
              delete x;
         }
       }

     }
     FindClose(Rec);
     sm->Disconnect();
     delete msg;
    MessageBox(this->Handle,"Отсылка успешно завершена !","Отправка",MB_OK);
    Application->Terminate();