Wysyłanie emaili z załącznikiem

witam.
chciałbym napisać program który wysyła emaila z złącznymi plikami.
Na internecie znalazłem kawałek kodu ale nie wiem co tam jeszcze brakuje i jak to ogarnąć.
By mógł ktoś mi pomóc dopisać co tam jeszcze potrzeba aby działało, aby w jakiś filtr spam nie wpadło czy coś?

z góry dziękuje

IdMessage1->From->Name = "xxX"t; 
IdMessage1->From->Address = "xxx"; 
IdMessage1->Recipients->EMailAddresses = "xxx"; 
IdMessage1->Subject = "xxx"; 
IdMessage1->Body->Append(Memo1->Text); 
IdSMTP1->Host = "xxx"; 
IdSMTP1->Password = "xxxx"; 
IdSMTP1->UserId = "xxxx";  
IdSMTP1->AuthenticationType = atLogin; 
IdSMTP1->Port = 25; 

TIdAttachment *IdAtt = new TIdAttachment(IdMessage1->MessageParts, "plik"); 
TIdAttachment *IdAtt = new TIdAttachment(IdMessage1->MessageParts, "plik2"); 
TIdAttachment *IdAtt = new TIdAttachment(IdMessage1->MessageParts, "plik3");

IdSMTP1->Connect(); 

try 
{ 
IdSMTP1->Send(IdMessage1); 
} 
__finally 
{ 
IdSMTP1->isconnect(); 
} 
}