unit Unit2;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, ActiveXObjectTest_TLB, StdVcl;

type
  TAutoActiveCase = class(TAutoObject, IAutoActiveCase)
  protected

  end;

implementation

uses ComServ;

initialization
  TAutoObjectFactory.Create(ComServer, TAutoActiveCase, Class_AutoActiveCase,
    ciMultiInstance, tmApartment);
end.