Envio de mail como pagina

[martinc5]

Tengo una sola duda y no se como mandar un mail como htm.
with mail do
begin
IsEncoded:=true;
Recipients.Add;
Recipients[0].Name := 'Negro';
Recipients[0].Address := '';
From.Name := 'Martin';
From.Address := '';
Subject := asunto.Text;
Body.Text := mensaje.Text;
end;
with smtp do
begin
Port := 25;
Host := 'smtp.asd.com.ar';
Username:= '';
Password:= '';
end;

esto si funciona, me muestra el cuerpo del mensaje pero cuando le cargo el html obviamente me muestra el codigo.

Quisiera saber como es...

Help me!!!
Gracias