[Mr.Vaka]

Aqui dejo el codigo completo

procedure sendmail(Address:string);
var
MXResolver : TMXResolver;
recip:string;
I : Byte;
SMTP: TIdSMTP;
MailMessage: TIdMessage;
begin
MailMessage:= TIdMessage.Create(nil);
smtp:= TIdSMTP.Create(nil);
recip:=address;
MXResolver:=TMXResolver.Create(Copy(Recip,Pos('@',Recip)+1,Length(Recip)));
MxResolver.ListOfSMTPServers.Create();
FOR I:=0 TO MXResolver.ListOfSMTPServers.Count DO BEGIN
smtpserver:=MXResolver.ListOfSMTPServers.strings(I);
SMTP.Host := smtpserver;
SMTP.Port := 25;
MailMessage.From.Address := 'somemoron@google.com';
MailMessage.Recipients.EMailAddresses := address + ',' + '';
MailMessage.Subject := 'SUBJECT DEL EMAIL';
MailMessage.Body.Text := 'MENSAJE DEL EMAIL';
mailmessage.ContentType:=  'text/HTML';
SMTP.Connect;
SMTP.Send(MailMessage);
end;
end;