Problem using ActiveX from within another object / class in Delphi....

unit OposFunctions;
{ ----- Delphi Class ----- }
interface
 
uses Windows,Messages,Classes,SysUtils,OposLineDisplay_1_11_Lib_TLB, OposCashDrawer_1_11_Lib_TLB,
  OposPOSPrinter_1_11_Lib_TLB;
 
type
 
  TOposFunctions = class
  private
    variable1 : String;
    OPOSCashDrawer1: TOPOSCashDrawer;
 
  public
    variable2 : String;
 
    constructor Create();
    destructor Destroy();
 
    function  Print(station:string;text:Integer):Integer;
    function  PrintControl(funct:Integer):Boolean;
    function  CustomerWrite(line:Integer;text:string):Boolean;
    function  OpenDrawer(drawer:Integer):Boolean;
    function  DrawerState(funct:Integer):Boolean;
 
  end;
 
implementation
 
constructor TOposFunctions.Create();
begin
     // Initialise whatever needs initialising
end;
 
function TOposFunctions.Print(station:string;text:Integer):Integer;
begin
 // code here
end;
function TOposFunctions.PrintControl(funct:Integer):Boolean;
begin
 // code here
end;
function TOposFunctions.CustomerWrite(line:Integer;text:string):Boolean;
begin
 // code here
end;
function TOposFunctions.OpenDrawer(drawer:Integer):Boolean;
begin
  try
   OPOSCashDrawer1.Open('pos_drawer');
   OPOSCashDrawer1.ClaimDevice(1000);
   OPOSCashDrawer1.DeviceEnabled := True;
   OPOSCashDrawer1.OpenDrawer();
finally
  OPOSCashDrawer1.DeviceEnabled := False;
  OPOSCashDrawer1.ReleaseDevice;
  OPOSCashDrawer1.Close;
 end;
end;
function TOposFunctions.DrawerState(funct:Integer):Boolean;
begin
 // code here
end;
 
destructor TOposFunctions.Destroy();
begin
     // when the class is destroyed, clean up what needs cleaning.
end;
 
end.
 
 
And this is the forms event handler:
 
procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage('doing this');
  OposFunctions1:= TOposFunctions.Create();
ShowMessage('coming back from this');
  OposFunctions1.OpenDrawer(1);
ShowMessage('but not from this');