function TComponent._AddRef: Integer;
begin
  if FVCLComObject = nil then
    Result := -1   // -1 indicates no reference counting is taking place
  else
    Result := IVCLComObject(FVCLComObject)._AddRef;
end;

function TComponent._Release: Integer;
begin
  if FVCLComObject = nil then
    Result := -1   // -1 indicates no reference counting is taking place
  else
    Result := IVCLComObject(FVCLComObject)._Release;
end;

TMyObj = class(TInterfacedObject)
public
  procedure Test;
end;

procedure DoSomething(AIntf: IInterface);
begin
end;

LObj: TMyObj;
begin
  LObj := TMyObj.Create;
  try
    DoSomething(LObj);
    LObj.Test;
  finally
    LObj.Free;
  end;
end;