'A' .. 'Z' : Addend := Ord(C) - (Ord('A') - 10);
    'a' .. 'z' : Addend := Ord(C) - (Ord('a') - 10);

   2, // $(var)
   2, // ${var}

     Multipliers : Array[TScale, TMagnitude] Of UInt64 =
      (
       (
        0,

FInstance.SetLength(0);

 Function SecRandomCopyBytes(rnd : SecRandomRef; count : LongWord; bytes : PByte) : Integer; CDecl; External libSecurity Name _PU + 'SecRandomCopyBytes';

Class Procedure...
 Type

  TSysPageFileInfo = Record

   NextEntryOffset : Cardinal;
   CurrentSize     : Cardinal;
   TotalUsed       : Cardinal;
   PeakUsed        : Cardinal;

   FileName        : Record

                      Length    : Word;
                      MaxLength : Word;
                      Buffer    : PWideChar;

                     End;

  End;

Var
  InfoEx : Record

            dwLength                : LongWord;
            dwMemoryLoad            : LongWord;
            ullTotalPhys            : UInt64;
            ullAvailPhys            : UInt64;
            ullTotalPageFile        : UInt64;
            ullAvailPageFile        : UInt64;
            ullTotalVirtual         : UInt64;
            ullAvailVirtual         : UInt64;
            ullAvailExtendedVirtual : UInt64;

           End;

   Case AOperation Of

    doCopy  : _InitializeByCopy;
    doShare : _InitializeByShare;

   Case MarkerPtr[0] Of

    '+' : _ParseOpenedSequence;
    '-' : _ParseClosedSequence;