Speicherfreigabe von Stringlisten in DLL

[ueding]

Habe jetzt einen Constructor eingebaut
funktioniert leider nicht,
hier der Code

Delphi-Quellcode:

unit U_Barcode;

{$WARN SYMBOL_PLATFORM OFF}

interface

uses
  ComObj, ActiveX, UE_BC_TLB, StdVcl, SysUtils;

type
  TBarcode = class(TAutoObject, IBarcode)
  protected
    function Get_SetFileName: OleVariant; safecall;
    procedure Set_SetFileName(Value: OleVariant); safecall;
    function Get_GetBcCode: OleVariant; safecall;
    procedure Set_GetBcCode(Value: OleVariant); safecall;
    
   public
    constructor Create(AOwner:TAutoObject, Ibarcode);// hier ist das Problem 
    destructor Destroy; override;                    // ich kann nicht "TAutoObject, Ibarcode " zusammen angeben

  end;

implementation

uses ComServ, ShlObj,classes,IncodeLib;
var
ErrorCode       : integer;
strParse        : TStringList;
strRow          : TStringlist; 


constructor Tbarcode.create(AOwner : Ibarcode);    // hier ist das zweite Problem

begin
inherited Create();
strParse        := TStringList.Create;
strRow          := TStringlist.Create;
end;


destructor tbarcode.destroy;

begin
 strParse.free;
 strrow.Free;
end

wenn ich nur Ibarcode oder TAutoObject angebe wird der Constructor nicht durlaufen aber der Destructor
wo mache ich den Fehler?