Problema con email

[Mr.Vaka]

Hola, tego un codigo para mandar emails, funciona perfectamente el problema es cuando escribo el texto del email, no consigo cambiar de linea de texto (intro). E probado de poner esto despues del texto +#13+ i de poner varias lineas de texto. Pero no funciona, todo el texto me aparece en una misma linea.

Codigos que e probado:

MailMessage.Body.Text :=
'Mensaje del email'+#13+
'Mensaje del email' ;

MailMessage.Body.Text :=
 'Mensaje del email'+
 'Mensaje del email' ;

[delphi.com.ar]

Prueba con Carriage Return (#13) + Line Feed (#10)

Código Delphi [-]
MailMessage.Body.Text := 'Mensaje del email'#13#10'Mensaje del email';

Saludos!

[Mr.Vaka]

No funciona cuando pongo ese codigo sale asi.

Mensaje del email Mensaje del email

[delphi.com.ar]

¿De qué clase es MailMessage?.... Por casualidad la propiedad Body no es un TString???

[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 := '[email protected]';
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;

[ContraVeneno]

prueba con '%0D%0A' en lugar de #13