Range = dispinterface
    ['{00020846-0000-0000-C000-000000000046}']
    procedure QueryInterface_(var riid: {??TGUID} OleVariant; out ppvObj: {??Pointer} OleVariant); dispid 1610612736;
    function AddRef_: UINT; dispid 1610612737;
    function Release_: UINT; dispid 1610612738;
    procedure GetTypeInfoCount_(out pctinfo: SYSUINT); dispid 1610678272;
    procedure GetTypeInfo_(itinfo: SYSUINT; lcid: UINT; out pptinfo: {??Pointer} OleVariant); dispid 1610678273;
    ... 
    procedure UnMerge; dispid 1384;
    ...

procedure TxlReport.Report;
var b,x: Variant;
begin
x:= CreateOleObject('Excel.Application');
if GetIntValFromStr(x.version) > 14 then //старше офиса 2010
   begin
   b:= x.Workbooks.Add;
   inherited Report;
   b.Close;
   end else
inherited Report;
end;