Enviar email con 'texto con formato'

[[Nbull]]

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.Assign(mCuerpo.Lines);//Esto lo hacia antes para enviar texto plano
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.