Hola..Encontré que con una línea de código se logra....(luego de buscar por medio internet jaja)
Hay que modificar una linea del codigo que propones arriba.
Código Delphi
[-]
AmailItem.HTMLBody := Mensaje;
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
codigoHtml: string;
begin
codigoHtml := ' xxxxxxxxxxxxxxxxxxxxx ' ;
EnviarCorreo('intento 1500!!! ',codigoHtml,'','','xnicolasperichonx@hotmail.com','',true);
Gracias
Saludos
Nicolas Perichon