Anexar arquivo no email no outlook

Use o componente TNMSMTP no form que é nativo do delphi.

Attachments.Add(´c:\diretorio\arquivo.ext´);

Mas com esse componente num consigo enviar email com conexao adsl

const olMailItem = 0;
var
Outlook: OLEVariant;
MailItem: Variant;
begin
try
Outlook:=GetActiveOleObject(´Outlook.Application´);
except
Outlook:=CreateOleObject(´Outlook.Application´);
end;
MailItem := Outlook.CreateItem(olMailItem);
with MailItem do begin
Recipients.Add(´email@email.com´);
Subject := ´Assunto´;
Body := ´corpo da mensagem´;
Attachments.Add(´C:\Windows\Win.ini´);
Send;
end;
Outlook := Unassigned;
end;

Não funcionou como eu esperava, pois preciso que ele abra o outlook com os dados preenchidos :para quem, assunto, mensagem e anexos

Desculpe o abuso
Rafael Carneiro