怎么调用outlook发mail?

手头正好有个例子！还具体吧？
procedure TForm1.Button1Click(Sender: TObject);
const olMailItem = 0;
var Outlook,MailItem,Recipient: variant;
begin
  try
    Outlook := CreateOleObject('Outlook.Application');
  except
    Outlook := GetActiveOleObject('Outlook.Application');
  end;
  MailItem := Outlook.CreateItem(olMailItem);
  try
    Recipient:=MailItem.Recipients.Add(TOAddrlist);
    Recipient.type:=olTO;
    Recipient:=MailItem.Recipients.Add(CCAddlist);
    Recipient.type:=olCC;
    MailItem.Subject :='test';
    MailItem.htmlBody :='mail body';
    MailItem.Attachments.Add(path+FileName);
    mailitem.display;
    //mailitem.send;
  finally
    MailItem:=Unassigned;
    Recipient:=Unassigned;
    //outlook.quit;
    outlook:=Unassigned;
  end;
end;