Invalid variant type

[glabz]

Доброго времени суток. Пишу класс для работы с Visio. При создании выдает ошибку

Invalid variant type

 TVisio = class

  private
    fVisioApp: Variant;
  public
    constructor Create;
  end;
 
constructor  TVisio.Create;
begin
try
  fVisioApp := CreateOleObject('Visio.Application');
 finally

  end;
end;

[Stilet]

fVisioApp: Variant; замени на fVisioApp: OleVariant;
С подключением модулей ActiveX и ComOBJ;