[Error] Word_TLB.pas(45886): Operator not applicable to this operand type

[Error] Word_TLB.pas(45913): Operator not applicable to this operand type

procedure TWordDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
  case DispID of
    -1: Exit;  // DISPID_UNKNOWN
    //..........
    9: if Assigned(FOnXMLBeforeDelete) then
         FOnXMLBeforeDelete(Self,
                            IUnknown(TVarData(Params[0]).VPointer) as Range {const Range},
                            IUnknown(TVarData(Params[1]).VPointer) as XMLNode {const XMLNode},
                            Params[2] {WordBool});
    12: if Assigned(FOnContentControlAfterAdd) then
    //..........
    18: if Assigned(FOnBuildingBlockInsert) then
         FOnBuildingBlockInsert(Self,
                                IUnknown(TVarData(Params[0]).VPointer) as Range {const Range},
                                Params[1] {const WideString},
                                Params[2] {const WideString},
                                Params[3] {const WideString},
                                Params[4] {const WideString});
  end; {case DispID}
end;