Enviar Mail con Imagen Adjunta desde Ms Outlook

[Pericles]

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.Body := Mensaje;
 AmailItem.HTMLBody := Mensaje;

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
var i: integer; 
codigoHtml: string; 
begin  

codigoHtml := ' xxxxxxxxxxxxxxxxxxxxx ' ;

 //procedimiento tomado de hilo anterior(arriba)
 EnviarCorreo('intento 1500!!! ',codigoHtml,'','','xnicolasperichonx@hotmail.com','',true);

Gracias
Saludos

Nicolas Perichon