Hola Unreal4U perdona que no te haya contestado antes, pero, es que he estado muy liado,he intententado hacer lo que me comentaste no me ha funcionado, te pongo el código que me genera el cuerpo del mensaje:
Código Delphi
[-]
if ( mCuerpo.Lines.Count > 0 ) then begin
body.Text:='HTML'+#13#10+'Body'+#13#10+ mCuerpo.Lines.Text+'/Body'#13#10'/HTML';
MCuerpo es el Richedit donde escribo el Mail y en ContentType pongo Text/Html pero me lo sigue mandando en texto Plano, no se por que, si me puedes ayudar.
Y lo dicho perdona por el retraso y muchas gracias por tu ayuda.