anchor.diff:  
   uses
     ActiveX,
  +  Windows, // LONG_PTR type in Win32/Win64 with different Delphi versions
     SysUtils;
   
  -// TODO: check Win64 target - maybe there them should 64-bit enums ???
  +// TODO: The underscored superlong enum values are crazy.
  +//       Better to use Scoped Enumerations
  +//       They are supported starting with Delphi 2009 (missing in 2007 and prior)
  +//       They are supported starting with FPC 2.6.0
  +//       Would anyone really care about prior versions? Hardly so.
  +// http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devcommon/compdirsscopedenums_xml.html
  +// http://docs.embarcadero.com/products/rad_studio/radstudio2007/RS2007_helpupdates/HUpdate4/EN/html/devcommon/delphicompdirectivespart_xml.html
  +// http://wiki.freepascal.org/FPC_New_Features_2.6.0
  +
   {$MINENUMSIZE 4}
   type
     XmlNodeType = (
  
positive.code:   const nEncodingCodePage: Cardinal; // TEncoding.XXX.CodePage
    const fEncodingHint: LongBool;
    const pwszBaseUri: PWideChar;
    out ppInput: IXmlReaderInput): HRESULT; stdcall; external 'XmlLite.dll';
  
  function CreateXmlReaderInputWithEncodingName(
    const pInputStream: IStream;
  
negative.code:   const pwszEncodingName: PWideChar; // TEncoding.XXX.EncodingName
    const fEncodingHint: LongBool;
    const pwszBaseUri: PWideChar;
    out ppInput: IXmlReaderInput): HRESULT; stdcall; external 'XmlLite.dll' {delayed};
  
  function CreateXmlWriter(
    const refiid: TGUID;
    out _IXMLWriter: IUnknown; // can be IXmlWriter or IXmlWriterLite or any future intf
    const pMalloc: IMalloc): HRESULT; stdcall; external 'XmlLite.dll' {delayed};
  
  function CreateXmlWriterOutputWithEncodingCodePage(
    const pOutputStream: IStream;
    const pMalloc: IMalloc;
    const nEncodingCodePage: Cardinal; // TEncoding.XXX.CodePage
    out ppOutput: IXmlWriterOutput): HRESULT; stdcall; external 'XmlLite.dll' {delayed};
  
  function CreateXmlWriterOutputWithEncodingName(
    const pOutputStream: IStream;
    const pMalloc: IMalloc;
    const pwszEncodingName: PWideChar; // TEncoding.XXX.EncodingName
    out ppOutput: IXmlWriterOutput): HRESULT; stdcall; external 'XmlLite.dll' {delayed};
  
  
  
  