Enviar email con Cuerpo HTML

[VictorPenyalver]

Hola,

Como puedo enviar un email con el cuerpo en HTML?
Aqui esta mi codigo:

Código Delphi [-]
 var OleApp,OleItem : OleVariant; i: integer;
begin
  try
    try
       OleApp := GetActiveOleObject('Outlook.Application');
    except
       OleApp := CreateOleObject('Outlook.Application');
    end;

    OleItem := OleApp.CreateItem(0);
    OleItem.Subject := IBQueryEx1CAMPANYA.AsString;
    for i:=0 to Destinatarios.Count-1 do begin
        OleItem.Recipients.Add(Destinatarios[i]);
    end;
    OleItem.Body := ' Ke pasa Neng  Esto es una prueba  ';
    OleItem.Send;
    OleItem := VarNull;
    OleApp := VarNull;
    MessageDlg('Operación Completada',mtInformation,[mbOk],0);
  except
     OleItem := VarNull;
     OleApp := VarNull;
     MessageDlg('No se ha podido enviar el correo a todos los destinatarios',mtError,[mbOk],0);
  end;

Lo he probado asi (no pongo los simbolos < > aqui xke sino no se ven en el post),

Código Delphi [-]
OleItem.Body := ' html  head Ke pasa Neng /head body Esto es una prueba  /body /html';

pero no funciona, sale como texto normal.
A ver si alguien puede darme alguna idea de como hacerlo.
Muchas gracias de antemano!