Доброе время суток, господа!
Пишу класс по экспорту DBGridEh в Excel. Класс находится в отдельном модуле. Объявляю переменную типа этого класса, пытаюсь начать работать, но выдает сообщение об ошибке в какой то момент. Класс ошибки: EVariantBadVarType, сообщение: "Invaid variant type."

procedure TExpt.Init( aBeforeText, aAfterText : TMemo; aGrid : TDBGridEh; CreateImmediately, Colored : boolean );
  var b : boolean;
begin
    BeforeText := aBeforeText;
    AfterText := aAfterText;
    Grid := AGrid;

    Excel := CreateOLEObject( 'Excel.Application' );     <---   Здесь выдает ошибку.
    Excel.Application.EnableEvents := false;

Вызываю так:

procedure TForm1.Button1Click(Sender: TObject);
var exp : TExport;
begin
   exp.Init(bt,at, dg,false, false);
end;

Сам класс(часть):

TExport = class
            private
                FExcel : Variant;
            ...
            public
                property Excel : Variant read GetExcel
                                        Write SetExcel;
                procedure Init( aBeforeText, aAfterText : TMemo; aGrid : TDBGridEh; CreateImmediately, Colored : boolean );
            ...
end;

Подскажите, пожалуйста, в чем может быть ошибка.