用Delphi生成一个文件，如何让它自动附加到邮件附件上。(50分)

我做的一个小程序，会将运算结果输出到一个文件上，我想让这个文件自动附加到邮件的附件中，请问如何实现？

procedure TForm1.Button1Click(Sender: TObject);
const
olMailItem = 0;
var
Outlook: OleVariant;
vMailItem: variant;
begin
try
Outlook := GetActiveOleObject('Outlook.Application');
except
Outlook := CreateOleObject('Outlook.Application');
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add('ran@ykse.com.cn');
vMailItem.Subject := 'test email';
vMailItem.Body := 'This is a test';
vMailItem.Attachments.Add('c:/ab.txt');
vMailItem.Send;

VarClear(Outlook);

end;

在空白页面上直接加入这段程序，编译时提示
[Error] Unit1.pas(37): Undeclared identifier: 'CreateOleObject'
[Error] Unit1.pas(35): Undeclared identifier: 'GetActiveOleObject'

uses ComObj;

EOleSysError with '类字符串无效'

Outlook := GetActiveOleObject('Outlook.Application');
这行高亮显示。是不是我还漏了声明些什么？