[M.A.D.M.A.N.]

Сообщение от NumLock

можешь минимальный проект воспроизвести?

Ну как-то так:

Код:

  IFoo = interface
  ['{57B2E8F3-D285-4A43-BCDD-6EFECD76D654}']
  end;

  TFoo = class(TInterfacedObject, IFoo)
  private
    FData: TObject;
  public
    constructor Create(const aObj: TObject);
    destructor Destroy; override;
  end;
{ TFoo }

constructor TFoo.Create(const aObj: TObject);
begin
  FData := aObj;
end;

destructor TFoo.Destroy;
begin
  FreeAndNil(FData);
  inherited;
end;

function PenisCanis(const aData: TObject): IFoo;
begin
  Result := TFoo.Create(aData);
end;

интерфейсы можно в листик добавлять.