TIdMessage *IdMsg;
 IdMsg = NULL;

  IdMsg = new TIdMessage(this);
  IdMsg->CharSet =  "Windows-1251 ";
  IdMsg->Subject =  "Subj" ;
  IdMsg->From->Name =  "Иван Иваныч" ; 
  IdMsg->From->Address =  "Ivan@mail.nnov.ru" ; // Например
  IdMsg->Sender->Name =  "Иван Иваныч" ;
  IdMsg->Sender->Address =  "Ivan@mail.nnov.ru" ;
  IdMsg->UseNowForDate = true;
  IdMsg->Recipients->Add();
  IdMsg->Recipients->Items[ 0 ]->Address =  "Klava@mail.nnov.ru" ;

// Текст можно так
  IdMsg->Body->Add( "Текст письма" );
// Можно вот так, но два раза (не знаю почему, разбираться не стал)
  TIdText(IdMsg->MessageParts, Memo1->Lines); //  1 
  TIdText(IdMsg->MessageParts, Memo1->Lines); //  2 

// Вложение файлов
  TIdAttachment(IdMsg->MessageParts,  "Ivan1.xml" );
  TIdAttachment(IdMsg->MessageParts,  "Ivan2.xml" );

  if(IdSMTP1->Connected()) IdSMTP1->Disconnect();
  IdSMTP1->Host =  "smtp.nnov.ru" ; // Например.
  IdSMTP1->UserId =  "login" ;
  IdSMTP1->Port =  25 ;
  IdSMTP1->Connect();
  IdSMTP1->Send(IdMsg); // Отправка
  if(IdSMTP1->Connected()) IdSMTP1->Disconnect();
 
 if(IdMsg != NULL) delete IdMsg;

 int i, MailCount =  0 , p, PartCount;
 AnsiString Subj, FileExt, FileName;
 TIdMessage *IdMsg;
 TIdAttachment *IdAttach;
 TIdText *IdText;

 IdMsg = NULL;
 if(IdPOP31->Connected()) IdPOP31->Disconnect();
 IdPOP31->Host =  "pop.nnov.ru" ; // Например
 IdPOP31->UserId =  "login" ;
 IdPOP31->Password =  "password" ;
 IdPOP31->Port =  110 ;
 IdPOP31->Connect();
 MailCount = IdPOP31->CheckMessages();

 Memo1->Lines->Clear(); 

 if(MailCount >  0 ){ //  1 
  for(i =  1 ; i <= MailCount; i++){ //  2 
    if(IdMsg != NULL) delete IdMsg;
    IdMsg = new TIdMessage(this);

    if(IdPOP31->Retrieve(i, IdMsg)){ //  3 
    Subj = IdMsg->Subject.UpperCase();
    if(Subj.Pos( "SUBJ" ) >  0 ){ //  4 
    PartCount = IdMsg->MessageParts->Count;
    for(p =  0 ; p < PartCount; p++){  //  5 

     if(IdMsg->MessageParts->Items[p]->ClassNameIs( "TIdAttachment" )){ //  6 
      IdAttach = (TIdAttachment*) IdMsg->MessageParts->Items[p];

      FileName = IdAttach->FileName;
      if(FileExists(FileName)) DeleteFile(FileName);
      IdAttach->SaveToFile(FileName);

        FileExt = ExtractFileExt(FileName).LowerCase();
      if((FileExt ==  ".cds"  || FileExt ==  ".xml" ) && FileExists(FileName)){ //  7 
         cdsReport->Close();
         cdsReport->LoadFromFile(FileName);
         ProcessReport(); // Своя функция закачки данных из файла отчёта в БД SQL
        } //  7 
     } else { if(IdMsg->MessageParts->Items[p]->ClassNameIs( "TIdText" )){ //  8 
                  Memo1->Lines->AddStrings(TIdText(IdMsg->MessageParts->Items[p])->Body); 
          } //  8 
        } //  6 
      } //  5 
    } //  4 
   IdPOP31->Delete(i);
   } //  3 
  } //  2 
 } //  1 
 if(IdPOP31->Connected()) IdPOP31->Disconnect();
 if(IdMsg != NULL) delete IdMsg;