Delphi - Enviar correo

Hola a todos:

en este foro hay una rutina para poder enviar un correo por outlook
a esto le faltaba agregar la unidad "Uses ComObj",
me sale un error "Cadena clase no valida."

por favor alguien me puede ayudar?,

Muchas gracias...

procedure TForm1.BitBtn1Click(Sender: TObject);
const
olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application'); //<---- esto me lo marca con error
except
Outlook := CreateOleObject('Outlook.Application');//<---- esto me lo marca con error
end;

MailItem := Outlook.CreateItem(olMailItem);
MailItem.Recipients.Add(edit1.Text );

MailItem.Subject := edit2.Text;
MailItem.Body := edit3.Text;
//MailItem.Attachments.Add('Nombre del fichero a enviar 1' ;
//MailItem.Attachments.Add('Nombre del fichero a enviar 2';
MailItem.Send;
Outlook := Unassigned;
end;

A mi me pasaba lo mismo en WinXP con OutLook, pero me funcionaba
con OutLook Express, como no consegui solucionarlo opté por otro
camino :
pCh :='mailto:[email protected]?subject=sujeto&body=cuerpo&attachfile="C:\winnt\win.ini"';

ShellExecute(0, 'open', Pchar(pCh), nil, nil, SW_SHOWNORMAL);

No se si te valdrá. Funciona en Win200 y Xp para OutLook y OutLook Express.