Delphi 7 - não consegui encontrar ex. p/enviar e-mail

Var
vMailItem, OutLook: Variant;
begin
vMailItem:=Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(´edmar@neosistemas.com.br´); // 1o Destin.
vMailItem.
vMailItem.Subject:=´teste de email´; // assunto
vMailItem.Body:=´Isto é um teste´; // corpo
vMailItem.Attachments.Add(´c:\teste.zip´); // arq anexo
vMailItem.Send;
VarClear(Outlook);

Deu um erro dizendo q não está declarado o ´olMailItem´

Lá vai a Unit completa:

unit UTstMail;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
const
olMailItem = 0;

implementation
uses comobj, olectrls;


{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
Outlook: OleVariant;
vMailItem: variant;
begin
try
Outlook := GetActiveOleObject(´Outlook.Application´);
except
Outlook := CreateOleObject(´Outlook.Application´);
end;
vMailItem := Outlook.CreateItem(olMailItem);
vMailItem.Recipients.Add(´fulando@mundo.com.br´); // 1o destinatário
vMailItem.Recipients.Add(´ciclano@mundo.com.br´); // 2o destinatário
vMailItem.Subject := ´teste de email´; // assunto
vMailItem.Body := ´Este é um teste´; // Corpo do
e-mail
vMailItem.Attachments.Add(´C:\temp\arq.txt´); // arquivo
anexado
vMailItem.Send;

VarClear(Outlook);
end;

Invalid Variant Operation... porque deste erro