path: root/test/delphi/pluto.out.raydebug

reserved(unit) ident(FindTH)operator(;)

reserved(interface)

reserved(uses)
  ident(Classes)operator(,) ident(windows)operator(,) ident(Dialogs)operator(,) ident(ComCtrls)operator(,) ident(CompEx)operator(,) ident(SysUtils)operator(,) ident(YTools)operator(,) ident(YTypes)operator(,)
  ident(clock)operator(,) ident(plutoconst)operator(,) ident(StdCtrls)operator(,) ident(Masks)operator(,) ident(Forms)operator(,) ident(XReg)operator(;)

reserved(const)
  ident(RegMoleVersion) operator(=) string<delimiter(')content(1.1)delimiter(')>operator(;)

reserved(type)
  ident(TFindThreadProgress) operator(=) operator(()ident(fpNone)operator(,) ident(fpEvery512th)operator(,) ident(fpEach)operator(\);)

  ident(TRegFindThread) operator(=) reserved(class)operator(()ident(TThread)operator(\))
  directive(private)
    ident(SearchText)operator(:) reserved(string)operator(;)
    ident(SearchFor)operator(:) ident(TSearchOptions)operator(;)
    ident(Progress)operator(:) ident(TFindThreadProgress)operator(;)
    ident(FindNodeText)operator(:) reserved(string)operator(;)
    ident(TimeElapsed)operator(:) ident(Double)operator(;)
    ident(syncIcon)operator(:) ident(Integer)operator(;)
    ident(syncStatusText)operator(:) reserved(string)operator(;)
    ident(CurrentPath)operator(:) reserved(string)operator(;)
    ident(KeysScanned)operator(:) ident(Integer)operator(;)
    ident(Mask)operator(:) ident(TMask)operator(;)
    ident(dwordVal)operator(:) ident(DWORD)operator(;)
    ident(SearchForValues)operator(:) ident(Boolean)operator(;)

    reserved(procedure) ident(Find)operator(;)

    comment(//Synchronizers)
    reserved(procedure) ident(Start)operator(;)
    reserved(procedure) ident(Add)operator(;)
    reserved(procedure) ident(UpdateStatus)operator(;)
    reserved(procedure) ident(Finish)operator(;)
  directive(protected)
    reserved(procedure) ident(Execute)operator(;) directive(override)operator(;)
  directive(public)
    ident(SpecialPath)operator(:) reserved(string)operator(;)
    ident(FindNode)operator(:) ident(TTreeNode)operator(;)
    ident(ListTV)operator(:) ident(TTreeView)operator(;)
    ident(ObjectsFound)operator(,) ident(KeysFound)operator(,) ident(ValuesFound)operator(,) ident(DataFound)operator(:) ident(Integer)operator(;)
    ident(Ranges)operator(:) ident(TRanges)operator(;)
    reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;)
    reserved(constructor) ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(;) ident(s)operator(:) reserved(string)operator(;)
      ident(SearchFor)operator(:) ident(TSearchOptions)operator(;) ident(Progress)operator(:) ident(TFindThreadProgress)operator(\);)
  reserved(end)operator(;)

reserved(implementation)

reserved(uses)
  ident(ValuesU)operator(,) ident(StrUtils)operator(;)

comment({ TRegFindThread })

reserved(procedure) ident(TRegFindThread)operator(.)ident(Add)operator(;)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  reserved(with) ident(ListTV) reserved(do) reserved(begin)
    comment(//Items.BeginUpdate;)
    ident(Node) operator(:=) ident(TTreeNode)operator(.)ident(Create)operator(()ident(Items)operator(\);)
    ident(SetTNImage)operator(()ident(Node)operator(,) ident(syncIcon)operator(\);)
    ident(Items)operator(.)ident(AddNode)operator(()ident(Node)operator(,) ident(FindNode)operator(,) ident(Copy)operator(()ident(CurrentPath)operator(,) integer(1)operator(,) integer(255)operator(\),) reserved(nil)operator(,)
      ident(naAddChildFirst)operator(\);)
    reserved(if) reserved(not) ident(FindNode)operator(.)ident(Expanded) reserved(and) operator(()ident(FindNode)operator(.)ident(Count) operator(=) integer(1)operator(\)) reserved(then) comment(//First Node)
      ident(FindNode)operator(.)ident(Expand)operator(()ident(False)operator(\);)
    comment(//Items.EndUpdate;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(constructor) ident(TRegFindThread)operator(.)ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(;) ident(s)operator(:) reserved(string)operator(;)
  ident(SearchFor)operator(:) ident(TSearchOptions)operator(;) ident(Progress)operator(:) ident(TFindThreadProgress)operator(\);)
reserved(begin)
  reserved(inherited) ident(Create)operator(()ident(True)operator(\);)      comment(// Create thread suspended)
  ident(Priority) operator(:=) ident(PriorityLevel)operator(;) comment(// Set Priority Level)
  ident(FreeOnTerminate) operator(:=) ident(True)operator(;) comment(// Thread Free Itself when terminated)

  ident(SearchText) operator(:=) ident(s)operator(;)
  ident(Ranges) operator(:=) reserved(nil)operator(;)
  ident(Self)operator(.)ident(SearchFor) operator(:=) ident(SearchFor)operator(;)
  ident(Self)operator(.)ident(Progress) operator(:=) ident(Progress)operator(;)
reserved(end)operator(;)

reserved(destructor) ident(TRegFindThread)operator(.)ident(Destroy)operator(;)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(FindNode)operator(\)) reserved(then)
    ident(FindNode)operator(.)ident(Data) operator(:=) reserved(nil)operator(;)
  reserved(inherited)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegFindThread)operator(.)ident(Execute)operator(;)
reserved(begin)
  ident(Synchronize)operator(()ident(Start)operator(\);)
  ident(Find)operator(;)
  ident(Synchronize)operator(()ident(Finish)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TRegFindThread)operator(.)ident(Find)operator(;)
reserved(var)
  ident(SpecialKey)operator(:) ident(HKEY)operator(;)

  reserved(procedure) ident(Add)operator(()reserved(const) ident(Path)operator(:) reserved(string)operator(;) reserved(const) ident(Icon)operator(:) ident(Integer)operator(\);)
  reserved(var)
    ident(zCurrentPath)operator(:) reserved(string)operator(;)
  reserved(begin)
    ident(zCurrentPath) operator(:=) ident(CurrentPath)operator(;)

    ident(CurrentPath) operator(:=) ident(Path)operator(;)
    ident(syncIcon) operator(:=) ident(Icon)operator(;)
    ident(Synchronize)operator(()ident(Self)operator(.)ident(Add)operator(\);)

    ident(CurrentPath) operator(:=) ident(zCurrentPath)operator(;)
  reserved(end)operator(;)

  reserved(procedure) ident(AddValueName)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) ident(Typ)operator(:) ident(TRegDataType)operator(\);)
  reserved(begin)
    ident(Add)operator(()ident(CurrentPath) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(ValueName)operator(,) ident(IconOfDataType)operator(()ident(Typ)operator(\)\);)
  reserved(end)operator(;)

  reserved(procedure) ident(AddValueData)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) ident(Context)operator(:) ident(TRegContext)operator(\);)
  reserved(begin)
    ident(Add)operator(()ident(CurrentPath) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(ValueName) operator(+) string<delimiter(')content( = )delimiter(')> operator(+) ident(DataPreviewOfContext)operator(()ident(Context)operator(\),)
      ident(IconOfDataType)operator(()ident(Context)operator(.)ident(Typ)operator(\)\);)
  reserved(end)operator(;)

  reserved(function) ident(FoundInStr)operator(()reserved(const) ident(Data)operator(:) reserved(string)operator(\):) ident(Boolean)operator(;)
  reserved(begin)
    ident(Result) operator(:=) ident(False)operator(;)
    reserved(if) ident(SearchText) operator(=) string<delimiter(')delimiter(')> reserved(then)
      ident(Exit)operator(;)

    reserved(if) operator(()ident(Data) operator(=) string<delimiter(')delimiter(')>operator(\)) reserved(and) reserved(not) operator(()ident(sfWildCards) reserved(in) ident(SearchFor)operator(\)) reserved(then)
      ident(Exit)operator(;)

    reserved(if) ident(sfWildCards) reserved(in) ident(SearchFor) reserved(then) reserved(begin)
      reserved(if) ident(Assigned)operator(()ident(Mask)operator(\)) reserved(then)
        ident(Result) operator(:=) ident(Mask)operator(.)ident(Matches)operator(()ident(Data)operator(\);)
    reserved(end) reserved(else) reserved(begin)
      comment({if not (sfFileNames in SearchFor\) then begin
        if TextBegin(SearchText, UntilChar(Data, '~'\)\) and FileExists(Data\) then
          Result :=  SameFileName(SearchText, GetFileNew(Data\)\);
        Exit;
      end; })

      reserved(if) operator([)ident(sfParts)operator(,) ident(sfIgnoreCase)operator(]) operator(<=) ident(SearchFor) reserved(then)
        reserved(if) ident(SfUseLocales) reserved(in) ident(SearchFor) reserved(then)
          ident(Result) operator(:=) integer(0)operator(<)ident(PosEx)operator(()ident(SearchText)operator(,) ident(AnsiLowerCase)operator(()ident(Data)operator(\)\))
        reserved(else)
          ident(Result) operator(:=) integer(0)operator(<)ident(PosExText)operator(()ident(SearchText)operator(,) ident(Data)operator(\))
      reserved(else) reserved(if) ident(sfParts) reserved(in) ident(SearchFor) reserved(then)
        ident(Result) operator(:=) integer(0)operator(<)ident(PosEx)operator(()ident(SearchText)operator(,) ident(Data)operator(\))
      reserved(else) reserved(if) ident(sfIgnoreCase) reserved(in) ident(SearchFor) reserved(then)
        reserved(if) ident(SfUseLocales) reserved(in) ident(SearchFor) reserved(then)
          ident(Result) operator(:=) operator(()ident(AnsiLowerCase)operator(()ident(Data)operator(\)) operator(=) ident(SearchText)operator(\))
        reserved(else)
          ident(Result) operator(:=) ident(SameText)operator(()ident(Data)operator(,) ident(SearchText)operator(\))
      reserved(else)
        ident(Result) operator(:=) operator(()ident(SearchText) operator(=) ident(Data)operator(\);)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(function) ident(FoundInByteA)operator(()reserved(const) ident(Data)operator(:) ident(TByteA)operator(\):) ident(Boolean)operator(;)
  reserved(begin)
    ident(Result) operator(:=) ident(FoundInStr)operator(()ident(StrOfByteA)operator(()ident(Data)operator(\)\);)
  reserved(end)operator(;)

  reserved(procedure) ident(ScanValues)operator(()ident(Key)operator(:) ident(HKEY)operator(;) ident(Info)operator(:) ident(TRegKeyInfo)operator(\);)
  reserved(var)
    ident(i)operator(:) ident(Integer)operator(;)
    ident(MaxLen)operator(,) ident(NameLen)operator(,) ident(Len)operator(,) ident(Typ)operator(:) ident(Cardinal)operator(;)
    ident(Buffer)operator(:) ident(PByte)operator(;)
    ident(ValueName)operator(:) ident(PChar)operator(;)

    reserved(procedure) ident(ScanValue)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) reserved(const) ident(Typ)operator(:) ident(TRegDataType)operator(;)
      reserved(const) ident(Data)operator(:) reserved(string)operator(\);)
    reserved(begin)
      reserved(if) operator(()ident(sfSpecialTypes) reserved(in) ident(SearchFor)operator(\)) reserved(and) reserved(not) ident(InRanges)operator(()ident(Ranges)operator(,) ident(Typ)operator(\)) reserved(then)
        ident(Exit)operator(;)

      reserved(case) ident(Typ) reserved(of)
        ident(rdString)operator(,) ident(rdExpandString)operator(:) reserved(if) ident(sfString) reserved(in) ident(SearchFor) reserved(then) reserved(begin)
          reserved(if) ident(FoundInStr)operator(()ident(Data)operator(\)) reserved(then) reserved(begin)
            ident(Inc)operator(()ident(DataFound)operator(\);)
            ident(AddValueData)operator(()ident(ValueName)operator(,)
              ident(RegContext)operator(()ident(Typ)operator(,) ident(TByteA)operator(()ident(Copy)operator(()ident(Data)operator(,) integer(1)operator(,) ident(Length)operator(()ident(Data)operator(\)-)integer(1)operator(\)\)\)\);)
          reserved(end)operator(;)
        reserved(end)operator(;)

        ident(rdCardinal)operator(,) ident(rdCardBigEndian)operator(:) reserved(if) ident(sfDWord) reserved(in) ident(SearchFor) reserved(then) reserved(begin)
          reserved(if) operator(()ident(Length)operator(()ident(Data)operator(\)) operator(>=) ident(SizeOf)operator(()ident(Cardinal)operator(\)\)) reserved(and)
          operator(()ident(dwordVal) operator(=) ident(PCardinal)operator(()ident(Copy)operator(()ident(Data)operator(,) integer(1)operator(,) ident(SizeOf)operator(()ident(Cardinal)operator(\)\)\)^\)) reserved(then) reserved(begin)
            ident(Inc)operator(()ident(DataFound)operator(\);)
            ident(AddValueData)operator(()ident(ValueName)operator(,)
              ident(RegContext)operator(()ident(Typ)operator(,) ident(ByteAOfStr)operator(()ident(Data)operator(\)\)\);)
          reserved(end)operator(;)
        reserved(end)operator(;)

      reserved(else)
        reserved(if) ident(sfOtherTypes) reserved(in) ident(SearchFor) reserved(then) reserved(begin)
          reserved(if) ident(FoundInStr)operator(()ident(Data)operator(\)) reserved(then) reserved(begin)
            ident(Inc)operator(()ident(DataFound)operator(\);)
            ident(AddValueData)operator(()ident(ValueName)operator(,)
              ident(RegContext)operator(()ident(Typ)operator(,) ident(ByteAOfStr)operator(()ident(Data)operator(\)\)\);)
          reserved(end)operator(;)
        reserved(end)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

  reserved(begin)
    ident(MaxLen) operator(:=) ident(Info)operator(.)ident(MaxValueLen) operator(+) integer(1)operator(;) comment(//Include Nullbyte)

    ident(Buffer) operator(:=) reserved(nil)operator(;)
    reserved(if) ident(sfValueData) reserved(in) ident(SearchFor) reserved(then)
      ident(GetMem)operator(()ident(Buffer)operator(,) ident(Info)operator(.)ident(MaxDataLen)operator(\);)

    ident(GetMem)operator(()ident(ValueName)operator(,) ident(MaxLen)operator(\);)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Info)operator(.)ident(NumValues)operator(-)integer(1) reserved(do) reserved(begin)
      ident(NameLen) operator(:=) ident(MaxLen)operator(;)
      ident(Len) operator(:=) ident(Info)operator(.)ident(MaxDataLen)operator(;)
      reserved(if) reserved(not) ident(Success)operator(()ident(RegEnumValue)operator(()ident(Key)operator(,) ident(i)operator(,) ident(ValueName)operator(,) ident(NameLen)operator(,) reserved(nil)operator(,) operator(@)ident(Typ)operator(,)
       ident(Buffer)operator(,) operator(@)ident(Len)operator(\)\)) reserved(then)
        ident(Continue)operator(;)

      reserved(if) ident(sfValueNames) reserved(in) ident(SearchFor) reserved(then)
        reserved(if) ident(FoundInStr)operator(()ident(ValueName)operator(\)) reserved(then) reserved(begin)
          ident(Inc)operator(()ident(ValuesFound)operator(\);)
          ident(AddValueName)operator(()ident(ValueName)operator(,) ident(Typ)operator(\);)
        reserved(end)operator(;)

      reserved(if) ident(sfValueData) reserved(in) ident(SearchFor) reserved(then)
        ident(ScanValue)operator(()ident(ValueName)operator(,) ident(Typ)operator(,) reserved(string)operator(()ident(Copy)operator(()ident(TByteA)operator(()ident(Buffer)operator(\),) integer(0)operator(,) ident(Len)operator(\)\)\);)
    reserved(end)operator(;)

    ident(FreeMem)operator(()ident(ValueName)operator(,) ident(MaxLen)operator(\);)
    reserved(if) ident(sfValueData) reserved(in) ident(SearchFor) reserved(then)
      ident(FreeMem)operator(()ident(Buffer)operator(,) ident(Info)operator(.)ident(MaxDataLen)operator(\);)
  reserved(end)operator(;)

  reserved(procedure) ident(ScanKey)operator(()ident(Key)operator(:) ident(HKEY)operator(;) reserved(const) ident(KeyName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);)
  reserved(var)
    ident(p)operator(:) ident(PChar)operator(;)
    ident(i)operator(,) ident(z)operator(:) ident(Integer)operator(;)
    ident(l)operator(,) ident(Len)operator(:) ident(DWORD)operator(;)
    ident(NewKey)operator(:) ident(HKEY)operator(;)
    ident(Info)operator(:) ident(TRegKeyInfo)operator(;)
  reserved(begin)
    reserved(if) ident(Terminated) reserved(then) ident(Exit)operator(;)

    ident(Inc)operator(()ident(KeysScanned)operator(\);)
    reserved(if) ident(Progress) operator(<>) ident(fpNone) reserved(then)
      reserved(if) operator(()ident(Progress) operator(=) ident(fpEach)operator(\)) reserved(or)
       operator((()ident(Progress) operator(=) ident(fpEvery512th)operator(\)) reserved(and) operator((()ident(KeysScanned) reserved(and) hex($1FF)operator(\)) operator(=) integer(0)operator(\)\)) reserved(then) reserved(begin)
        ident(syncStatusText) operator(:=) char<delimiter(')content(()delimiter(')> operator(+) ident(IntToStr)operator(()ident(KeysScanned)operator(\)) operator(+) string<delimiter(')content( k\) )delimiter(')> operator(+) ident(CurrentPath)operator(;)
        ident(Synchronize)operator(()ident(UpdateStatus)operator(\);)
      reserved(end)operator(;)

    reserved(with) ident(Info) reserved(do)
      reserved(if) reserved(not) ident(Success)operator(()ident(RegQueryInfoKey)operator(()ident(Key)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) operator(@)ident(NumSubKeys)operator(,)
       operator(@)ident(MaxSubKeyLen)operator(,) reserved(nil)operator(,) operator(@)ident(NumValues)operator(,) operator(@)ident(MaxValueLen)operator(,) operator(@)ident(MaxDataLen)operator(,)
       reserved(nil)operator(,) reserved(nil)operator(\)\)) reserved(then)
        ident(Exit)operator(;)

    reserved(if) operator(()ident(Info)operator(.)ident(NumValues) operator(>) integer(0)operator(\)) reserved(and) ident(SearchForValues) reserved(then)
      ident(ScanValues)operator(()ident(Key)operator(,) ident(Info)operator(\);)

    reserved(if) ident(Info)operator(.)ident(NumSubKeys) operator(<=) integer(0) reserved(then)
      ident(Exit)operator(;)

    ident(Len) operator(:=) ident(Info)operator(.)ident(MaxSubKeyLen) operator(+) integer(1)operator(;)
    ident(GetMem)operator(()ident(p)operator(,) ident(Len)operator(\);)

    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Info)operator(.)ident(NumSubKeys)operator(-)integer(1) reserved(do) reserved(begin)
      ident(l) operator(:=) ident(Len)operator(;)
      ident(RegEnumKeyEx)operator(()ident(Key)operator(,) ident(i)operator(,) ident(p)operator(,) ident(l)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(\);)
      reserved(if) ident(sfKeys) reserved(in) ident(SearchFor) reserved(then)
        reserved(if) ident(FoundInStr)operator(()ident(p)operator(\)) reserved(then) reserved(begin)
          ident(Inc)operator(()ident(KeysFound)operator(\);)
          ident(Add)operator(()ident(CurrentPath) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(p)operator(,) ident(iconKeyMiddle)operator(\);)
        reserved(end)operator(;)

      reserved(if) ident(Success)operator(()ident(RegOpenKey)operator(()ident(Key)operator(,) ident(p)operator(,) ident(NewKey)operator(\)\)) reserved(then) reserved(begin)
        ident(z) operator(:=) ident(Length)operator(()ident(CurrentPath)operator(\);)
        ident(CurrentPath) operator(:=) ident(CurrentPath) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(p)operator(;)

        reserved(try)
          ident(ScanKey)operator(()ident(NewKey)operator(,) ident(p)operator(\);)
        reserved(finally)
          ident(RegCloseKey)operator(()ident(NewKey)operator(\);)
        reserved(end)operator(;)

        ident(SetLength)operator(()ident(CurrentPath)operator(,) ident(z)operator(\);)
      reserved(end)operator(;)

      reserved(if) ident(Terminated) reserved(then) ident(Break)operator(;)
    reserved(end)operator(;)

    ident(FreeMem)operator(()ident(p)operator(,) ident(Len)operator(\);)
  reserved(end)operator(;)

reserved(begin)
  reserved(with) ident(TClock)operator(.)ident(Create) reserved(do) reserved(begin)
    ident(FindNode)operator(.)ident(Text) operator(:=) ident(FindNodeText) operator(+) string<delimiter(')content(: )delimiter(')>operator(;)

    reserved(try)
      reserved(if) ident(sfHKU) reserved(in) ident(SearchFor) reserved(then) reserved(begin)
        ident(CurrentPath) operator(:=) string<delimiter(')content(HKU)delimiter(')>operator(;)
        ident(ScanKey)operator(()ident(HKEY_USERS)operator(\);)
      reserved(end)operator(;)
      reserved(if) ident(sfHKLM) reserved(in) ident(SearchFor) reserved(then) reserved(begin)
        ident(CurrentPath) operator(:=) string<delimiter(')content(HKLM)delimiter(')>operator(;)
        ident(ScanKey)operator(()ident(HKEY_LOCAL_MACHINE)operator(\);)
      reserved(end)operator(;)
      reserved(if) ident(sfHKDD) reserved(in) ident(SearchFor) reserved(then) reserved(begin)
        ident(CurrentPath) operator(:=) string<delimiter(')content(HKDD)delimiter(')>operator(;)
        ident(ScanKey)operator(()ident(HKEY_DYN_DATA)operator(\);)
      reserved(end)operator(;)

      reserved(if) ident(SpecialPath) operator(<>) string<delimiter(')delimiter(')> reserved(then) reserved(begin)
        reserved(if) ident(Success)operator(()ident(RegOpenKey)operator(()ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(SpecialPath)operator(\)\),)
         ident(PChar)operator(()ident(ExRegKey)operator(()ident(SpecialPath)operator(\)\),) ident(SpecialKey)operator(\)\)) reserved(then) reserved(begin)
          ident(CurrentPath) operator(:=) ident(LWPSolve)operator(()ident(SpecialPath)operator(\);)
          ident(ScanKey)operator(()ident(SpecialKey)operator(\);)
          ident(RegCloseKey)operator(()ident(SpecialKey)operator(\);)
        reserved(end) reserved(else)
          ident(ShowMessage)operator(()string<delimiter(')content(Could not open)delimiter(')> operator(+) ident(EOL) operator(+)
                      ident(Quote)operator(()ident(SpecialPath)operator(\)\);)
      reserved(end)operator(;)
    reserved(except)
      ident(syncStatusText) operator(:=) char<delimiter(')content(()delimiter(')> operator(+) ident(IntToStr)operator(()ident(KeysScanned)operator(\)) operator(+) string<delimiter(')content( k\) )delimiter(')> operator(+) ident(CurrentPath) operator(+)
        string<delimiter(')content(Error --> Terminated.)delimiter(')>operator(;)
      ident(Synchronize)operator(()ident(UpdateStatus)operator(\);)
      ident(Sleep)operator(()integer(1000)operator(\);)
    reserved(end)operator(;)

    ident(TimeElapsed) operator(:=) ident(SecondsPassed)operator(;)
  ident(Free)operator(;) reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(StrOfSearchOptions)operator(()reserved(const) ident(Options)operator(:) ident(TSearchOptions)operator(\):) reserved(string)operator(;)

  reserved(procedure) ident(Add)operator(()reserved(const) ident(s)operator(:) reserved(string)operator(\);)
  reserved(begin)
    ident(Result) operator(:=) ident(Result) operator(+) ident(s)operator(;)
  reserved(end)operator(;)

  reserved(procedure) ident(AddOption)operator(()reserved(const) ident(Option)operator(:) reserved(string)operator(;) reserved(const) ident(Flag)operator(:) ident(TSearchVar)operator(;)
    reserved(const) ident(Optional)operator(:) ident(Boolean) operator(=) ident(False)operator(\);)
  reserved(begin)
    reserved(if) ident(Flag) reserved(in) ident(Options) reserved(then)
      ident(Add)operator(()ident(Option)operator(\))
    reserved(else)
      reserved(if) reserved(not) ident(Optional) reserved(then)
        ident(Add)operator(()char<delimiter(')content(^)delimiter(')> operator(+) ident(Option)operator(\);)
  reserved(end)operator(;)

reserved(begin)
  ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;)

  ident(Add)operator(()char<delimiter(')content([)delimiter(')>operator(\);)
  ident(AddOption)operator(()char<delimiter(')content(H)delimiter(')>operator(,) ident(sfAsHex)operator(,) ident(True)operator(\);)
  ident(AddOption)operator(()string<delimiter(')content(W )delimiter(')>operator(,) ident(sfWildcards)operator(,) ident(True)operator(\);)

  ident(AddOption)operator(()char<delimiter(')content(C)delimiter(')>operator(,) ident(sfIgnoreCase)operator(\);)
  ident(AddOption)operator(()char<delimiter(')content(L)delimiter(')>operator(,) ident(sfUseLocales)operator(\);)
  ident(AddOption)operator(()string<delimiter(')content(P )delimiter(')>operator(,) ident(sfParts)operator(\);)

  ident(AddOption)operator(()char<delimiter(')content(K)delimiter(')>operator(,) ident(sfKeys)operator(\);)
  ident(AddOption)operator(()char<delimiter(')content(N)delimiter(')>operator(,) ident(sfValueNames)operator(\);)
  ident(AddOption)operator(()string<delimiter(')content(D )delimiter(')>operator(,) ident(sfValueData)operator(\);)

  ident(AddOption)operator(()char<delimiter(')content(S)delimiter(')>operator(,) ident(sfString)operator(\);)
  ident(AddOption)operator(()char<delimiter(')content(D)delimiter(')>operator(,) ident(sfDWORD)operator(\);)
  ident(AddOption)operator(()char<delimiter(')content(O)delimiter(')>operator(,) ident(sfOtherTypes)operator(\);)
  ident(AddOption)operator(()char<delimiter(')content(?)delimiter(')>operator(,) ident(sfSpecialTypes)operator(\);)

  ident(Add)operator(()string<delimiter(')content(] [)delimiter(')>operator(\);)

  reserved(if) operator([)ident(sfHKU)operator(,) ident(sfHKLM)operator(,) ident(sfHKDD)operator(]) operator(<=) ident(Options) reserved(then)
    ident(Add)operator(()string<delimiter(')content(ALL)delimiter(')>operator(\))
  reserved(else) reserved(begin)
    ident(AddOption)operator(()string<delimiter(')content(HKU )delimiter(')>operator(,) ident(sfHKU)operator(,) ident(True)operator(\);)
    ident(AddOption)operator(()string<delimiter(')content(HKLM )delimiter(')>operator(,) ident(sfHKLM)operator(,) ident(True)operator(\);)
    ident(AddOption)operator(()string<delimiter(')content(HKDD )delimiter(')>operator(,) ident(sfHKDD)operator(,) ident(True)operator(\);)
    ident(Result) operator(:=) ident(TrimRight)operator(()ident(Result)operator(\);)
  reserved(end)operator(;)

  ident(Add)operator(()char<delimiter(')content(])delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TRegFindThread)operator(.)ident(Start)operator(;)
reserved(begin)
  ident(Mask) operator(:=) reserved(nil)operator(;)
  ident(KeysFound) operator(:=) integer(0)operator(;)
  ident(ValuesFound) operator(:=) integer(0)operator(;)
  ident(DataFound) operator(:=) integer(0)operator(;)
  ident(KeysScanned) operator(:=) integer(0)operator(;)

  comment(//Prepare for options)
  reserved(if) ident(sfAsHex) reserved(in) ident(SearchFor) reserved(then) reserved(begin)
    ident(SearchText) operator(:=) reserved(string)operator(()ident(ByteAOfHex)operator(()ident(SearchText)operator(\)\);)
    ident(SearchFor) operator(:=) ident(SearchFor) operator(-) operator([)ident(sfDWord)operator(,) ident(sfIgnoreCase)operator(];)
  reserved(end) reserved(else) reserved(begin)
    reserved(if) ident(SfUseLocales) reserved(in) ident(SearchFor) reserved(then)
      ident(SearchText) operator(:=) ident(AnsiLowerCase)operator(()ident(SearchText)operator(\);)

    ident(dwordVal) operator(:=) integer(0)operator(;)
    reserved(if) ident(sfDWord) reserved(in) ident(SearchFor) reserved(then)
      reserved(if) ident(IsValidInteger)operator(()ident(SearchText)operator(\)) reserved(then)
        ident(dwordVal) operator(:=) ident(StrToInt)operator(()ident(SearchText)operator(\))
      reserved(else)
        ident(Exclude)operator(()ident(SearchFor)operator(,) ident(sfDWord)operator(\);)

    reserved(if) ident(sfWildCards) reserved(in) ident(SearchFor) reserved(then)
      reserved(try)
        ident(Mask) operator(:=) ident(TMask)operator(.)ident(Create)operator(()ident(SearchText)operator(\);)
      reserved(except)
        ident(Mask)operator(.)ident(Free)operator(;)
        ident(Mask) operator(:=) reserved(nil)operator(;)
      reserved(end)operator(;)
  reserved(end)operator(;)

  ident(SearchForValues) operator(:=) operator(()ident(sfValueNames) reserved(in) ident(SearchFor)operator(\))
                  reserved(or) operator(()ident(sfValueData) reserved(in) ident(SearchFor)operator(\);)

  ident(FindNodeText) operator(:=) string<delimiter(')content(Find )delimiter(')> operator(+) ident(Quote)operator(()ident(FriendlyStr)operator(()ident(SearchText)operator(\)\)) operator(+) char<delimiter(')content( )delimiter(')> operator(+)
    ident(StrOfSearchOptions)operator(()ident(SearchFor)operator(\);)

  reserved(with) ident(ListTV)operator(.)ident(Items) reserved(do) reserved(begin)
    ident(BeginUpdate)operator(;)
    ident(FindNode) operator(:=) ident(AddChildObject)operator(()reserved(nil)operator(,) ident(FindNodeText) operator(+) string<delimiter(')content(...)delimiter(')>operator(,) reserved(nil)operator(\);)
    ident(FindNode)operator(.)ident(Data) operator(:=) ident(Self)operator(;)
    ident(SetTNImage)operator(()ident(FindNode)operator(,) ident(iconHostReg)operator(\);)
    ident(EndUpdate)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegFindThread)operator(.)ident(UpdateStatus)operator(;)
reserved(begin)
  ident(FindNode)operator(.)ident(Text) operator(:=) ident(FindNodeText) operator(+) char<delimiter(')content( )delimiter(')> operator(+) ident(syncStatusText)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegFindThread)operator(.)ident(Finish)operator(;)
reserved(var)
  ident(Found)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(ObjectsFound) operator(:=) ident(KeysFound) operator(+) ident(ValuesFound) operator(+) ident(DataFound)operator(;)

  ident(Found) operator(:=) ident(StrNumerus)operator(()ident(ObjectsFound)operator(,) string<delimiter(')content(object)delimiter(')>operator(,) string<delimiter(')content(objects)delimiter(')>operator(,) string<delimiter(')content(No)delimiter(')>operator(\);)
  reserved(if) ident(ObjectsFound) operator(<) integer(2) reserved(then)
    ident(Found) operator(:=) ident(Found) operator(+) string<delimiter(')content( found.)delimiter(')>
  reserved(else) reserved(begin)
    ident(Found) operator(:=) ident(Found) operator(+) string<delimiter(')content( found: )delimiter(')>operator(;)
    reserved(if) ident(KeysFound) operator(>) integer(0) reserved(then)
      ident(Found) operator(:=) ident(Found) operator(+) ident(StrNumerus)operator(()ident(KeysFound)operator(,) string<delimiter(')content(KeyName, )delimiter(')>operator(,) string<delimiter(')content(KeyNames, )delimiter(')>operator(,) string<delimiter(')content(No)delimiter(')>operator(\);)
    reserved(if) ident(ValuesFound) operator(>) integer(0) reserved(then)
      ident(Found) operator(:=) ident(Found) operator(+) ident(StrNumerus)operator(()ident(ValuesFound)operator(,) string<delimiter(')content(ValueName, )delimiter(')>operator(,) string<delimiter(')content(ValueNames, )delimiter(')>operator(,)
        string<delimiter(')content(No)delimiter(')>operator(\);)
    reserved(if) ident(DataFound) operator(>) integer(0) reserved(then)
      ident(Found) operator(:=) ident(Found) operator(+) ident(StrNumerus)operator(()ident(DataFound)operator(,) string<delimiter(')content(Data)delimiter(')>operator(,) string<delimiter(')content(Datas)delimiter(')>operator(,) string<delimiter(')content(No)delimiter(')>operator(\);)

    reserved(if) ident(RightStr)operator(()ident(Found)operator(,) integer(2)operator(\)) operator(=) string<delimiter(')content(, )delimiter(')> reserved(then)
      ident(Delete)operator(()ident(Found)operator(,) ident(Length)operator(()ident(Found)operator(\)) operator(-) integer(1)operator(,) integer(2)operator(\);)
  reserved(end)operator(;)

  ident(FindNode)operator(.)ident(Text) operator(:=) ident(FindNodeText) operator(+) ident(Format)operator(()string<delimiter(')content( OK (%0.1f s\) %s)delimiter(')>operator(,)
    operator([)ident(TimeElapsed)operator(,) ident(Found)operator(]\);)
reserved(end)operator(;)

reserved(end)operator(.)
reserved(unit) ident(FindWinU)operator(;)

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) ident(Dialogs)operator(,)
  ident(ComCtrls)operator(,) ident(StdCtrls)operator(,) ident(ExtCtrls)operator(,) ident(Clipbrd)operator(,) ident(NewPanels)operator(,) ident(plutoconst)operator(,) ident(FindTH)operator(,) ident(YTools)operator(,)
  ident(PrefTools)operator(,) ident(Menus)operator(,) ident(XReg)operator(,) ident(RangeEdit)operator(;)

reserved(type)
  ident(TFindWin) operator(=) reserved(class)operator(()ident(TForm)operator(\))
    ident(ListTV)operator(:) ident(TTreeView)operator(;)
    ident(FindP)operator(:) ident(TPanel)operator(;)
    ident(FindE)operator(:) ident(TEdit)operator(;)
    ident(ColorPanel1)operator(:) ident(TColorPanel)operator(;)
    ident(ResultsPopup)operator(:) ident(TPopupMenu)operator(;)
    ident(Copy1)operator(:) ident(TMenuItem)operator(;)
    ident(ColorPanel2)operator(:) ident(TColorPanel)operator(;)
    ident(FindPrefP)operator(:) ident(TPanel)operator(;)
    ident(CommonGB)operator(:) ident(TGroupBox)operator(;)
    ident(Label4)operator(:) ident(TLabel)operator(;)
    ident(SfWildCardsCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfPartsCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfIgnoreCaseCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfAsHexCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfAsDWord)operator(:) ident(TCheckBox)operator(;)
    ident(SfUseLocalesCB)operator(:) ident(TCheckBox)operator(;)
    ident(FindGB)operator(:) ident(TGroupBox)operator(;)
    ident(SfHKUCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfHKLMCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfHKDDCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfRootKeyRB)operator(:) ident(TRadioButton)operator(;)
    ident(SfCurKeyRB)operator(:) ident(TRadioButton)operator(;)
    ident(SfCLSIDCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfInterfaceCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfKeysCb)operator(:) ident(TCheckBox)operator(;)
    ident(SfValuesCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfDataCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfStringCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfOtherCB)operator(:) ident(TCheckBox)operator(;)
    ident(SfDWordCB)operator(:) ident(TCheckBox)operator(;)
    ident(Panel2)operator(:) ident(TPanel)operator(;)
    ident(GroupBox1)operator(:) ident(TGroupBox)operator(;)
    ident(Label1)operator(:) ident(TLabel)operator(;)
    ident(ThreadPriorityComB)operator(:) ident(TComboBox)operator(;)
    ident(ProgressRG)operator(:) ident(TRadioGroup)operator(;)
    ident(Panel5)operator(:) ident(TPanel)operator(;)
    ident(BorderPanel1)operator(:) ident(TBorderPanel)operator(;)
    ident(MoleLogoI)operator(:) ident(TImage)operator(;)
    ident(TypeRangeE)operator(:) ident(TRangeEdit)operator(;)
    ident(SfTypesCB)operator(:) ident(TCheckBox)operator(;)
    ident(Panel1)operator(:) ident(TPanel)operator(;)
    ident(TransparentCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(StayOnTopCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(FindB)operator(:) ident(TButton)operator(;)
    ident(FindPrefB)operator(:) ident(TButton)operator(;)
    reserved(procedure) ident(FindBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ListTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(FindEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(SfWildCardsCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(StayOnTopCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SfRootKeysUpdate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FindPrefBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(procedure) ident(CloseFindPrefP)operator(;)
    reserved(procedure) ident(OpenFindPrefP)operator(;)
    reserved(procedure) ident(FindEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SfDataCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ListTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SfAsHexCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(Copy1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SfIgnoreCaseCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SfTypesCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
  reserved(end)operator(;)

reserved(const)
  ident(fpbOpen) operator(=) integer(0)operator(;)
  ident(fpbCloseCaption) operator(=) string<delimiter(')content(Params &<<)delimiter(')>operator(;)

  ident(fpbClosed) operator(=) integer(1)operator(;)
  ident(fpbOpenCaption) operator(=) string<delimiter(')content(Params &>>)delimiter(')>operator(;)

reserved(var)
  ident(FindWin)operator(:) ident(TFindWin)operator(;)

reserved(implementation)

reserved(uses) ident(plutomain)operator(,) ident(PrefU)operator(,) ident(ValuesU)operator(;)

preprocessor({$R *.DFM})

reserved(procedure) ident(TFindWin)operator(.)ident(FindBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(SearchFor)operator(:) ident(TSearchOptions)operator(;)
  ident(FindThread)operator(:) ident(TRegFindThread)operator(;)

  reserved(procedure) ident(AddOption)operator(()ident(CheckBox)operator(:) ident(TCustomCheckBox)operator(;) ident(Flag)operator(:) ident(TSearchVar)operator(\);)
  reserved(begin)
    reserved(with) ident(CheckBox) reserved(as) ident(TCheckBox) reserved(do)
      reserved(if) ident(Enabled) reserved(and) ident(Checked) reserved(then)
        ident(Include)operator(()ident(SearchFor)operator(,) ident(Flag)operator(\);)
  reserved(end)operator(;)

reserved(begin)
  ident(SearchFor) operator(:=) operator([];)

  ident(AddOption)operator(()ident(SfKeysCB)operator(,) ident(sfKeys)operator(\);)

  ident(AddOption)operator(()ident(SfValuesCB)operator(,) ident(sfValueNames)operator(\);)
  ident(AddOption)operator(()ident(SfDataCB)operator(,) ident(sfValueData)operator(\);)

  ident(AddOption)operator(()ident(SfStringCB)operator(,) ident(sfString)operator(\);)
  ident(AddOption)operator(()ident(SfDWordCB)operator(,) ident(sfDWord)operator(\);)
  ident(AddOption)operator(()ident(SfOtherCB)operator(,) ident(sfOtherTypes)operator(\);)

  reserved(if) ident(SfRootKeyRB)operator(.)ident(Checked) reserved(then) reserved(begin)
    ident(AddOption)operator(()ident(SfHKUCB)operator(,) ident(sfHKU)operator(\);)
    ident(AddOption)operator(()ident(SfHKLMCB)operator(,) ident(sfHKLM)operator(\);)
    ident(AddOption)operator(()ident(SfHKDDCB)operator(,) ident(sfHKDD)operator(\);)
  reserved(end)operator(;)

  ident(AddOption)operator(()ident(SfAsHexCB)operator(,) ident(sfAsHex)operator(\);)
  ident(AddOption)operator(()ident(SfWildCardsCB)operator(,) ident(sfWildCards)operator(\);)
  ident(AddOption)operator(()ident(SfPartsCB)operator(,) ident(sfParts)operator(\);)
  ident(AddOption)operator(()ident(SfIgnoreCaseCB)operator(,) ident(sfIgnoreCase)operator(\);)
  ident(AddOption)operator(()ident(SfUseLocalesCB)operator(,) ident(sfUseLocales)operator(\);)

  comment({AddOption(SfCLSIDCB, sfCLSID\);
  AddOption(SfInterfaceCB, sfInterface\);})

  reserved(if) ident(SfTypesCB)operator(.)ident(Checked) reserved(and) reserved(not) ident(TypeRangeE)operator(.)ident(RangeMaximal) reserved(then)
    ident(Include)operator(()ident(SearchFor)operator(,) ident(sfSpecialTypes)operator(\);)

  ident(FindThread) operator(:=) ident(TRegFindThread)operator(.)ident(CreateIt)operator(()
    ident(TThreadPriority)operator(()ident(ThreadPriorityComB)operator(.)ident(ItemIndex)operator(\),) ident(FindE)operator(.)ident(Text)operator(,) ident(SearchFor)operator(,)
      ident(TFindThreadProgress)operator(()ident(ProgressRG)operator(.)ident(ItemIndex)operator(\)\);)

  ident(FindThread)operator(.)ident(ListTV) operator(:=) ident(ListTV)operator(;)

  reserved(if) ident(sfSpecialTypes) reserved(in) ident(SearchFor) reserved(then)
    ident(FindThread)operator(.)ident(Ranges) operator(:=) ident(TypeRangeE)operator(.)ident(Value)operator(;)

  reserved(if) ident(SfCurKeyRB)operator(.)ident(Checked) reserved(then)
    ident(FindThread)operator(.)ident(SpecialPath) operator(:=)
      ident(LWPSolve)operator(()ident(StrOfRegPath)operator(()ident(CurKey)operator(()ident(uhNonSystemShortcuts)operator(\)\)\);)

  ident(FindThread)operator(.)ident(Resume)operator(;)
  ident(CloseFindPrefP)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(ListTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)

  reserved(procedure) ident(TerminateFindThread)operator(;)
  reserved(var)
    ident(FindThread)operator(:) ident(TRegFindThread)operator(;)
  reserved(begin)
    reserved(if) operator(()ident(Node)operator(.)ident(Level) operator(=) integer(0)operator(\)) reserved(then) reserved(begin)
      ident(FindThread) operator(:=) ident(TRegFindThread)operator(()ident(Node)operator(.)ident(Data)operator(\);)
      reserved(if) reserved(not) ident(Assigned)operator(()ident(FindThread)operator(\)) reserved(then)
        ident(Node)operator(.)ident(Delete)
      reserved(else)
        reserved(try)
          ident(FindThread)operator(.)ident(Terminate)operator(;)
        reserved(except)
          ident(Node)operator(.)ident(Text) operator(:=) string<delimiter(')content(Error: couldn)char('')content(t terminate thread!)delimiter(')>operator(;)
        reserved(end)operator(;)
    reserved(end) reserved(else)
      ident(Node)operator(.)ident(Delete)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(Node) operator(:=) ident(ListTV)operator(.)ident(Selected)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(case) ident(Key) reserved(of)
    ident(VK_F12)operator(:) reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(then)
      ident(Node)operator(.)ident(Parent)operator(.)ident(AlphaSort)operator(;)

    ident(VK_RETURN)operator(:) ident(ListTVDblClick)operator(()ident(Sender)operator(\);)

    ident(VK_DELETE)operator(:) ident(TerminateFindThread)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(FindEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) ident(Key) operator(=) ident(VK_RETURN) reserved(then)
    ident(FindBClick)operator(()ident(Sender)operator(\);)

  reserved(if) ident(Key) operator(=) ident(VK_UP) reserved(then) reserved(begin)
    ident(CloseFindPrefP)operator(;)
    ident(Key) operator(:=) integer(0)operator(;)
  reserved(end) reserved(else) reserved(if) ident(Key) operator(=) ident(VK_Down) reserved(then) reserved(begin)
    ident(OpenFindPrefP)operator(;)
    ident(Key) operator(:=) integer(0)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ActivateThis)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(DeActivateThis)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then)
    ident(DeActivateThis)operator(()ident(ActiveControl)operator(\);)

  ident(AlphaBlend) operator(:=) ident(TransparentCB)operator(.)ident(Checked)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then)
    ident(ActivateThis)operator(()ident(ActiveControl)operator(\);)

  ident(AlphaBlend) operator(:=) ident(False)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) ident(Key) operator(=) ident(VK_ESCAPE) reserved(then)
    ident(Close)operator(;)
  ident(MainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(,) ident(Key)operator(,) ident(Shift)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(SfWildCardsCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(SfPartsCB)operator(.)ident(Enabled) operator(:=) reserved(not) ident(SfWildcardsCB)operator(.)ident(Checked)operator(;)
  ident(SfIgnoreCaseCB)operator(.)ident(Enabled) operator(:=) reserved(not) ident(SfWildcardsCB)operator(.)ident(Checked)operator(;)
  ident(SfUseLocalesCB)operator(.)ident(Enabled) operator(:=) ident(SfIgnoreCaseCB)operator(.)ident(Checked) reserved(and) reserved(not) ident(SfWildcardsCB)operator(.)ident(Checked)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(StayOnTopCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(StayOnTopCB)operator(.)ident(Checked) reserved(then)
    ident(FormStyle) operator(:=) ident(fsStayOnTop)
  reserved(else)
    ident(FormStyle) operator(:=) ident(fsNormal)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(SfRootKeysUpdate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(SfRootKeyRB) reserved(do) reserved(begin)
    ident(SfHKLMCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;)
    ident(SfHKUCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;)
    ident(SfHKDDCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(FindPrefBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(case) ident(FindPrefB)operator(.)ident(Tag) reserved(of)
    ident(fpbOpen)operator(:)
      ident(CloseFindPrefP)operator(;)
    ident(fpbClosed)operator(:)
      ident(OpenFindPrefP)operator(;)
  reserved(else)
    ident(ShowMessage)operator(()string<delimiter(')content(Fehler: FindPrefB hat unbekanntes Tag)delimiter(')>operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(CloseFindPrefP)operator(;)
reserved(begin)
  reserved(with) ident(FindPrefB) reserved(do) reserved(begin)
    ident(Tag) operator(:=) ident(fpbClosed)operator(;)
    ident(Caption) operator(:=) ident(fpbOpenCaption)operator(;)
  reserved(end)operator(;)
  ident(FindPrefP)operator(.)ident(Visible) operator(:=) ident(False)operator(;)
  ident(ListTV)operator(.)ident(Repaint)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(OpenFindPrefP)operator(;)
reserved(begin)
  reserved(with) ident(FindPrefB) reserved(do) reserved(begin)
    ident(Tag) operator(:=) ident(fpbOpen)operator(;)
    ident(Caption) operator(:=) ident(fpbCloseCaption)operator(;)
  reserved(end)operator(;)
  ident(FindPrefP)operator(.)ident(Visible) operator(:=) ident(True)operator(;)
  ident(ListTV)operator(.)ident(Repaint)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(FindEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(IsValidInteger)operator(()ident(FindE)operator(.)ident(Text)operator(\)) reserved(then)
    ident(SfDWORDCB)operator(.)ident(Caption) operator(:=) string<delimiter(')content(D&WORD OK)delimiter(')>
  reserved(else)
    ident(SfDWORDCB)operator(.)ident(Caption) operator(:=) string<delimiter(')content(D&WORD ??)delimiter(')>operator(;)

  ident(SfAsHexCB)operator(.)ident(Enabled) operator(:=) operator(()ident(FindE)operator(.)ident(Text) operator(<>) string<delimiter(')delimiter(')>operator(\))
    reserved(and) reserved(not) ident(CharIn)operator(()ident(FindE)operator(.)ident(Text)operator(,) ident(AllChars) operator(-) ident(HexadecimalChars) operator(-) operator([)char<delimiter(')content( )delimiter(')>operator(]\);)
  ident(SfAsDWord)operator(.)ident(Enabled) operator(:=) ident(SfAsHexCB)operator(.)ident(Enabled) reserved(and) operator(()ident(Length)operator(()ident(TrimAll)operator(()ident(FindE)operator(.)ident(Text)operator(\)\)) operator(<) integer(8)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(SfDataCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(SfDataCB) reserved(do) reserved(begin)
    ident(SfStringCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;)
    ident(SfDWordCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;)
    ident(SfOtherCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(ListTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(ListTV)operator(.)ident(Selected)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(or) operator(()ident(Node)operator(.)ident(Level) operator(=) integer(0)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(MainWin)operator(.)ident(GotoKey)operator(()ident(UntilLastChar)operator(()ident(Node)operator(.)ident(Text)operator(,) char<delimiter(')content(=)delimiter(')>operator(\)\))
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(SfAsHexCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(SfAsHexCB) reserved(do) reserved(begin)
    ident(SfIgnoreCaseCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;)
    ident(SfWildCardsCB)operator(.)ident(Enabled) operator(:=) ident(Checked)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(Copy1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(ListTV)operator(.)ident(Selected)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(Node)operator(.)ident(Text)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(SfIgnoreCaseCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(SfUseLocalesCB)operator(.)ident(Enabled) operator(:=) ident(SfIgnoreCaseCB)operator(.)ident(Checked)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(ImageFile)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(Caption) operator(:=) string<delimiter(')content(Pluto.RegMole )delimiter(')> operator(+) ident(RegMoleVersion) operator(+)
    string<delimiter(')content( - The fastest registry search engine for Win9x)delimiter(')>operator(;)

  ident(ImageFile) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(mole.bmp)delimiter(')>operator(;)
  reserved(if) ident(FileExists)operator(()ident(ImageFile)operator(\)) reserved(then)
    ident(MoleLogoI)operator(.)ident(Picture)operator(.)ident(LoadFromFile)operator(()ident(ImageFile)operator(\);)

  ident(Width) operator(:=) ident(Screen)operator(.)ident(WorkAreaWidth) operator(-) integer(100)operator(;)

  ident(CloseFindPrefP)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(Top) operator(:=) ident(Screen)operator(.)ident(WorkAreaHeight) operator(-) integer(450)operator(;)
  ident(Height) operator(:=) ident(Screen)operator(.)ident(WorkAreaHeight) operator(-) ident(Top)operator(;)
  ident(Left) operator(:=) operator(()ident(Screen)operator(.)ident(WorkAreaWidth) operator(-) ident(Width)operator(\)) reserved(div) integer(2)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TFindWin)operator(.)ident(SfTypesCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(TypeRangeE)operator(.)ident(Enabled) operator(:=) ident(SfTypesCB)operator(.)ident(Checked)operator(;)
reserved(end)operator(;)

reserved(end)operator(.)
reserved(unit) ident(Plutoconst)operator(;)

reserved(interface)

reserved(uses) ident(ComCtrls)operator(,) ident(Classes)operator(,) ident(XReg)operator(,) ident(UniKey)operator(,) ident(YTools)operator(;)

reserved(var)
  ident(Started)operator(:) ident(Boolean) operator(=) ident(False)operator(;)
  ident(MurphyMode)operator(:) ident(Boolean) operator(=) ident(False)operator(;)
  ident(PlutoKey)operator(:) ident(TUniKey)operator(;)

reserved(const)
  ident(Version) operator(=) string<delimiter(')content(1.6 -nium Alpha)delimiter(')>operator(;)
  ident(Overnight) operator(=) ident(True)operator(;)
  ident(Codename) operator(=) string<delimiter(')content(Phoenix)delimiter(')>operator(;)
  comment(//Generation.Version-Release-Beta)
  comment(//                   GG.VVRRBB)
  ident(VersionNum)operator(:) ident(Double) operator(=)  float(1.600000)operator(;)
  comment(//Must be Double!)

reserved(const)
  ident(iconKey) operator(=)         integer(0)operator(;)

  ident(iconFirstHKEY) operator(=)   integer(2)operator(;)
  ident(iconHKLM) operator(=)        ident(iconFirstHKEY)operator(;)
  ident(iconHKU) operator(=)         ident(iconFirstHKEY) operator(+) integer(2)operator(;)

  ident(iconFirstShortcut) operator(=) ident(iconFirstHKEY) operator(+) integer(4)operator(;)
  ident(iconHKCC) operator(=)        ident(iconFirstShortcut)operator(;)
  ident(iconHKCU) operator(=)        ident(iconFirstShortcut) operator(+)  integer(2)operator(;)
  ident(iconHKCR) operator(=)        ident(iconFirstShortcut) operator(+)  integer(4)operator(;)
  ident(iconHKDD) operator(=)        ident(iconFirstShortcut) operator(+)  integer(6)operator(;)
  ident(iconHKPD) operator(=)        ident(iconFirstShortcut) operator(+)  integer(8)operator(;)
  ident(iconHKWM) operator(=)        ident(iconFirstShortcut) operator(+) integer(10)operator(;)
  ident(iconHKWU) operator(=)        ident(iconFirstShortcut) operator(+) integer(12)operator(;)
  ident(iconShortcut) operator(=)    ident(iconFirstShortcut) operator(+) integer(14)operator(;)
  ident(nHKeyIcons) operator(=)      integer(16)operator(;)

  ident(iconFirstType) operator(=)   ident(iconFirstShortcut) operator(+) ident(nHKeyIcons)operator(;)
  ident(iconNone) operator(=)        ident(iconFirstType) operator(+)  integer(0)operator(;)
  ident(iconString) operator(=)      ident(iconFirstType) operator(+)  integer(1)operator(;)
  ident(iconExpandString) operator(=)ident(iconFirstType) operator(+)  integer(2)operator(;)
  ident(iconBinary) operator(=)      ident(iconFirstType) operator(+)  integer(3)operator(;)
  ident(iconCardinal) operator(=)    ident(iconFirstType) operator(+)  integer(4)operator(;)
  ident(iconCardBigEndian)operator(=)ident(iconFirstType) operator(+)  integer(5)operator(;)
  ident(iconLink) operator(=)        ident(iconFirstType) operator(+)  integer(6)operator(;)
  ident(iconMultiString) operator(=) ident(iconFirstType) operator(+)  integer(7)operator(;)
  ident(iconResList) operator(=)     ident(iconFirstType) operator(+)  integer(8)operator(;)
  ident(iconFullResDesc) operator(=) ident(iconFirstType) operator(+)  integer(9)operator(;)
  ident(iconResReqList) operator(=)  ident(iconFirstType) operator(+) integer(10)operator(;)
  ident(iconUnknownType) operator(=) ident(iconFirstType) operator(+) integer(11)operator(;)
  ident(nTypeIcons) operator(=)      integer(12)operator(;)

  ident(iconFirstValue) operator(=) ident(iconFirstType) operator(+) ident(nTypeIcons)operator(;)
  ident(iconValueElse) operator(=) ident(iconFirstValue)operator(;)
  ident(iconValueEdit) operator(=) ident(iconFirstValue) operator(+) integer(1)operator(;)
  ident(iconValueEditBinary) operator(=) ident(iconFirstValue) operator(+) integer(2)operator(;)
  ident(iconValueZeromize) operator(=) ident(iconFirstValue) operator(+) integer(3)operator(;)
  ident(iconValueDublicate) operator(=) ident(iconFirstValue) operator(+) integer(4)operator(;)
  ident(iconMainValue) operator(=) ident(iconFirstValue) operator(+) integer(5)operator(;)
  ident(iconTakeAsMainValue) operator(=) ident(iconFirstValue) operator(+) integer(6)operator(;)
  ident(nValueIcons) operator(=)     integer(7)operator(;)

  ident(iconFirstKey) operator(=)    ident(iconFirstValue) operator(+) ident(nValueIcons)operator(;)
  ident(iconKeyInfos) operator(=)    ident(iconFirstKey)operator(;)
  ident(iconSubKey) operator(=)   ident(iconFirstKey) operator(+) integer(1)operator(;)
  ident(iconKeyDublicate) operator(=) ident(iconFirstKey) operator(+) integer(2)operator(;)
  ident(iconKeyFind) operator(=) ident(iconFirstKey) operator(+) integer(3)operator(;)
  ident(iconKeyTrace) operator(=) ident(iconFirstKey) operator(+) integer(4)operator(;)
  ident(nKeyIcons) operator(=) integer(5)operator(;)

  ident(iconFirstContextMenues) operator(=) ident(iconFirstKey) operator(+) ident(nKeyIcons)operator(;)
  ident(iconRename) operator(=) ident(iconFirstContextMenues)operator(;)
  ident(iconDelete) operator(=) ident(iconFirstContextMenues) operator(+) integer(1)operator(;)
  ident(nContextMenuesIcon) operator(=) integer(2)operator(;)

  ident(iconFirstIni) operator(=)    ident(iconFirstContextMenues) operator(+) ident(nContextMenuesIcon)operator(;)
  ident(iconIniSection) operator(=)  ident(iconFirstIni)operator(;)
  ident(nIniIcons) operator(=)       integer(1)operator(;)

  ident(iconFirstHost) operator(=)   ident(iconFirstIni) operator(+) ident(nIniIcons)operator(;)
  ident(iconHostReg) operator(=)     ident(iconFirstHost)operator(;)
  ident(iconHostIni) operator(=)     ident(iconFirstHost) operator(+) integer(1)operator(;)
  ident(iconHostUni) operator(=)     ident(iconFirstHost) operator(+) integer(2)operator(;)
  ident(iconHostUni2) operator(=)    ident(iconFirstHost) operator(+) integer(3)operator(;)
  ident(nHostIcons) operator(=)      integer(4)operator(;)

  ident(iconFirstOther) operator(=)  ident(iconFirstHost) operator(+) ident(nHostIcons)operator(;)

  ident(iconSortArrowAsc) operator(=)   ident(iconFirstOther) operator(+) integer(0)operator(;)
  ident(iconSortArrowDesc) operator(=)  ident(iconFirstOther) operator(+) integer(1)operator(;)
  ident(iconKeyMiddle) operator(=)      ident(iconFirstOther) operator(+) integer(2)operator(;)
  ident(iconLock) operator(=)           ident(iconFirstOther) operator(+) integer(3)operator(;)

  comment(//iconDefect =      iconFirstOther;)

  comment({ WorkWin.ChangeImages })
  ident(iconFirstChange) operator(=)  integer(0)operator(;)
  ident(iconCKeyPlus) operator(=)     ident(iconFirstChange)operator(;)
  ident(iconCKeyMinus) operator(=)    ident(iconFirstChange) operator(+) integer(1)operator(;)
  ident(iconCValuePlus) operator(=)   ident(iconFirstChange) operator(+) integer(2)operator(;)
  ident(iconCValueMinus) operator(=)  ident(iconFirstChange) operator(+) integer(3)operator(;)
  ident(iconCContext) operator(=)     ident(iconFirstChange) operator(+) integer(4)operator(;)
  ident(iconOldContext) operator(=)   ident(iconFirstChange) operator(+) integer(5)operator(;)
  ident(iconNewContext) operator(=)   ident(iconFirstChange) operator(+) integer(6)operator(;)
  ident(iconGroup) operator(=)        ident(iconFirstChange) operator(+) integer(7)operator(;)
  ident(iconGroupBlinking) operator(=)   ident(iconFirstChange) operator(+) integer(8)operator(;)
  ident(nChangeIcons) operator(=)    integer(7)operator(;)

  ident(DefaultValueFlag) operator(=) ident(Pointer)operator(()integer(1)operator(\);)
  ident(MultiEditFlag) operator(=) ident(Pointer)operator(()integer(2)operator(\);)
  
  ident(NoValueCaption) operator(=) string<delimiter(')content([No Value])delimiter(')>operator(;)

  ident(EditControlFlag) operator(=) integer(100)operator(;)

  ident(MaxPreviewLen) operator(=) integer(255)operator(;)
  ident(RegMaxDataSize) operator(=) hex($FFFF)operator(;) comment(//64 KB)

reserved(const)
  ident(BoolStrFileName) operator(=) string<delimiter(')content(Boolean Strings.txt)delimiter(')>operator(;)
  ident(ShortcutsFileName) operator(=) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(;)
  ident(StandardShortcutsFileName) operator(=) string<delimiter(')content(StandardShortcuts.ini)delimiter(')>operator(;)
  ident(SisyFilterFileName) operator(=) string<delimiter(')content(sisy filter.txt)delimiter(')>operator(;)

  ident(clDarkGray) operator(=) hex($00404040)operator(;)
  ident(clBrightRed) operator(=) hex($00BBBBFF)operator(;)
  ident(clVeryBrightRed) operator(=) hex($00DDDDFF)operator(;)
  ident(clBrightBlue) operator(=) hex($00FFBBBB)operator(;)
  ident(clBrightGreen) operator(=) hex($00BBFFBB)operator(;)
  ident(clCyan) operator(=) hex($00FFFF44)operator(;)
  ident(clBrightCyan) operator(=) hex($00FFFFBB)operator(;)
  ident(clVeryBrightCyan) operator(=) hex($00FFFFDD)operator(;)
  ident(clBrightYellow) operator(=) hex($00BBFFFF)operator(;)
  ident(clVeryBrightYellow) operator(=) hex($00DDFFFF)operator(;)
  ident(clBrightPurple) operator(=) hex($00FFBBFF)operator(;)
  ident(clBrightSilver) operator(=) hex($00DDDDDD)operator(;)
  ident(clGold) operator(=) hex($0055CCEE)operator(;)

  ident(clVeryBrightBlue) operator(=) hex($00FFDDDD)operator(;)

reserved(type)
  ident(TValueListColumn) operator(=) operator(()ident(vlcName)operator(,) ident(vlcSize)operator(,) ident(vlcType)operator(,) ident(vlcData)operator(\);)

reserved(const)
  ident(ValueListColumnRange) operator(=) operator([)ident(Low)operator(()ident(TValueListColumn)operator(\)..)ident(High)operator(()ident(TValueListColumn)operator(\)];)

reserved(type)
  ident(TSearchVar) operator(=) operator(()ident(sfKeys)operator(,) ident(sfValueNames)operator(,) ident(sfValueData)operator(,)
                ident(sfAsHex)operator(,) ident(sfAsDWord)operator(,)
                ident(sfWildCards)operator(,) ident(sfParts)operator(,) ident(sfIgnoreCase)operator(,) ident(SfUseLocales)operator(,)
                ident(sfHKU)operator(,) ident(sfHKLM)operator(,) ident(sfHKDD)operator(,//) ident(sfCLSID)operator(,) ident(sfInterface)operator(,)
                ident(sfString)operator(,) ident(sfDWord)operator(,) ident(sfOtherTypes)operator(,) ident(sfSpecialTypes)operator(\);)

  ident(TSearchOptions) operator(=) reserved(set) reserved(of) ident(TSearchVar)operator(;)

  comment(//be carefull: used in with!)
  ident(TKeyShortcut) operator(=) reserved(record)
    ident(Alias)operator(:) reserved(string)operator(;)
    ident(RealPath)operator(:) reserved(string)operator(;)
    ident(Node)operator(:) ident(TTreeNode)operator(;)
  reserved(end)operator(;)
  ident(PKeyShortcut) operator(=) operator(^)ident(TKeyShortcut)operator(;)
  ident(TShortcutA) operator(=) reserved(array) reserved(of) ident(TKeyShortcut)operator(;)

  ident(TOpenNode) operator(=) reserved(function) operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;)
  ident(TCheckNode) operator(=) reserved(procedure) operator(()ident(Node)operator(:) ident(TTreeNode)operator(;) ident(OnlyOnce)operator(:) ident(Boolean) operator(=) ident(True)operator(\);)

  comment(//NodeInfo System)
  ident(TNodeFlag) operator(=) operator(()ident(nfDefect)operator(,) ident(nfReadOnly)operator(,) ident(nfChecked)operator(,)
    ident(nfCopy)operator(,) ident(nfCut)operator(,) ident(nfPaste)operator(\);)
  ident(TNodeFlags) operator(=) reserved(set) reserved(of) ident(TNodeFlag)operator(;)

  ident(TUniHostType) operator(=) operator(()ident(uhNone)operator(,)
                  ident(uhReg)operator(,) ident(uhIni)operator(,) ident(uhRegFile)operator(,)
                  ident(uhUserShortcut)operator(,) ident(uhStandardShortcut)operator(,) ident(uhSystemShortcut)operator(\);)
  ident(TUniHostTypes) operator(=) reserved(set) reserved(of) ident(TUniHostType)operator(;)

reserved(const)
  ident(uhShortcuts) operator(=) operator([)ident(uhUserShortcut)operator(,) ident(uhStandardShortcut)operator(,) ident(uhSystemShortcut)operator(];)
  ident(uhNonSystemShortcuts) operator(=) operator([)ident(uhUserShortcut)operator(,) ident(uhStandardShortcut)operator(];)

  ident(NodeFlagStrings)operator(:) reserved(array)operator([)ident(TNodeFlag)operator(]) reserved(of) reserved(string) operator(=) operator(()
    string<delimiter(')content(nfDefect)delimiter(')>operator(,) string<delimiter(')content(nfReadOnly)delimiter(')>operator(,) string<delimiter(')content(nfChecked)delimiter(')>operator(,)
    string<delimiter(')content(nfCopy)delimiter(')>operator(,) string<delimiter(')content(nfCut)delimiter(')>operator(,) string<delimiter(')content(nfPaste)delimiter(')>operator(\);)

  ident(HostTypeStrings)operator(:) reserved(array)operator([)ident(TUniHostType)operator(]) reserved(of) reserved(string) operator(=) operator(()string<delimiter(')content(uhNone)delimiter(')>operator(,)
    string<delimiter(')content(uhReg)delimiter(')>operator(,) string<delimiter(')content(uhIni)delimiter(')>operator(,) string<delimiter(')content(uhRegFile)delimiter(')>operator(,)
    string<delimiter(')content(uhUserShortcut)delimiter(')>operator(,) string<delimiter(')content(uhStandardShortcut)delimiter(')>operator(,) string<delimiter(')content(uhSystemShortcut)delimiter(')>operator(\);)

reserved(type)
  ident(TNodeInfo) operator(=) reserved(packed) reserved(class)
  directive(public)
    ident(HostType)operator(:) ident(TUniHostType)operator(;)
    ident(Flags)operator(:) ident(TNodeFlags)operator(;)
    reserved(constructor) ident(Create)operator(()ident(HostType)operator(:) ident(TUniHostType) operator(=) ident(uhNone)operator(;) ident(Flags)operator(:) ident(TNodeFlags) operator(=) operator([]\);)

    reserved(procedure) ident(IncludeFlag)operator(()ident(Flag)operator(:) ident(TNodeFlag)operator(\);)
    reserved(procedure) ident(ExcludeFlag)operator(()ident(Flag)operator(:) ident(TNodeFlag)operator(\);)

    reserved(function) ident(IsHost)operator(:) ident(Boolean)operator(;)
    reserved(function) ident(IsShortcut)operator(:) ident(Boolean)operator(;)

    reserved(function) ident(ReadOnly)operator(:) ident(Boolean)operator(;)
    reserved(function) ident(Checked)operator(:) ident(Boolean)operator(;)
    reserved(function) ident(Defect)operator(:) ident(Boolean)operator(;)
  reserved(end)operator(;)

reserved(function) ident(NodeInfo)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(TNodeInfo)operator(;)
reserved(procedure) ident(ReportStatus)operator(()reserved(const) ident(s)operator(:) reserved(string)operator(\);)

reserved(const)
  ident(PlatformStrings)operator(:) reserved(array)operator([)integer(0)operator(..)integer(2)operator(]) reserved(of) reserved(string) operator(=)
    operator(()string<delimiter(')content(VER_PLATFORM_WIN32s)delimiter(')>operator(,) string<delimiter(')content(VER_PLATFORM_WIN32_WINDOWS)delimiter(')>operator(,) string<delimiter(')content(VER_PLATFORM_WIN32_NT)delimiter(')>operator(\);)

reserved(var)
  ident(PlutoDir)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(;)

reserved(implementation)

reserved(uses) ident(SysUtils)operator(;)

reserved(function) ident(NodeInfo)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(TNodeInfo)operator(;)
reserved(begin)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) reserved(begin)
    ident(Result) operator(:=) reserved(nil)operator(;)
  ident(Exit) reserved(end)operator(;)

  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(.)ident(Data)operator(\)) reserved(then)
    ident(Node)operator(.)ident(Data) operator(:=) ident(TNodeInfo)operator(.)ident(Create)operator(;)
  ident(Result) operator(:=) ident(TNodeInfo)operator(()ident(Node)operator(.)ident(Data)operator(\);)
reserved(end)operator(;)

comment({ TNodeInfo })

reserved(constructor) ident(TNodeInfo)operator(.)ident(Create)operator(()ident(HostType)operator(:) ident(TUniHostType)operator(;) ident(Flags)operator(:) ident(TNodeFlags)operator(\);)
reserved(begin)
  reserved(inherited) ident(Create)operator(;)
  ident(Self)operator(.)ident(HostType) operator(:=) ident(HostType)operator(;)
  ident(Self)operator(.)ident(Flags) operator(:=) ident(Flags)operator(;)
reserved(end)operator(;)

reserved(function) ident(TNodeInfo)operator(.)ident(Checked)operator(:) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(nfChecked) reserved(in) ident(Flags)operator(;)
reserved(end)operator(;)

reserved(function) ident(TNodeInfo)operator(.)ident(ReadOnly)operator(:) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(nfReadOnly) reserved(in) ident(Flags)operator(;)
reserved(end)operator(;)

reserved(function) ident(TNodeInfo)operator(.)ident(Defect)operator(:) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(nfDefect) reserved(in) ident(Flags)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TNodeInfo)operator(.)ident(IncludeFlag)operator(()ident(Flag)operator(:) ident(TNodeFlag)operator(\);)
reserved(begin)
  ident(Include)operator(()ident(Flags)operator(,) ident(Flag)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TNodeInfo)operator(.)ident(ExcludeFlag)operator(()ident(Flag)operator(:) ident(TNodeFlag)operator(\);)
reserved(begin)
  ident(Exclude)operator(()ident(Flags)operator(,) ident(Flag)operator(\);)
reserved(end)operator(;)

reserved(function) ident(TNodeInfo)operator(.)ident(IsHost)operator(:) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(HostType) operator(<>) ident(uhNone)operator(;)
reserved(end)operator(;)

reserved(function) ident(TNodeInfo)operator(.)ident(IsShortcut)operator(:) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(HostType) reserved(in) ident(uhShortcuts)operator(;)
reserved(end)operator(;)

reserved(function) ident(GetPlutoDir)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(LWPSlash)operator(()ident(GetParam)operator(()string<delimiter(')content(-imports=)delimiter(')>operator(,) ident(MyDir)operator(\)\);)
  reserved(if) reserved(not) ident(DirectoryExists)operator(()ident(Result)operator(\)) reserved(then) reserved(begin)
    ident(ReportStatus)operator(()string<delimiter(')content(PlutoDir ")delimiter(')> operator(+) ident(Result) operator(+) string<delimiter(')content(" not found -> setting to default (MyDir\).)delimiter(')>operator(\);)
    ident(Result) operator(:=) ident(MyDir)operator(;)
  reserved(end)operator(;)
  ident(ReportStatus)operator(()string<delimiter(')content(PlutoDir=)delimiter(')> operator(+) ident(Result)operator(\);)
reserved(end)operator(;)

reserved(var)
  ident(ReportSL)operator(:) ident(TStringList)operator(;)
  ident(ReportFileName)operator(:) reserved(string)operator(;)

reserved(procedure) ident(ReportStatus)operator(()reserved(const) ident(s)operator(:) reserved(string)operator(\);)
reserved(begin)
  ident(ReportSL)operator(.)ident(Add)operator(()ident(s)operator(\);)
  reserved(try)
    ident(ReportSL)operator(.)ident(SaveToFile)operator(()ident(ReportFileName)operator(\);)
  reserved(except) reserved(end)operator(;)
reserved(end)operator(;)

reserved(initialization)
  ident(ReportFileName) operator(:=) ident(MyDir) operator(+) string<delimiter(')content(loadreport.txt)delimiter(')>operator(;)
  ident(ReportSL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
  ident(PlutoDir) operator(:=) ident(GetPlutoDir)operator(;)

reserved(end)operator(.)
comment(//winampviscolor <viscolor.txt>:)
reserved(unit) ident(plutomain)operator(;)
preprocessor({$DEFINE UNIKEY})
preprocessor({$DEFINE CYCFS})

comment({===============================================================================

   cYcnus.Pluto 1.57 Beta 14
   by Murphy

   ©2000-2003 by cYcnus
   visit www.cYcnus.de

   murphy@cYcnus.de (Kornelius Kalnbach\)
   
   this programm is published under the terms of the GPL

===============================================================================})

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) ident(Dialogs)operator(,)
  ident(StdCtrls)operator(,) ident(ImgList)operator(,) ident(ComCtrls)operator(,) ident(ExtCtrls)operator(,) ident(Menus)operator(,) ident(Clipbrd)operator(,) ident(IniFiles)operator(,)
  ident(ShellAPI)operator(,) ident(Grids)operator(,)
  comment(//Components)
  ident(NewPanels)operator(,)
  comment(//Units)
  ident(YTools)operator(,) ident(YTypes)operator(,) ident(UniKey)operator(,) ident(XReg)operator(,)
  comment(//Pluto)
  ident(Plutoconst)operator(,)
  ident(SpyTH)operator(,) ident(SisyphusTH)operator(;)

reserved(const)
  ident(NoPreBlinkHint) operator(=) char(#1)operator(;)

reserved(type)
  ident(TMainWin) operator(=) reserved(class)operator(()ident(TForm)operator(\))
    ident(StatusBar)operator(:) ident(TStatusBar)operator(;)
    ident(StatusBarPU)operator(:) ident(TPopupMenu)operator(;)
    ident(CopyPath)operator(:) ident(TMenuItem)operator(;)
    ident(InsertPath)operator(:) ident(TMenuItem)operator(;)
    ident(ShowRealPathMI)operator(:) ident(TMenuItem)operator(;)
    ident(PathP)operator(:) ident(TPanel)operator(;)
    ident(N1)operator(:) ident(TMenuItem)operator(;)
    ident(MainMenu1)operator(:) ident(TMainMenu)operator(;)
    ident(Desktop1)operator(:) ident(TMenuItem)operator(;)
    ident(Pluto1)operator(:) ident(TMenuItem)operator(;)
    ident(RegEdit1)operator(:) ident(TMenuItem)operator(;)
    ident(Free1)operator(:) ident(TMenuItem)operator(;)
    ident(BigVal1)operator(:) ident(TMenuItem)operator(;)
    ident(Hilfe1)operator(:) ident(TMenuItem)operator(;)
    ident(History1)operator(:) ident(TMenuItem)operator(;)
    ident(SplashScreen1)operator(:) ident(TMenuItem)operator(;)
    ident(wwwcYcnusde1)operator(:) ident(TMenuItem)operator(;)
    ident(Credits1)operator(:) ident(TMenuItem)operator(;)
    ident(Optionen1)operator(:) ident(TMenuItem)operator(;)
    ident(PrefMI)operator(:) ident(TMenuItem)operator(;)
    ident(EditBoolStrMI)operator(:) ident(TMenuItem)operator(;)
    ident(N4)operator(:) ident(TMenuItem)operator(;)
    ident(ImageList1)operator(:) ident(TImageList)operator(;)
    ident(Plutoini1)operator(:) ident(TMenuItem)operator(;)
    ident(About1)operator(:) ident(TMenuItem)operator(;)
    ident(kornycYcnusde1)operator(:) ident(TMenuItem)operator(;)
    ident(ools1)operator(:) ident(TMenuItem)operator(;)
    ident(NotePad1)operator(:) ident(TMenuItem)operator(;)
    ident(RegEdit2)operator(:) ident(TMenuItem)operator(;)
    ident(SysEdit1)operator(:) ident(TMenuItem)operator(;)
    ident(WordPad1)operator(:) ident(TMenuItem)operator(;)
    ident(N3)operator(:) ident(TMenuItem)operator(;)
    ident(N5)operator(:) ident(TMenuItem)operator(;)
    ident(Suchen1)operator(:) ident(TMenuItem)operator(;)
    ident(Find1)operator(:) ident(TMenuItem)operator(;)
    ident(File1)operator(:) ident(TMenuItem)operator(;)
    ident(ExitPluto1)operator(:) ident(TMenuItem)operator(;)
    ident(OpenProgramFolder1)operator(:) ident(TMenuItem)operator(;)
    ident(N6)operator(:) ident(TMenuItem)operator(;)
    ident(OpenWinDir1)operator(:) ident(TMenuItem)operator(;)
    ident(HintBlinkT)operator(:) ident(TTimer)operator(;)
    ident(FindCLSID1)operator(:) ident(TMenuItem)operator(;)
    ident(Clipboard1)operator(:) ident(TMenuItem)operator(;)
    ident(GotoCLSID1)operator(:) ident(TMenuItem)operator(;)
    ident(CommandLineParameters1)operator(:) ident(TMenuItem)operator(;)
    ident(plutocYcnusde1)operator(:) ident(TMenuItem)operator(;)
    ident(N7)operator(:) ident(TMenuItem)operator(;)
    ident(heinzcYcnusde1)operator(:) ident(TMenuItem)operator(;)
    ident(kornycYcnusde2)operator(:) ident(TMenuItem)operator(;)
    ident(N8)operator(:) ident(TMenuItem)operator(;)
    ident(ExternalHexEditMI)operator(:) ident(TMenuItem)operator(;)
    ident(Cleanup1)operator(:) ident(TMenuItem)operator(;)
    ident(DeleteTempFolder1)operator(:) ident(TMenuItem)operator(;)
    ident(Debug1)operator(:) ident(TMenuItem)operator(;)
    ident(CurrentDir1)operator(:) ident(TMenuItem)operator(;)
    ident(RepairPluto155bBug1)operator(:) ident(TMenuItem)operator(;)
    ident(BackupRegistryscanreg1)operator(:) ident(TMenuItem)operator(;)
    ident(Username1)operator(:) ident(TMenuItem)operator(;)
    ident(SupportMI)operator(:) ident(TMenuItem)operator(;)
    ident(MurphyMI)operator(:) ident(TMenuItem)operator(;)
    ident(ToDoMI)operator(:) ident(TMenuItem)operator(;)
    ident(Beta1)operator(:) ident(TMenuItem)operator(;)
    ident(UniKeycYcnusde1)operator(:) ident(TMenuItem)operator(;)
    ident(YToolscYcnusde1)operator(:) ident(TMenuItem)operator(;)
    ident(YPanelscYcnusde1)operator(:) ident(TMenuItem)operator(;)
    ident(Usedenginescomponents1)operator(:) ident(TMenuItem)operator(;)
    ident(PrefToolscYcnusde1)operator(:) ident(TMenuItem)operator(;)
    ident(BugReportsRequests1)operator(:) ident(TMenuItem)operator(;)
    ident(murphycYcnusde1)operator(:) ident(TMenuItem)operator(;)
    ident(Credits2)operator(:) ident(TMenuItem)operator(;)
    ident(News1)operator(:) ident(TMenuItem)operator(;)
    ident(cYcnus1)operator(:) ident(TMenuItem)operator(;)
    ident(Contact1)operator(:) ident(TMenuItem)operator(;)
    ident(N2)operator(:) ident(TMenuItem)operator(;)
    ident(IjustwantCONTACT1)operator(:) ident(TMenuItem)operator(;)
    ident(N9)operator(:) ident(TMenuItem)operator(;)
    ident(AnotherPluto1)operator(:) ident(TMenuItem)operator(;)
    ident(UniKeyDemoMI)operator(:) ident(TMenuItem)operator(;)
    ident(Path1)operator(:) ident(TMenuItem)operator(;)
    ident(RegisterPlugIns1)operator(:) ident(TMenuItem)operator(;)
    ident(UniPluginOD)operator(:) ident(TOpenDialog)operator(;)
    ident(SwapLM_CUB)operator(:) ident(TButton)operator(;)
    ident(PathE)operator(:) ident(TEdit)operator(;)
    ident(ShowLoadreport1)operator(:) ident(TMenuItem)operator(;)
    ident(KillPluto1)operator(:) ident(TMenuItem)operator(;)
    ident(ShowPlatform1)operator(:) ident(TMenuItem)operator(;)
    ident(MSConfig1)operator(:) ident(TMenuItem)operator(;)
    ident(TimetoRelaxMI)operator(:) ident(TMenuItem)operator(;)
    ident(N10)operator(:) ident(TMenuItem)operator(;)

    reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);)
    reserved(procedure) ident(InsertPathClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(procedure) ident(StatusBarResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(StatusBarDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(StatusBarUpdate)operator(;)
    reserved(procedure) ident(CopyPathClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(procedure) ident(SetStatus)operator(;)
    reserved(procedure) ident(GotoKey)operator(()ident(Key)operator(:) reserved(string)operator(\);)
    reserved(procedure) ident(FindCLSID)operator(;)
    reserved(procedure) ident(GotoCLSID)operator(;)
    reserved(procedure) ident(UserGotoKey)operator(;)
    reserved(procedure) ident(ShowRealPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(PathEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(PathEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(PathEExit)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(procedure) ident(AppActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(PathEKeyUp)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(Pluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RegEdit1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(Free1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(BigVal1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SplashScreen1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(HistoryClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(Credits1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(function) ident(Greeting)operator(()ident(Name)operator(:) reserved(string) operator(=) ident(NoPreBlinkHint)operator(\):) reserved(string)operator(;)
    reserved(procedure) ident(PrefMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(EditBoolStrMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormCloseQuery)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(CanClose)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(SisyTerminate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(OnSisyChange)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);)
    reserved(procedure) ident(OnSisyValuePlus)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);)
    reserved(procedure) ident(OnSisyValueMinus)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);)
    reserved(procedure) ident(OnSisyContextChange)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);)

    reserved(procedure) ident(Plutoini1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RegEdit2Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SysEdit1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(NotePad1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(WordPad1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(OpenWinDir1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(OpenProgramFolder1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ExitPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(Find1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormPaint)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(procedure) ident(Load)operator(;)
    reserved(procedure) ident(StatusBarDrawPanel)operator(()ident(StatusBar)operator(:) ident(TStatusBar)operator(;)
      ident(Panel)operator(:) ident(TStatusPanel)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(\);)
    reserved(procedure) ident(PathEKeyPress)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Char)operator(\);)
    reserved(procedure) ident(HintBlinkTTimer)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FindCLSID1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(GotoCLSID1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CommandLineParameters1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(WebLinkMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(DeleteTempFolder1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CurrentDir1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RepairPluto155bBug1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(BackupRegistryscanreg1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyStarted)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(StopHintBlinking)operator(;)
    reserved(procedure) ident(Username1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SupportMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ToDoMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(MailLinkMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(IjustwantCONTACT1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ExternalHexEditMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(AnotherPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(Path1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RegisterPlugIns1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SwapLM_CUBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ShowLoadreport1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(KillPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ShowPlatform1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(MSConfig1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(TimetoRelaxMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
  directive(private)
    ident(DoAutoComplete)operator(:) ident(Boolean)operator(;)
    ident(MainWinLoaded)operator(:) ident(Boolean)operator(;)
    ident(DontSavePrefs)operator(:) ident(Boolean)operator(;)
    ident(PreBlinkHint)operator(:) reserved(string)operator(;)
  reserved(end)operator(;)

reserved(var)
  ident(MainWin)operator(:) ident(TMainWin)operator(;)

  ident(StatusBar)operator(:) ident(TStatusBar)operator(;)
  ident(MainReg)operator(:) ident(TXRegistry)operator(;)

  ident(SpyThread)operator(:) ident(TRegSpyThread)operator(;)
  ident(Sisys)operator(:) ident(TList)operator(;)

reserved(function) ident(TempDir)operator(:) reserved(string)operator(;)
reserved(function) ident(PlutoUniPath)operator(:) reserved(string)operator(;)
reserved(function) ident(PlutoIniFileName)operator(:) reserved(string)operator(;)

reserved(function) ident(PathOfNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) reserved(string)operator(;)
reserved(function) ident(CurKey)operator(()ident(AllowedShortcutTypes)operator(:) ident(TUniHostTypes) operator(=) operator([]\):) ident(TRegPath)operator(;)

reserved(procedure) ident(ArrangePlutoStyle)operator(;)
reserved(procedure) ident(ArrangeRegEdStyle)operator(;)
reserved(procedure) ident(ArrangeFreeStyle)operator(;)
reserved(procedure) ident(ArrangeBigValStyle)operator(;)

reserved(procedure) ident(ActivateThis)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(procedure) ident(DeActivateThis)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

reserved(procedure) ident(SwapFonts)operator(()ident(Sender)operator(:) ident(TWinControl)operator(\);)

reserved(procedure) ident(AddHint)operator(()reserved(const) ident(Hint)operator(:) reserved(string)operator(;) ident(Blinking)operator(:) ident(Boolean) operator(=) ident(False)operator(\);)
reserved(procedure) ident(AddToLastHint)operator(()ident(Appendix)operator(:) reserved(string)operator(\);)
reserved(procedure) ident(ChangeLastHint)operator(()ident(NewHint)operator(:) reserved(string)operator(\);)

reserved(implementation)

reserved(uses)
  comment(//Forms)
  ident(FindWinU)operator(,) ident(valuesU)operator(,) ident(TreeU)operator(,) ident(WorkU)operator(,) ident(splash)operator(,) ident(PrefU)operator(,)
  comment(//Units)
  ident(Clock)operator(,) ident(Start)operator(,) ident(keybrd)operator(,) ident(CompEx)operator(,) ident(Colors)operator(,) ident(FindAllThread)operator(,)
  ident(PrefTools)operator(;)

preprocessor({$R *.DFM})

reserved(var)
  ident(SavedPlutoIniFileName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(;)

reserved(procedure) ident(AddHint)operator(()reserved(const) ident(Hint)operator(:) reserved(string)operator(;) ident(Blinking)operator(:) ident(Boolean) operator(=) ident(False)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(WorkWin)operator(\)) reserved(then)
    ident(WorkWin)operator(.)ident(AddAHint)operator(()ident(Hint)operator(\);)

  reserved(with) ident(MainWin) reserved(do) reserved(begin)
    ident(StopHintBlinking)operator(;)

    reserved(if) ident(Blinking) reserved(then) reserved(begin)
      ident(HintBlinkT)operator(.)ident(Enabled) operator(:=) ident(True)operator(;)
      reserved(if) ident(PreBlinkHint) operator(=) ident(NoPreBlinkHint) reserved(then)
        ident(PreBlinkHint) operator(:=) ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text)operator(;)
      ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text) operator(:=) ident(WorkWin)operator(.)ident(LastHint)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(AddToLastHint)operator(()ident(Appendix)operator(:) reserved(string)operator(\);)
reserved(begin)
  reserved(with) ident(WorkWin)operator(.)ident(HintLB)operator(.)ident(Items) reserved(do) reserved(begin)
    reserved(if) ident(Count) operator(=) integer(0) reserved(then)
      ident(Exit)operator(;)

    ident(Strings)operator([)ident(Count)operator(-)integer(1)operator(]) operator(:=) ident(Strings)operator([)ident(Count)operator(-)integer(1)operator(]) operator(+) ident(Appendix)operator(;)
  reserved(end)operator(;)
  ident(Application)operator(.)ident(ProcessMessages)operator(;)
comment(//  Sleep(1000\);)
reserved(end)operator(;)

reserved(procedure) ident(ChangeLastHint)operator(()ident(NewHint)operator(:) reserved(string)operator(\);)
reserved(begin)
  reserved(with) ident(WorkWin)operator(.)ident(HintLB)operator(.)ident(Items) reserved(do) reserved(begin)
    reserved(if) ident(Count) operator(=) integer(0) reserved(then)
      ident(Exit)operator(;)

    ident(Strings)operator([)ident(Count)operator(-)integer(1)operator(]) operator(:=) ident(NewHint)operator(;)
  reserved(end)operator(;)
  ident(Application)operator(.)ident(ProcessMessages)operator(;)
comment(//  Sleep(1000\);)
reserved(end)operator(;)

reserved(function) ident(CurKey)operator(()ident(AllowedShortcutTypes)operator(:) ident(TUniHostTypes) operator(=) operator([]\):) ident(TRegPath)operator(;)
reserved(var)
  ident(s)operator(:) reserved(string)operator(;)
  ident(Item)operator(:) ident(TListItem)operator(;)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)) reserved(then) reserved(begin)
    ident(s) operator(:=) ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\);)
    reserved(if) ident(AllowedShortcutTypes) operator(<>) operator([]) reserved(then)
      ident(s) operator(:=) ident(TraceKey)operator(()ident(s)operator(,) ident(AllowedShortcutTypes)operator(\);)
    ident(Result)operator(.)ident(Root) operator(:=) ident(ExRegRoot)operator(()ident(s)operator(\);)
    ident(Result)operator(.)ident(Key) operator(:=) ident(ExRegKey)operator(()ident(s)operator(\);)

    ident(Item) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;)
    reserved(if) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then)
      ident(Result)operator(.)ident(Value) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\);)
    ident(Result)operator(.)ident(ValueSet) operator(:=) ident(Assigned)operator(()ident(Item)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(PathOfNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) reserved(string)operator(;)
reserved(begin)
  ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;)

  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(then)
    ident(Result) operator(:=) ident(LWPSlash)operator(()ident(PathOfNode)operator(()ident(Node)operator(.)ident(Parent)operator(\)\)) operator(+) ident(Node)operator(.)ident(Text)
  reserved(else)
    ident(Result) operator(:=) ident(Node)operator(.)ident(Text)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(AppActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(ActForm)operator(:) ident(TCustomForm)operator(;)

  reserved(procedure) ident(TryShow)operator(()ident(Win)operator(:) ident(TCustomForm)operator(\);)
  reserved(begin)
    reserved(if) ident(Assigned)operator(()ident(Win)operator(\)) reserved(and) ident(Win)operator(.)ident(Visible) reserved(then)
      ident(Win)operator(.)ident(Show)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(ActForm) operator(:=) ident(Screen)operator(.)ident(ActiveCustomForm)operator(;) comment(//LastActiveForm;)
  ident(TryShow)operator(()ident(ValuesWin)operator(\);)
  ident(TryShow)operator(()ident(WorkWin)operator(\);)
  ident(TryShow)operator(()ident(TreeWin)operator(\);)
  ident(TryShow)operator(()ident(FindWin)operator(\);)
  ident(TryShow)operator(()ident(SplashWin)operator(\);)
  ident(TryShow)operator(()ident(MainWin)operator(\);)
  ident(TryShow)operator(()ident(ActForm)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

  reserved(procedure) ident(InitHKEYString)operator(()reserved(var) ident(H)operator(:) ident(THKEYString)operator(;) reserved(const) ident(Long)operator(,) ident(Short)operator(:) reserved(string)operator(;)
    ident(Handle)operator(:) ident(Integer) operator(=) integer(0)operator(;) ident(IsDefault)operator(:) ident(Boolean) operator(=) ident(False)operator(\);)
  reserved(begin)
    ident(H)operator(.)ident(Long) operator(:=) ident(Long)operator(;)
    ident(H)operator(.)ident(Short) operator(:=) ident(Short)operator(;)
    ident(H)operator(.)ident(Handle) operator(:=) ident(Handle)operator(;)
    ident(H)operator(.)ident(IsDefault) operator(:=) ident(IsDefault)operator(;)
  reserved(end)operator(;)

reserved(begin)
preprocessor({$IFDEF UNIKEY})
preprocessor({$IFDEF CYCFS})
  ident(RegisterUniClass)operator(()string<delimiter(')content(Y:\\programme\\unikey\\cyc_fs.uni)delimiter(')>operator(\);)
preprocessor({$ENDIF})
preprocessor({$ENDIF})

  ident(Application)operator(.)ident(OnActivate) operator(:=) ident(AppActivate)operator(;)
  ident(PlutoMain)operator(.)ident(StatusBar) operator(:=) ident(StatusBar)operator(;)

  comment(//Creating)
  ident(MainReg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)

  comment(//Initialize)
  ident(Caption) operator(:=) string<delimiter(')content(cYcnus.Pluto )delimiter(')> operator(+) ident(Version)operator(;)
  ident(PreBlinkHint) operator(:=) ident(NoPreBlinkHint)operator(;)

  ident(SetLength)operator(()ident(HKEYStrings)operator(,) ident(Length)operator(()ident(HKEYStrings)operator(\)) operator(+) integer(2)operator(\);)
  ident(InitHKEYString)operator(()ident(HKEYStrings)operator([)ident(LastDefaultHKEYString) operator(+) integer(1)operator(],)
    string<delimiter(')content(HKEY_WindowsMachine)delimiter(')>operator(,) string<delimiter(')content(HKWM)delimiter(')>operator(\);)

  ident(InitHKEYString)operator(()ident(HKEYStrings)operator([)ident(LastDefaultHKEYString) operator(+) integer(2)operator(],)
    string<delimiter(')content(HKEY_WindowsUser)delimiter(')>operator(,) string<delimiter(')content(HKWU)delimiter(')>operator(\);)

  ident(Application)operator(.)ident(HintHidePause) operator(:=) operator(-)integer(1)operator(;) comment(//that's approximately 136 years :D)

  ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Width) operator(:=) ident(Screen)operator(.)ident(Width) reserved(div) integer(6)operator(;)

  ident(MurphyMI)operator(.)ident(Visible) operator(:=) ident(MurphyMode)operator(;)

preprocessor({$IFDEF UNIKEY})
  ident(UniPluginOD)operator(.)ident(InitialDir) operator(:=) ident(MyDir)operator(;)
preprocessor({$ELSE})
  ident(UniKeyDemoMI)operator(.)ident(Visible) operator(:=) ident(False)operator(;)
preprocessor({$ENDIF})
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(GotoKey)operator(()ident(Key)operator(:) reserved(string)operator(\);)
reserved(var)
  ident(Full)operator(:) ident(TregPath)operator(;)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
  ident(keySA)operator(:) ident(TStrA)operator(;)
  ident(i)operator(:) ident(integer)operator(;)

  reserved(function) ident(NodeOfRoot)operator(()ident(Root)operator(:) reserved(string)operator(\):) ident(TTreeNode)operator(;)
  reserved(var)
    ident(i)operator(:) ident(Integer)operator(;)
  reserved(begin)
    ident(Result) operator(:=) reserved(nil)operator(;)
    ident(Root) operator(:=) ident(LongHKEY)operator(()ident(Root)operator(\);)

    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(RootNodes)operator(.)ident(Count)operator(-)integer(1) reserved(do)
      reserved(if) ident(SameText)operator(()ident(TTreeNode)operator(()ident(RootNodes)operator([)ident(i)operator(]\).)ident(Text)operator(,) ident(Root)operator(\)) reserved(then) reserved(begin)
        ident(Result) operator(:=) ident(TTreeNode)operator(()ident(RootNodes)operator([)ident(i)operator(]\);)
      ident(Break)operator(;) reserved(end)operator(;)

    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(Shortcuts)operator(\)) reserved(do)
      reserved(if) ident(SameText)operator(()ident(Shortcuts)operator([)ident(i)operator(].)ident(Alias)operator(,) ident(Full)operator(.)ident(Root)operator(\)) reserved(then) reserved(begin)
        ident(Result) operator(:=) ident(Shortcuts)operator([)ident(i)operator(].)ident(Node)operator(;)
      ident(Break)operator(;) reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(keySA) operator(:=) reserved(nil)operator(;)

  comment(//Get FullPath of the Key)
  ident(Key) operator(:=) ident(TrimLeft)operator(()ident(Key)operator(\);)
  reserved(if) ident(TextAtPos)operator(()ident(Key)operator(,) integer(1)operator(,) string<delimiter(')content(Reg:)delimiter(')>operator(\)) reserved(then)
    ident(Key) operator(:=) ident(TrimLeft)operator(()ident(FromChar)operator(()ident(Key)operator(,) char<delimiter(')content(:)delimiter(')>operator(\)\);)
  ident(Key) operator(:=) ident(UnQuote)operator(()ident(Key)operator(\);)

  ident(Full) operator(:=) ident(RegPathOfStr)operator(()ident(Key)operator(\);)
  reserved(if) ident(Trim)operator(()ident(Full)operator(.)ident(Root)operator(\)) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin)
    ident(AddHint)operator(()string<delimiter(')content(Empty Path.)delimiter(')>operator(,) ident(True)operator(\);)
  ident(Exit)operator(;) reserved(end)operator(;)

  comment(//Get Root Node)
  ident(Node) operator(:=) ident(NodeOfRoot)operator(()ident(Full)operator(.)ident(Root)operator(\);)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) reserved(begin)
    reserved(if) reserved(not) ident(PathE)operator(.)ident(Focused) reserved(then)
      ident(AddHint)operator(()string<delimiter(')content(Key not found:)delimiter(')> operator(+) ident(EOL) operator(+) ident(Key)operator(\);)
  ident(Exit)operator(;) reserved(end)operator(;)

  comment(//Create an array of all SubKeys)
  ident(keySA) operator(:=) ident(Split)operator(()ident(Full)operator(.)ident(Key)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\);)

  comment(//Avoid SmartExpand)
  ident(TreeWin)operator(.)ident(DoSmartExpand) operator(:=) ident(False)operator(;) reserved(begin)

    comment(//Open all SubKeys)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(keySA)operator(\)) reserved(do) reserved(begin)
      comment(//Open the Node if neccessary)
      reserved(if) reserved(not) ident(Node)operator(.)ident(Expanded) reserved(then) reserved(begin)
        reserved(if) reserved(not) ident(Node)operator(.)ident(Selected) reserved(then)
          ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(;)
        ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);)
        comment(//TreeWin.RegTVChange(Self, Node\);)
        ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);)
      reserved(end)operator(;)

      comment(//Get Node of the SubKey)
      ident(Node) operator(:=) ident(FindNodeText)operator(()ident(Node)operator(,) ident(keySA)operator([)ident(i)operator(]\);)
      reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then) reserved(begin)
        reserved(if) reserved(not) ident(PathE)operator(.)ident(Focused) reserved(then)
          ident(AddHint)operator(()string<delimiter(')content(Goto Key not found: )delimiter(')> operator(+) ident(KeySA)operator([)ident(i)operator(],) ident(True)operator(\);)
        ident(Exit)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

  reserved(end)operator(;) ident(TreeWin)operator(.)ident(DoSmartExpand) operator(:=) ident(True)operator(;)

  reserved(if) ident(Node) operator(<>) ident(RegTV)operator(.)ident(Selected) reserved(then) reserved(begin)
    ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(;)
    ident(TreeWin)operator(.)ident(RegTVChange)operator(()ident(Self)operator(,) ident(Node)operator(\);)
  reserved(end)operator(;)

  ident(Application)operator(.)ident(ProcessMessages)operator(;)

  reserved(if) ident(Full)operator(.)ident(ValueSet) reserved(then)
    ident(ValuesWin)operator(.)ident(FocusItem)operator(()ident(Full)operator(.)ident(Value)operator(,) reserved(not) operator(()ident(Active) reserved(and) ident(PathE)operator(.)ident(Focused)operator(\)\))
  reserved(else) reserved(begin)
    reserved(if) reserved(not) operator(()ident(Active) reserved(and) ident(PathE)operator(.)ident(Focused)operator(\)) reserved(then) comment(//if not user is currently editing the path)
      ident(TreeWin)operator(.)ident(FocusControl)operator(()ident(RegTV)operator(\);)

    reserved(if) ident(LastChar)operator(()ident(Full)operator(.)ident(Key)operator(\)) operator(=) char<delimiter(')content(\\)delimiter(')> reserved(then)
      ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(SwapFonts)operator(()ident(Sender)operator(:) ident(TWinControl)operator(\);)

  reserved(function) ident(OtherFont)operator(()ident(N)operator(:) ident(TFontName)operator(\):) ident(TFontName)operator(;)
  reserved(begin)
    ident(Result) operator(:=) string<delimiter(')content(Courier New)delimiter(')>operator(;)
    reserved(if) ident(N) operator(=) ident(Result) reserved(then)
      ident(Result) operator(:=) string<delimiter(')content(Arial)delimiter(')>operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(TEdit)operator(()ident(Sender)operator(\).)ident(Font)operator(.)ident(Name) operator(:=) ident(OtherFont)operator(()ident(TTreeView)operator(()ident(Sender)operator(\).)ident(Font)operator(.)ident(Name)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(ActivateThis)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Sender)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(with) ident(TEdit)operator(()ident(Sender)operator(\)) reserved(do) reserved(begin)
    reserved(if) ident(Tag) operator(<>) ident(EditControlFlag) reserved(then)
      ident(Exit)operator(;)
    ident(Color) operator(:=) ident(RealColor)operator(()ident(clVeryBrightBlue)operator(\);)
    ident(Font)operator(.)ident(Color) operator(:=) ident(clBlack)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(DeActivateThis)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Sender)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(with) ident(TEdit)operator(()ident(Sender)operator(\)) reserved(do) reserved(begin)
    reserved(if) ident(Tag) operator(<>) ident(EditControlFlag) reserved(then)
      ident(Exit)operator(;)
    ident(Color) operator(:=) ident(RealColor)operator(()ident(clDarkGray)operator(\);)
    ident(Font)operator(.)ident(Color) operator(:=) ident(clWhite)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(CreateSisyThreads)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)

  reserved(procedure) ident(CreateSisyThread)operator(()reserved(const) ident(Name)operator(:) reserved(string)operator(;) reserved(const) ident(KeyName)operator(:) reserved(string)operator(;)
    ident(Key)operator(:) ident(HKEY)operator(;) ident(StatusLabel)operator(:) ident(TLabel)operator(\);)
  reserved(var)
    ident(Sisy)operator(:) ident(TSisyThread)operator(;)
  reserved(begin)
    ident(ChangeLastHint)operator(()string<delimiter(')content(Creating )delimiter(')> operator(+) ident(Name) operator(+) string<delimiter(')content(...)delimiter(')>operator(\);)
    ident(Sisy) operator(:=) ident(TSisyThread)operator(.)ident(CreateIt)operator(()ident(Name)operator(,) ident(KeyName)operator(,) ident(Key)operator(,) ident(StatusLabel)operator(,) ident(PlutoKey)operator(\);)
    ident(Sisy)operator(.)ident(OnChange) operator(:=) ident(MainWin)operator(.)ident(OnSisyChange)operator(;)
comment(//    Sisy.OnSpecialChange[cValuePlus] := MainWin.OnSisyValuePlus;)
comment(//    Sisy.OnSpecialChange[cValueMinus] := MainWin.OnSisyValueMinus;)
comment(//    Sisy.OnSpecialChange[cContextChange] := MainWin.OnSisyContextChange;)
    ident(Sisys)operator(.)ident(Add)operator(()ident(Sisy)operator(\);)
    ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);)
  reserved(end)operator(;)

reserved(begin)
  ident(AddHint)operator(()string<delimiter(')content(Starting Sisyphus )delimiter(')> operator(+) ident(SisyVersion) operator(+) string<delimiter(')content(...)delimiter(')>operator(\);)

  ident(Sisys) operator(:=) ident(TSisyList)operator(.)ident(Create)operator(;)
  ident(WorkWin)operator(.)ident(LoadSisyFilter)operator(;)

  ident(CreateSisyThread)operator(()string<delimiter(')content(Sisy HKU)delimiter(')>operator(,) string<delimiter(')content(HKU)delimiter(')>operator(,) ident(HKU)operator(,) ident(WorkWin)operator(.)ident(SisyHKUL)operator(\);)
  ident(CreateSisyThread)operator(()string<delimiter(')content(Sisy HKLM)delimiter(')>operator(,) string<delimiter(')content(HKLM)delimiter(')>operator(,) ident(HKLM)operator(,) ident(WorkWin)operator(.)ident(SisyHKLML)operator(\);)

  ident(ChangeLastHint)operator(()string<delimiter(')content(Initializing Sisyphus...)delimiter(')>operator(\);)
  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Sisys)operator(.)ident(Count)operator(-)integer(1) reserved(do)
    reserved(with) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(i)operator(]\)) reserved(do) reserved(begin)
      reserved(if) ident(Name) operator(=) string<delimiter(')content(Sisy HKU)delimiter(')> reserved(then)
        reserved(with) ident(WorkWin)operator(.)ident(SisyHKUCB) reserved(do) reserved(begin)
          ident(Settings)operator(.)ident(KeyName) operator(:=) ident(StrOfUni)operator(()ident(Uni)operator(.)ident(Path)operator(\);)
          ident(Settings)operator(.)ident(Load)operator(;)
          ident(Settings)operator(.)ident(AutoSave) operator(:=) ident(True)operator(;)
          reserved(if) ident(Checked) reserved(then)
            ident(Resume)operator(;)
        reserved(end)
      reserved(else) reserved(if) ident(Name) operator(=) string<delimiter(')content(Sisy HKLM)delimiter(')> reserved(then)
        reserved(with) ident(WorkWin)operator(.)ident(SisyHKLMCB) reserved(do) reserved(begin)
          ident(Settings)operator(.)ident(KeyName) operator(:=) ident(StrOfUni)operator(()ident(Uni)operator(.)ident(Path)operator(\);)
          ident(Settings)operator(.)ident(Load)operator(;)
          ident(Settings)operator(.)ident(AutoSave) operator(:=) ident(True)operator(;)
          reserved(if) ident(Checked) reserved(then)
            ident(Resume)operator(;)
        reserved(end)operator(;)
      ident(OnStarted) operator(:=) ident(MainWin)operator(.)ident(SisyStarted)operator(;)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(CreateSpyThread)operator(;)
reserved(begin)
  ident(AddHint)operator(()string<delimiter(')content(Creating SpyThread...)delimiter(')>operator(\);)
  ident(SpyThread) operator(:=) ident(TRegSpyThread)operator(.)ident(CreateIt)operator(()ident(tpLowest)operator(\);)
  ident(WorkWin)operator(.)ident(SpyDelayIEChange)operator(()ident(MainWin)operator(\);)
  ident(WorkWin)operator(.)ident(SpyTestLClick)operator(()ident(MainWin)operator(\);)
  ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(ShowParams)operator(;)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)
reserved(begin)
  reserved(if) ident(Switch)operator(()string<delimiter(')content(params?)delimiter(')>operator(\)) reserved(then) reserved(begin)
    ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
    ident(GetParams)operator(()ident(SL)operator(\);)
    ident(ShowMessage)operator(()ident(SL)operator(.)ident(Text)operator(\);)
    ident(SL)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(GotoParamKey)operator(;)
reserved(var)
  ident(s)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(s) operator(:=) ident(ParamStr)operator(()integer(1)operator(\);)
  reserved(if) operator(()ident(s) operator(<>) string<delimiter(')delimiter(')>operator(\))
   reserved(and) operator(()ident(s)operator([)integer(1)operator(]) operator(<>) char<delimiter(')content(-)delimiter(')>operator(\)) reserved(then) reserved(begin) comment(//Params have '-' as prefix)
    ident(AddHint)operator(()string<delimiter(')content(Goto Key )delimiter(')> operator(+) ident(Quote)operator(()ident(s)operator(\)) operator(+) string<delimiter(')content(...)delimiter(')>operator(\);)
    ident(MainWin)operator(.)ident(GotoKey)operator(()ident(s)operator(\);)
  reserved(end) reserved(else) reserved(begin)
    ident(RegTV)operator(.)ident(Selected) operator(:=) ident(RegTV)operator(.)ident(TopItem)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(Load)operator(;)
reserved(begin)
  ident(TreeWin)operator(.)ident(Load)operator(;)
  ident(WorkWin)operator(.)ident(LoadBoolStr)operator(;)

  ident(CreateSpyThread)operator(;)
  ident(CreateSisyThreads)operator(;)

  ident(AddHint)operator(()ident(Greeting)operator(,) ident(True)operator(\);)

  ident(ShowParams)operator(;)
  ident(GotoParamKey)operator(;)

  reserved(if) ident(Assigned)operator(()ident(SplashWin)operator(\)) reserved(and) ident(SplashWin)operator(.)ident(Visible) reserved(then)
    ident(SplashWin)operator(.)ident(SetFocus)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(CopyPathClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(StatusBar)operator(.)ident(Panels)operator([)integer(1)operator(].)ident(Text)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) operator(()ident(ssAlt) reserved(in) ident(shift)operator(\)) reserved(and) operator(()ident(Key) operator(=) ident(VK_F4)operator(\)) reserved(then) reserved(begin)
    ident(Key) operator(:=) integer(0)operator(;)
    ident(Close)operator(;)
  ident(Exit)operator(;) reserved(end)operator(;)

  reserved(if) ident(ssCtrl) reserved(in) ident(Shift) reserved(then)
    reserved(case) ident(Key) reserved(of)
      ident(Byte)operator(()char<delimiter(')content(W)delimiter(')>operator(\):) reserved(begin)
          ident(MainPC)operator(.)ident(ActivePage) operator(:=) ident(WorkWin)operator(.)ident(WorkPage)operator(;)
          reserved(if) ident(Assigned)operator(()ident(MainPC)operator(.)ident(ActivePage)operator(\)) reserved(then)
            ident(WorkWin)operator(.)ident(FocusControl)operator(()ident(TWinControl)operator(()ident(ShowPC)operator(.)ident(ActivePage)operator(.)ident(Tag)operator(\)\))
        reserved(end)operator(;)

      ident(Byte)operator(()char<delimiter(')content(H)delimiter(')>operator(\):) ident(MainPC)operator(.)ident(ActivePage) operator(:=) ident(WorkWin)operator(.)ident(HintPage)operator(;)

      ident(Byte)operator(()char<delimiter(')content(L)delimiter(')>operator(\):) ident(MainWin)operator(.)ident(FindCLSID)operator(;)
    reserved(end)operator(;)

  reserved(if) ident(Shift) operator(=) operator([]) reserved(then)
    reserved(case) ident(Key) reserved(of)
      ident(VK_F6)operator(:) ident(TreeWin)operator(.)ident(FocusControl)operator(()ident(RegTV)operator(\);)

      ident(VK_F7)operator(:) reserved(with) ident(ValueList) reserved(do) reserved(begin)
          ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);)
          reserved(if) operator(()ident(Selected) operator(=) reserved(nil)operator(\)) reserved(and) operator(()ident(Items)operator(.)ident(Count) operator(>) integer(0)operator(\)) reserved(then) reserved(begin)
            ident(Selected) operator(:=) ident(Items)operator([)integer(0)operator(];)
            ident(ItemFocused) operator(:=) ident(Selected)operator(;)
          reserved(end)operator(;)
        reserved(end)operator(;)

      ident(VK_F8)operator(:) ident(WorkWin)operator(.)ident(FocusControl)operator(()ident(MainPC)operator(\);)
    reserved(end)operator(;)

  reserved(if) ident(Key) operator(=) ident(VK_SCROLL) reserved(then) reserved(begin)
    ident(TreeWin)operator(.)ident(CheckRegTVHotTrack)operator(;)
    ident(ValuesWin)operator(.)ident(CheckValueListHotTrack)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(StatusBarResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(StatusBar) reserved(do)
    ident(Panels)operator([)integer(1)operator(].)ident(Width) operator(:=)
      ident(Width) operator(-) operator(()ident(Panels)operator([)integer(0)operator(].)ident(Width) operator(+) ident(Panels)operator([)integer(2)operator(].)ident(Width) operator(+) ident(Panels)operator([)integer(3)operator(].)ident(Width)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(StatusBarDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ShowRealPathMIClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(InsertPathClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(GotoKey)operator(()ident(Clipboard)operator(.)ident(AsText)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(SetStatus)operator(;)
reserved(begin)
  ident(StatusBarUpdate)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(StatusBarUpdate)operator(;)
reserved(var)
  ident(Inf)operator(:) ident(TRegKeyInfo)operator(;)
reserved(begin)
  ident(OpenCurKey)operator(;)
  ident(MainReg)operator(.)ident(GetKeyInfo)operator(()ident(Inf)operator(\);)
  ident(MainReg)operator(.)ident(CloseKey)operator(;)

  ident(StatusBar)operator(.)ident(Panels)operator([)integer(2)operator(].)ident(Text) operator(:=) ident(StrNumerus)operator(()ident(Inf)operator(.)ident(NumSubKeys)operator(,) string<delimiter(')content(key)delimiter(')>operator(,) string<delimiter(')content(keys)delimiter(')>operator(,) string<delimiter(')content(no)delimiter(')>operator(\);)
  ident(StatusBar)operator(.)ident(Panels)operator([)integer(3)operator(].)ident(Text) operator(:=) ident(StrNumerus)operator(()ident(Inf)operator(.)ident(NumValues)operator(,) string<delimiter(')content(value)delimiter(')>operator(,) string<delimiter(')content(values)delimiter(')>operator(,) string<delimiter(')content(no)delimiter(')>operator(\);)

  reserved(if) ident(ShowRealPathMI)operator(.)ident(Checked) reserved(then)
    ident(StatusBar)operator(.)ident(Panels)operator([)integer(1)operator(].)ident(Text) operator(:=) ident(StrOfRegPath)operator(()ident(CurKey)operator(()ident(uhShortcuts)operator(\)\))
  reserved(else)
    ident(StatusBar)operator(.)ident(Panels)operator([)integer(1)operator(].)ident(Text) operator(:=) ident(StrOfRegPath)operator(()ident(CurKey)operator(()ident(uhNonSystemShortcuts)operator(\)\);)

  reserved(if) reserved(not) ident(PathE)operator(.)ident(Focused) reserved(then)
    ident(PathE)operator(.)ident(Text) operator(:=) ident(StrOfRegPath)operator(()ident(CurKey)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(ShowRealPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ShowRealPathMI)operator(.)ident(Checked) operator(:=) reserved(not) ident(ShowRealPathMI)operator(.)ident(Checked)operator(;)
  ident(StatusBarUpdate)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(PathEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(var)
  ident(Pos)operator(:) ident(Integer)operator(;)
  ident(s)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(DoAutoComplete) operator(:=) reserved(not) operator(()ident(Key) reserved(in) operator([)ident(VK_DELETE)operator(,) ident(VK_BACK)operator(,) ident(VK_ESCAPE)operator(]\);)
  
  reserved(case) ident(Key) reserved(of)
    ident(VK_BACK)operator(:)
      reserved(begin)
        ident(s) operator(:=) ident(PathE)operator(.)ident(Text)operator(;)
        ident(Pos) operator(:=) ident(PathE)operator(.)ident(SelStart)operator(;)

        reserved(if) ident(ssCtrl) reserved(in) ident(Shift) reserved(then)
          reserved(repeat)
            ident(Dec)operator(()ident(Pos)operator(\);)
          reserved(until) operator(()ident(Pos) operator(<) integer(1)operator(\)) reserved(or) operator(()ident(s)operator([)ident(Pos)operator(]) operator(=) char<delimiter(')content(\\)delimiter(')>operator(\))
        reserved(else) reserved(if) ident(PathE)operator(.)ident(SelLength) operator(=) integer(0) reserved(then)
          ident(Exit)operator(;)

        ident(PathE)operator(.)ident(Text) operator(:=) ident(Copy)operator(()ident(s)operator(,) integer(1)operator(,) ident(Pos)operator(\);)
        ident(PathE)operator(.)ident(SelStart) operator(:=) ident(Length)operator(()ident(s)operator(\);)
        ident(Key) operator(:=) integer(0)operator(;)
        ident(UserGotoKey)operator(;)
      reserved(end)operator(;)

    ident(VK_ESCAPE)operator(:)
      reserved(with) ident(PathE) reserved(do) reserved(begin)
        reserved(if) ident(SelLength) operator(=) integer(0) reserved(then)
          ident(Exit)operator(;)
        ident(Text) operator(:=) ident(StrOfRegPath)operator(()ident(CurKey)operator(\);)
        ident(SelStart) operator(:=) ident(Length)operator(()ident(Text)operator(\);)
      reserved(end)operator(;)

    ident(VK_RETURN)operator(:) reserved(begin)
      reserved(if) ident(CurKey)operator(.)ident(ValueSet) reserved(then)
        ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Self)operator(\);)
      ident(Key) operator(:=) integer(0)operator(;)
    reserved(end)operator(;)
    
    ident(VK_RIGHT)operator(:) reserved(begin)
        reserved(if) reserved(not) operator(()ident(ssCtrl) reserved(in) ident(Shift)operator(\)) reserved(then)
          ident(Exit)operator(;)

        ident(Key) operator(:=) integer(0)operator(;)

        ident(s) operator(:=) ident(PathE)operator(.)ident(Text)operator(;)
        ident(Pos) operator(:=) ident(PathE)operator(.)ident(SelStart) operator(+) integer(1)operator(;)
        reserved(repeat)
          ident(Inc)operator(()ident(Pos)operator(\);)
        reserved(until) operator(()ident(Pos) operator(>) ident(Length)operator(()ident(s)operator(\)\)) reserved(or) operator(()ident(s)operator([)ident(Pos)operator(]) operator(=) char<delimiter(')content(\\)delimiter(')>operator(\);)

        ident(PathE)operator(.)ident(SelStart) operator(:=) ident(Pos) operator(-) integer(1)operator(;)
      reserved(end)operator(;)

    ident(VK_LEFT)operator(:) reserved(begin)
        reserved(if) reserved(not) operator(()ident(ssCtrl) reserved(in) ident(Shift)operator(\)) reserved(then)
          ident(Exit)operator(;)

        reserved(with) ident(PathE) reserved(do) reserved(begin)
          ident(Key) operator(:=) integer(0)operator(;)

          ident(s) operator(:=) ident(Text)operator(;)
          ident(Pos) operator(:=) ident(SelStart)operator(;)
          reserved(repeat)
            ident(Dec)operator(()ident(Pos)operator(\);)
          reserved(until) operator(()ident(Pos) operator(<) integer(1)operator(\)) reserved(or) operator(()ident(s)operator([)ident(Pos)operator(]) operator(=) char<delimiter(')content(\\)delimiter(')>operator(\);)

          reserved(if) ident(Pos) operator(<) integer(1) reserved(then)
            ident(Pos) operator(:=) integer(1)operator(;)

          ident(SelStart) operator(:=) ident(Pos) operator(-) integer(1)operator(;)
        reserved(end)operator(;)
      reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(UserGotoKey)operator(;)
reserved(begin)
  ident(GotoKey)operator(()ident(PathE)operator(.)ident(Text)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(PathEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Prefix)operator(,) ident(Suffix)operator(,) ident(Key)operator(,) ident(Path)operator(,) ident(Root)operator(:) reserved(string)operator(;)
  ident(i)operator(,) ident(p)operator(,) ident(Len)operator(:) ident(Integer)operator(;)
  ident(SL)operator(:) ident(TStringList)operator(;)
  ident(CompleteKind)operator(:) operator(()ident(ckRoots)operator(,) ident(ckKeys)operator(,) ident(ckValues)operator(\);)

  reserved(procedure) ident(GetRootNames)operator(()ident(Strings)operator(:) ident(TStrings)operator(\);)
  reserved(var)
    ident(Node)operator(:) ident(TTreeNode)operator(;)
  reserved(begin)
    ident(SL)operator(.)ident(Clear)operator(;)
    ident(Node) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(GetFirstNode)operator(;)
    reserved(while) ident(Assigned)operator(()ident(Node)operator(\)) reserved(do) reserved(begin)
      ident(SL)operator(.)ident(Add)operator(()ident(Node)operator(.)ident(Text)operator(\);)
      ident(Node) operator(:=) ident(Node)operator(.)ident(GetNextSibling)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  reserved(if) reserved(not) ident(DoAutoComplete) reserved(then)
    ident(Exit)operator(;)

  ident(Key) operator(:=) ident(PathE)operator(.)ident(Text)operator(;)
  ident(Root) operator(:=) ident(TraceKey)operator(()ident(ExRegRoot)operator(()ident(Key)operator(\)\);)

  reserved(if) reserved(not) ident(CharIn)operator(()ident(Key)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\)) reserved(then)
    ident(CompleteKind) operator(:=) ident(ckRoots)
  reserved(else) reserved(if) ident(ExRegValueSet)operator(()ident(Key)operator(\)) reserved(then)
    ident(CompleteKind) operator(:=) ident(ckValues)
  reserved(else)
    ident(CompleteKind) operator(:=) ident(ckKeys)operator(;)

  reserved(case) ident(CompleteKind) reserved(of)
  ident(ckRoots)operator(:) reserved(begin)
    ident(Prefix) operator(:=) string<delimiter(')delimiter(')>operator(;)
    ident(Suffix) operator(:=) ident(Key)operator(;)
  reserved(end)operator(;)

  ident(ckKeys)operator(:) reserved(begin)
    ident(Path) operator(:=) ident(ExRegFullKey)operator(()ident(Key)operator(\);)
    ident(Prefix) operator(:=) ident(UntilLastChar)operator(()ident(Path)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\);)
    ident(Suffix) operator(:=) ident(FromLastChar)operator(()ident(Path)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\);)
  reserved(end)operator(;)

  ident(ckValues)operator(:) reserved(begin)
    ident(p) operator(:=) ident(Pos)operator(()string<delimiter(')content(\\\\)delimiter(')>operator(,) ident(Key)operator(\);)
    ident(Prefix) operator(:=) ident(Copy)operator(()ident(Key)operator(,) integer(1)operator(,) ident(p) operator(-) integer(1)operator(\);)
    ident(Suffix) operator(:=) ident(Copy)operator(()ident(Key)operator(,) ident(p) operator(+) integer(2)operator(,) ident(Length)operator(()ident(Key)operator(\)) operator(-) ident(p) operator(-) integer(1)operator(\);)
  reserved(end)operator(;)

  reserved(else)
  reserved(end)operator(;)

  ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)

  reserved(if) ident(CompleteKind) reserved(in) operator([)ident(ckKeys)operator(,) ident(ckValues)operator(]) reserved(then)
    reserved(with) ident(MainReg) reserved(do) reserved(begin)
      ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Root)operator(\)\);)
      ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Root)operator(\)\);)
      ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Prefix)operator(\)\);)

      reserved(if) ident(CompleteKind) operator(=) ident(ckValues) reserved(then) reserved(begin)
        reserved(if) reserved(not) ident(HasValues) reserved(then)
          ident(Exit)operator(;)
        ident(GetValueNames)operator(()ident(SL)operator(\);)
      reserved(end) reserved(else) reserved(if) ident(CompleteKind) operator(=) ident(ckKeys) reserved(then) reserved(begin)
        reserved(if) reserved(not) ident(HasSubKeys) reserved(then)
          ident(Exit)operator(;)
        ident(GetKeyNames)operator(()ident(SL)operator(\);)
      reserved(end)operator(;)

      ident(CloseKey)operator(;)
    reserved(end)
  reserved(else) reserved(begin)
    ident(GetRootNames)operator(()ident(SL)operator(\);)
  reserved(end)operator(;)

  reserved(if) ident(Suffix) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin)
    reserved(if) operator(()ident(SL)operator(.)ident(Count) operator(>) integer(0)operator(\)) reserved(and) reserved(not) ident(StrIn)operator(()ident(SL)operator(,) string<delimiter(')delimiter(')>operator(\)) reserved(then)
      ident(Suffix) operator(:=) ident(SL)operator([)integer(0)operator(];)
  reserved(end) reserved(else) reserved(begin)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do)
      reserved(if) ident(TextAtBegin)operator(()ident(SL)operator([)ident(i)operator(],) ident(Suffix)operator(\)) reserved(then) reserved(begin)
        ident(Suffix) operator(:=) ident(SL)operator([)ident(i)operator(];)
      ident(Break)operator(;) reserved(end)operator(;)
  reserved(end)operator(;)

  ident(Len) operator(:=) ident(Length)operator(()ident(PathE)operator(.)ident(Text)operator(\);)

  reserved(if) ident(CompleteKind) operator(=) ident(ckValues) reserved(then)
    ident(Prefix) operator(:=) ident(Prefix) operator(+) string<delimiter(')content(\\\\)delimiter(')>
  reserved(else) reserved(if) ident(CompleteKind) operator(=) ident(ckKeys) reserved(then)
    ident(Prefix) operator(:=) ident(Prefix) operator(+) char<delimiter(')content(\\)delimiter(')>operator(;)

  reserved(with) ident(PathE) reserved(do) reserved(begin)
    ident(DoAutoComplete) operator(:=) ident(False)operator(;)  comment(//Avoid Recursion)
      ident(Text) operator(:=) ident(Prefix) operator(+) ident(Suffix)operator(;)
    ident(DoAutoComplete) operator(:=) ident(True)operator(;)

    ident(SelStart) operator(:=) ident(Len)operator(;)
    ident(SelLength) operator(:=) ident(Length)operator(()ident(Text)operator(\)) operator(-) ident(Len)operator(;)
  reserved(end)operator(;)

  ident(SL)operator(.)ident(Free)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(PathEExit)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(DeActivateThis)operator(()ident(PathE)operator(\);)
  ident(DoAutoComplete) operator(:=) ident(False)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(ArrangePlutoStyle)operator(;)
reserved(begin)
  reserved(with) ident(ValuesWin) reserved(do) reserved(begin)
    ident(Height) operator(:=) ident(MainWin)operator(.)ident(ClientHeight) reserved(div) integer(3)operator(;)
    ident(Top) operator(:=) ident(MainWin)operator(.)ident(ClientHeight) operator(-) ident(Height) operator(-) integer(43)operator(;)
    ident(Left) operator(:=) integer(0)operator(;)
    ident(Width) operator(:=) ident(MainWin)operator(.)ident(ClientWidth) operator(-) integer(4)operator(;)
    comment(//Align := alBottom;)
  reserved(end)operator(;)

  reserved(with) ident(WorkWin) reserved(do) reserved(begin)
    ident(Top) operator(:=) integer(0)operator(;)
    ident(Width) operator(:=) ident(Max)operator(()ident(MainWin)operator(.)ident(ClientWidth) reserved(div) integer(3)operator(,) ident(WorkWin)operator(.)ident(Constraints)operator(.)ident(MinWidth)operator(\);)
    ident(Left) operator(:=) ident(ValuesWin)operator(.)ident(Width) operator(-) ident(Width)operator(;)
    ident(Height) operator(:=) ident(MainWin)operator(.)ident(ClientHeight) operator(-) integer(43) operator(-) ident(ValuesWin)operator(.)ident(Height)operator(;)
    comment(//Align := alRight;)
  reserved(end)operator(;)

  reserved(with) ident(TreeWin) reserved(do) reserved(begin)
    ident(Top) operator(:=) integer(0)operator(;)
    ident(Height) operator(:=) ident(WorkWin)operator(.)ident(Height)operator(;)
    ident(Left) operator(:=) integer(0)operator(;)
    ident(Width) operator(:=) ident(ValuesWin)operator(.)ident(Width) operator(-) ident(WorkWin)operator(.)ident(Width)operator(;)
  reserved(end)operator(;)
     
  comment({TreeWin.Align := alNone;
  WorkWin.Align := alNone;
  ValuesWin.Align := alNone;})
reserved(end)operator(;)

reserved(procedure) ident(ArrangeFreeStyle)operator(;)
reserved(const)
  ident(Space) operator(=) integer(10)operator(;)
reserved(begin)
  reserved(with) ident(ValuesWin) reserved(do) reserved(begin)
    ident(Height) operator(:=) ident(Screen)operator(.)ident(Height) reserved(div) integer(3)operator(;)
    ident(Align) operator(:=) ident(alBottom)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(WorkWin) reserved(do) reserved(begin)
    ident(Width) operator(:=) ident(Max)operator(()ident(Screen)operator(.)ident(WorkAreaWidth) reserved(div) integer(3)operator(,) ident(Constraints)operator(.)ident(MinWidth) operator(+) integer(2) operator(*) ident(Space)operator(\);)
    ident(Align) operator(:=) ident(alRight)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(TreeWin) reserved(do) reserved(begin)
    ident(Align) operator(:=) ident(alClient)operator(;)
  reserved(end)operator(;)

  ident(TreeWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;)
  ident(WorkWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;)
  ident(ValuesWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;)

  reserved(with) ident(ValuesWin) reserved(do) reserved(begin)
    ident(Height) operator(:=) ident(Height) operator(-) integer(2) operator(*) ident(Space)operator(;)
    ident(Width) operator(:=) ident(Width) operator(-) integer(2) operator(*) ident(Space)operator(;)
    ident(Top) operator(:=) ident(Top) operator(+) ident(Space)operator(;)
    ident(Left) operator(:=) ident(Left) operator(+) ident(Space)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(TreeWin) reserved(do) reserved(begin)
    ident(Height) operator(:=) ident(Height) operator(-) integer(1) operator(*) ident(Space)operator(;)
    ident(Width) operator(:=) ident(Width) operator(-) integer(1) operator(*) ident(Space)operator(;)
    ident(Top) operator(:=) ident(Top) operator(+) ident(Space)operator(;)
    ident(Left) operator(:=) ident(Left) operator(+) ident(Space)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(WorkWin) reserved(do) reserved(begin)
    ident(Height) operator(:=) ident(Height) operator(-) integer(1) operator(*) ident(Space)operator(;)
    ident(Width) operator(:=) ident(Width) operator(-) integer(2) operator(*) ident(Space)operator(;)
    ident(Top) operator(:=) ident(Top) operator(+) ident(Space)operator(;)
    ident(Left) operator(:=) ident(Left) operator(+) ident(Space)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(ArrangeBigValStyle)operator(;)
reserved(var)
  ident(MinHeight)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(MinHeight) operator(:=) ident(WorkWin)operator(.)ident(Constraints)operator(.)ident(MinHeight) operator(+)
               ident(MainWin)operator(.)ident(Constraints)operator(.)ident(MinHeight)operator(;)

  reserved(with) ident(ValuesWin) reserved(do) reserved(begin)
    ident(Height) operator(:=) ident(Screen)operator(.)ident(WorkAreaHeight) operator(-) ident(Max)operator(()ident(Screen)operator(.)ident(Height) reserved(div) integer(3)operator(,) ident(MinHeight)operator(\);)
    ident(Align) operator(:=) ident(alBottom)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(WorkWin) reserved(do) reserved(begin)
    ident(Width) operator(:=) ident(Screen)operator(.)ident(WorkAreaWidth) reserved(div) integer(3)operator(;)
    ident(Align) operator(:=) ident(alRight)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(TreeWin) reserved(do) reserved(begin)
    ident(Align) operator(:=) ident(alClient)operator(;)
  reserved(end)operator(;)

  ident(TreeWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;)
  ident(WorkWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;)
  ident(ValuesWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(ArrangeRegEdStyle)operator(;)
reserved(begin)
  reserved(with) ident(TreeWin) reserved(do) reserved(begin)
    ident(Width) operator(:=) ident(Screen)operator(.)ident(WorkAreaWidth) reserved(div) integer(4)operator(;)
    ident(Align) operator(:=) ident(alLeft)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(ValuesWin) reserved(do) reserved(begin)
    ident(Align) operator(:=) ident(alClient)operator(;)
    ident(Align) operator(:=) ident(alNone)operator(;)
    ident(Height) operator(:=) ident(Height) operator(-) ident(WorkWin)operator(.)ident(Constraints)operator(.)ident(MinHeight)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(WorkWin) reserved(do) reserved(begin)
    ident(Top) operator(:=) ident(ValuesWin)operator(.)ident(Top) operator(+) ident(ValuesWin)operator(.)ident(Height)operator(;)
    ident(Left) operator(:=) ident(ValuesWin)operator(.)ident(Left)operator(;)
    ident(Height) operator(:=) ident(Constraints)operator(.)ident(MinHeight)operator(;)
    ident(Width) operator(:=) ident(ValuesWin)operator(.)ident(Width)operator(;)
  reserved(end)operator(;)

  ident(TreeWin)operator(.)ident(Align) operator(:=) ident(alNone)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(PathEKeyUp)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) reserved(not) operator(()ident(Key) reserved(in) operator([)ident(VK_DELETE)operator(,) ident(VK_BACK)operator(,) ident(VK_ESCAPE)operator(]\)) reserved(then)
    ident(UserGotoKey)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ActivateThis)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then)
    ident(ActivateThis)operator(()ident(ActiveControl)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then)
    ident(DeActivateThis)operator(()ident(ActiveControl)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(Pluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ArrangePlutoStyle)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(RegEdit1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ArrangeRegEdStyle)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(Free1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ArrangeFreeStyle)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(BigVal1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ArrangeBigValStyle)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(SplashScreen1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(SplashWin)operator(.)ident(Show)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(HistoryClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(NotePad)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(version.txt)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(WebLinkMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(Browse)operator(()string<delimiter(')content(http://)delimiter(')> operator(+) ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(Caption)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(SupportMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(Browse)operator(()string<delimiter(')content(http://cYcnus.de/php/phpbb/viewforum.php?f=1)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(Credits1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(FileName)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(FileName) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(credits deluxe.htm)delimiter(')>operator(;)
  reserved(if) ident(FileExists)operator(()ident(FileName)operator(\)) reserved(then)
    ident(ExecFile)operator(()ident(FileName)operator(\))
  reserved(else) reserved(begin)
    ident(FileName) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(credits.htm)delimiter(')>operator(;)
    reserved(if) ident(FileExists)operator(()ident(FileName)operator(\)) reserved(then)
      ident(ExecFile)operator(()ident(FileName)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(GetCLSIDFromClipboard)operator(:) reserved(string)operator(;)
reserved(var)
  ident(CLSID)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(CLSID) operator(:=) ident(BetweenChars)operator(()ident(Clipboard)operator(.)ident(AsText)operator(,) char<delimiter(')content({)delimiter(')>operator(,) char<delimiter(')content(})delimiter(')>operator(,) ident(True)operator(\);)
  reserved(if) ident(CLSID) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin)
    ident(Result) operator(:=) ident(Clipboard)operator(.)ident(AsText)operator(;)
    ident(InputQuery)operator(()string<delimiter(')content(No CLSID in Clipboard.)delimiter(')>operator(,)
      string<delimiter(')content(Use following format:)delimiter(')> operator(+) ident(EOL) operator(+)
      string<delimiter(')content({00000000-0000-0000-0000-000000000000})delimiter(')>operator(,) ident(Result)operator(\);)
  ident(Exit)operator(;) reserved(end) reserved(else)
    ident(Result) operator(:=) ident(CLSID)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(FindCLSID)operator(;)
reserved(var)
  ident(CLSID)operator(,) ident(Desc)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(CLSID) operator(:=) ident(GetCLSIDFromClipboard)operator(;)
  ident(Desc) operator(:=) ident(RegNameOfCLSID)operator(()ident(CLSID)operator(\);)
  reserved(if) ident(Desc) operator(<>) string<delimiter(')delimiter(')> reserved(then)
    ident(InputQuery)operator(()string<delimiter(')content(Your CLSID is...)delimiter(')>operator(,) ident(CLSID)operator(,) ident(Desc)operator(\))
  reserved(else)
    ident(ShowMessage)operator(()string<delimiter(')content(CLSID not found: )delimiter(')> operator(+) ident(CLSID) operator(+) char<delimiter(')content(.)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(GotoCLSID)operator(;)
reserved(var)
  ident(CLSID)operator(,) ident(Desc)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(CLSID) operator(:=) ident(GetCLSIDFromClipboard)operator(;)
  ident(Desc) operator(:=) ident(RegNameOfCLSID)operator(()ident(CLSID)operator(\);)
  reserved(if) ident(Desc) operator(<>) string<delimiter(')delimiter(')> reserved(then) reserved(begin)
    ident(GotoKey)operator(()string<delimiter(')content(HKCR\\CLSID\\)delimiter(')> operator(+) ident(CLSID)operator(\);)
    ident(TreeWin)operator(.)ident(FocusControl)operator(()ident(RegTV)operator(\);)
  reserved(end) reserved(else)
    ident(ShowMessage)operator(()string<delimiter(')content(CLSID not found: )delimiter(')> operator(+) ident(CLSID) operator(+) char<delimiter(')content(.)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(function) ident(TMainWin)operator(.)ident(Greeting)operator(()ident(Name)operator(:) reserved(string) operator(=) ident(NoPreBlinkHint)operator(\):) reserved(string)operator(;)
reserved(const)
  ident(Alias)operator(:) reserved(array)operator([)integer(0)operator(..)integer(4)operator(]) reserved(of) reserved(string) operator(=)
    operator(()string<delimiter(')content(Licenser)delimiter(')>operator(,) string<delimiter(')content(Murphy)delimiter(')>operator(,) string<delimiter(')content(Sleeper)delimiter(')>operator(,) string<delimiter(')content(Leon)delimiter(')>operator(,)  string<delimiter(')content(Great Admin)delimiter(')>operator(\);)
  ident(RealNames)operator(:) reserved(array)operator([)integer(0)operator(..)integer(4)operator(]) reserved(of) reserved(string) operator(=)
    operator(()string<delimiter(')content(Heinz)delimiter(')>operator(,)    string<delimiter(')content(Korny)delimiter(')>operator(,)  string<delimiter(')content(Sven)delimiter(')>operator(,)    string<delimiter(')content(Simon)delimiter(')>operator(,) string<delimiter(')content(Korny ;-\))delimiter(')>operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(s)operator(:) reserved(string)operator(;)
reserved(begin)
  reserved(if) ident(Name) operator(=) ident(NoPreBlinkHint) reserved(then)
    ident(Name) operator(:=) ident(PrefWin)operator(.)ident(UserNameE)operator(.)ident(Text)operator(;)
    
  reserved(if) ident(Trim)operator(()ident(Name)operator(\)) operator(=) string<delimiter(')delimiter(')> reserved(then)
    ident(s) operator(:=) string<delimiter(')content(No name?)delimiter(')>
  reserved(else) reserved(if) ident(SameText)operator(()ident(Trim)operator(()ident(Name)operator(\),) string<delimiter(')content(Pluto-User)delimiter(')>operator(\)) reserved(then)
    ident(s) operator(:=) string<delimiter(')content(Hi!)delimiter(')>
  reserved(else)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) integer(4) reserved(do)
      reserved(if) ident(SameText)operator(()ident(Name)operator(,) ident(Alias)operator([)ident(i)operator(]\)) reserved(then) reserved(begin)
        ident(s) operator(:=) string<delimiter(')content(Hi )delimiter(')> operator(+) ident(RealNames)operator([)ident(i)operator(]) operator(+) string<delimiter(')content(! This is a cYcnus.EasterEgg)delimiter(')>operator(;)
      ident(Break)operator(;) reserved(end)
  reserved(else) reserved(if) ident(Length)operator(()ident(Name)operator(\)) operator(>) integer(20) reserved(then)
    ident(s) operator(:=) string<delimiter(')content(Hi )delimiter(')> operator(+) ident(Name) operator(+)
      string<delimiter(')content(. What a name.)delimiter(')>
  reserved(else)
    ident(s) operator(:=) string<delimiter(')content(Hi )delimiter(')> operator(+) ident(Name) operator(+) char<delimiter(')content(!)delimiter(')>operator(;)

  ident(Result) operator(:=) ident(s)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(PrefMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(PrefWin)operator(.)ident(Show)operator(;)
reserved(end)operator(;)

reserved(function) ident(TempDir)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(temp\\)delimiter(')>operator(;)
  reserved(if) reserved(not) operator(()ident(DirectoryExists)operator(()ident(Result)operator(\)) reserved(or) ident(CreateDir)operator(()ident(Result)operator(\)\)) reserved(then)
    ident(Result) operator(:=) ident(PlutoDir)operator(;)
reserved(end)operator(;)

reserved(function) ident(PlutoIniFileName)operator(:) reserved(string)operator(;)

  reserved(function) ident(Default)operator(:) reserved(string)operator(;)
  reserved(begin)
    ident(Result) operator(:=) ident(MyDir) operator(+) string<delimiter(')content(pluto.ini)delimiter(')>operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(Result) operator(:=) ident(SavedPlutoIniFileName)operator(;)
  reserved(if) ident(Result) operator(<>) string<delimiter(')delimiter(')> reserved(then)
    ident(Exit)operator(;)

comment(//  Result := Params.ReadString('ini', ''\);)

  reserved(if) ident(IsValidFileName)operator(()ident(Result)operator(\)) reserved(then)
    ident(Result) operator(:=) ident(PlutoDir) operator(+) ident(Result)
  reserved(else)
    ident(Result) operator(:=) ident(Default)operator(;)

  ident(SavedPlutoIniFileName) operator(:=) ident(Result)operator(;) comment(//Faster in future calls)
reserved(end)operator(;)

reserved(function) ident(PlutoUniPath)operator(:) reserved(string)operator(;)
reserved(begin)
  comment(//Result := 'Reg: HKCU\\Software\\Pluto\\';)
  ident(Result) operator(:=) string<delimiter(')content(Ini <)delimiter(')> operator(+) ident(PlutoIniFileName) operator(+) string<delimiter(')content(>:)delimiter(')>operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(EditBoolStrMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(NotePad)operator(()ident(PlutoDir) operator(+) ident(BoolStrFileName)operator(\);)
  ident(ShowMessage)operator(()string<delimiter(')content(Click OK when you finished editing.)delimiter(')> operator(+) ident(EOL) operator(+)
              string<delimiter(')content((Pluto will reload the Boolean Strings.\))delimiter(')>operator(\);)
  ident(WorkWin)operator(.)ident(LoadBoolStr)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(SisyStarted)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
comment({var
  NextSisyIndex: Integer;
  NextSisy: TSisyThread;          })
reserved(begin)
  comment({NextSisy := nil;

  with TSisyThread(Sender\) do begin
    //AddHint(Format('%s started after %0.1f seconds', [Name, SecsPerRound]\), True\);

    with Sisys do begin
      NextSisyIndex := IndexOf(Sender\) + 1;
      if NextSisyIndex < Count then
        NextSisy := Items[NextSisyIndex];
    end;

    if Assigned(NextSisy\) then
      with NextSisy do
        if not Started and Suspended then
          Resume;
  end; })
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(SisyTerminate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(Sisys)operator(\)) reserved(then)
    ident(Sisys)operator(.)ident(Delete)operator(()ident(Sisys)operator(.)ident(IndexOf)operator(()ident(Sender)operator(\)\);)
  ident(AddHint)operator(()string<delimiter(')content(Sisyphus )delimiter(')> operator(+) ident(Quote)operator(()ident(TSisyThread)operator(()ident(Sender)operator(\).)ident(Name)operator(\)) operator(+) string<delimiter(')content( destroyed.)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(FormCloseQuery)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(CanClose)operator(:) ident(Boolean)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)

  reserved(procedure) ident(TerminateThread)operator(()ident(Thread)operator(:) ident(TThread)operator(;) ident(Name)operator(:) reserved(string)operator(\);)
  reserved(const)
    ident(ThreadTimeOut) operator(=) integer(3000)operator(;)
  reserved(begin)
    reserved(if) ident(Assigned)operator(()ident(Thread)operator(\)) reserved(then)
      reserved(with) ident(Thread) reserved(do) reserved(begin)
        ident(Priority) operator(:=) ident(tpNormal)operator(;)
        ident(Terminate)operator(;)
        reserved(while) ident(Suspended) reserved(do) ident(Resume)operator(;) comment(// ensure running)
        reserved(if) integer(0) operator(<>) ident(WaitForSingleObject)operator(()ident(Handle)operator(,) ident(ThreadTimeOut)operator(\)) reserved(then) reserved(begin)
          ident(ShowMessage)operator(()string<delimiter(')content(Timeout: Killing Thread: )delimiter(')> operator(+) ident(Name) operator(+) ident(EOL) operator(+)
            string<delimiter(')content(This is a critical error and may cause memory leaks and crashes.)delimiter(')> operator(+) ident(EOL) operator(+)
            string<delimiter(')content(We recommend to reboot your system before you continue.)delimiter(')>operator(\);)
          ident(Windows)operator(.)ident(TerminateThread)operator(()ident(Handle)operator(,) integer(0)operator(\);)
        reserved(end) reserved(else)
          ident(Thread)operator(.)ident(Free)operator(;)
      reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(CanClose) operator(:=) ident(False)operator(;)

  reserved(try)
    ident(AddHint)operator(()string<delimiter(')content(Stopping SisyphusThreads...)delimiter(')>operator(\);)
    reserved(if) ident(Assigned)operator(()ident(Sisys)operator(\)) reserved(then)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Sisys)operator(.)ident(Count)operator(-)integer(1) reserved(do)
        ident(TSisyThread)operator(()ident(Sisys)operator([)ident(i)operator(]\).)ident(Suspend)operator(;)
    ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);)

    ident(AddHint)operator(()string<delimiter(')content(Wait for SpyThread...)delimiter(')>operator(\);)
    ident(TerminateThread)operator(()ident(SpyThread)operator(,) string<delimiter(')content(SpyThread)delimiter(')>operator(\);)
    ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);)

    ident(AddHint)operator(()string<delimiter(')content(Wait for SisyphusThreads...)delimiter(')>operator(\);)
    reserved(if) ident(Assigned)operator(()ident(Sisys)operator(\)) reserved(then)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Sisys)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
        ident(ChangeLastHint)operator(()string<delimiter(')content(Wait for SisyphusThreads...)delimiter(')> operator(+) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(i)operator(]\).)ident(Name)operator(\);)
        ident(TerminateThread)operator(()ident(TSisyThread)operator(()ident(Sisys)operator([)ident(i)operator(]\),) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(i)operator(]\).)ident(Name)operator(\);)
      reserved(end)operator(;)
    ident(ChangeLastHint)operator(()string<delimiter(')content(Wait for SisyphusThreads...OK)delimiter(')>operator(\);)
  reserved(except)
    reserved(with) ident(WorkWin)operator(.)ident(HintLB)operator(.)ident(Items) reserved(do)
      ident(ShowMessage)operator(()string<delimiter(')content(Error while trying to terminate threads.)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(Last Message:)delimiter(')> operator(+) ident(EOL) operator(+)
        ident(Strings)operator([)ident(Count) operator(-) integer(1)operator(]\);)
    ident(CanClose) operator(:=) ident(True)operator(;)
  reserved(end)operator(;)

  ident(AddHint)operator(()string<delimiter(')content(Terminating successfull.)delimiter(')>operator(\);)
  ident(CanClose) operator(:=) ident(True)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);)

  reserved(procedure) ident(TryClose)operator(()ident(Win)operator(:) ident(TCustomForm)operator(\);)
  reserved(begin)
    reserved(if) ident(Assigned)operator(()ident(Win)operator(\)) reserved(and) ident(Win)operator(.)ident(Visible) reserved(then)
      ident(Win)operator(.)ident(Close)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(MainReg)operator(.)ident(Free)operator(;)

  ident(Action) operator(:=) ident(caFree)operator(;)

  reserved(if) ident(DontSavePrefs) reserved(then)
    ident(Exit)operator(;)

  ident(AddHint)operator(()string<delimiter(')content(Saving settings...)delimiter(')>operator(\);)

  reserved(try)
    ident(TryClose)operator(()ident(WorkWin)operator(\);)
    ident(TryClose)operator(()ident(ValuesWin)operator(\);)
    ident(TryClose)operator(()ident(TreeWin)operator(\);)
    ident(TryClose)operator(()ident(FindWin)operator(\);)
    ident(TryClose)operator(()ident(SplashWin)operator(\);)
    ident(TryClose)operator(()ident(PrefWin)operator(\);)
  reserved(except)
    ident(DontSavePrefs) operator(:=) ident(True)operator(;) comment(//try again without pref saving)
  reserved(end)operator(;)

  reserved(with) ident(PlutoKey)operator(.)ident(GetKey)operator(()string<delimiter(')content(Window)delimiter(')>operator(\)) reserved(do)
    reserved(try)
      ident(WriteBool)operator(()string<delimiter(')content(Maximized)delimiter(')>operator(,) ident(WindowState) operator(=) ident(wsMaximized)operator(\);)
      reserved(if) ident(WindowState) operator(=) ident(wsNormal) reserved(then) reserved(begin)
        ident(WriteInteger)operator(()string<delimiter(')content(Left)delimiter(')>operator(,) ident(Left)operator(\);)
        ident(WriteInteger)operator(()string<delimiter(')content(Top)delimiter(')>operator(,) ident(Top)operator(\);)
        ident(WriteInteger)operator(()string<delimiter(')content(Width)delimiter(')>operator(,) ident(Width)operator(\);)
        ident(WriteInteger)operator(()string<delimiter(')content(Height)delimiter(')>operator(,) ident(Height)operator(\);)
      reserved(end)operator(;)
    reserved(finally)
      ident(Free)operator(;)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(Plutoini1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(NotePad)operator(()ident(PlutoIniFileName)operator(\);)
  ident(ShowMessage)operator(()string<delimiter(')content(Click OK when you finished editing.)delimiter(')> operator(+) ident(EOL) operator(+)
              string<delimiter(')content((Pluto will reload )delimiter(')> operator(+) ident(PlutoIniFileName) operator(+) char<delimiter(')content(\))delimiter(')>operator(\);)
  ident(PrefWin)operator(.)ident(PrefHost)operator(.)ident(Load)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(RegEdit2Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(RegEdit)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(SysEdit1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(SysEdit)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(NotePad1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(NotePad)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(WordPad1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(WordPad)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(OpenWinDir1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ExploreFolder)operator(()ident(WinDir)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(OpenProgramFolder1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ExploreFolder)operator(()ident(MyDir)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(ExitPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(Close)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(Find1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(FindWin)operator(.)ident(SfRootKeyRB)operator(.)ident(Checked) operator(:=) ident(True)operator(;)
  ident(FindWin)operator(.)ident(Show)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(FormPaint)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Started) reserved(and) reserved(not) ident(MainWinLoaded) reserved(then) reserved(begin)
    ident(MainWinLoaded) operator(:=) ident(True)operator(;)
    ident(Load)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(StatusBarDrawPanel)operator(()ident(StatusBar)operator(:) ident(TStatusBar)operator(;)
  ident(Panel)operator(:) ident(TStatusPanel)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(\);)
reserved(begin)
  reserved(with) ident(StatusBar)operator(.)ident(Canvas) reserved(do) reserved(begin)
    ident(Brush)operator(.)ident(Color) operator(:=) ident(clBlack)operator(;)
    ident(FillRect)operator(()ident(Rect)operator(\);)
    reserved(with) ident(Font) reserved(do) reserved(begin)
      ident(Name) operator(:=) string<delimiter(')content(MS Sans Serif)delimiter(')>operator(;)
      ident(Style) operator(:=) operator([];)
      reserved(case) ident(Panel)operator(.)ident(Index) reserved(of)
        integer(0)operator(:) reserved(if) ident(HintBlinkT)operator(.)ident(Enabled) reserved(then)
             ident(Color) operator(:=) ident(clBrightRed)
           reserved(else)
             ident(Color) operator(:=) ident(clBrightSilver)operator(;)
        integer(1)operator(:) ident(Color) operator(:=) ident(clWhite)operator(;)
        integer(2)operator(:) ident(Color) operator(:=) ident(clCyan)operator(;)
        integer(3)operator(:) ident(Color) operator(:=) ident(clBrightPurple)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

    reserved(if) ident(Panel)operator(.)ident(Alignment) operator(=) ident(taRightJustify) reserved(then)
      ident(TextOut)operator(()ident(Rect)operator(.)ident(Right) operator(-) ident(TextWidth)operator(()ident(Panel)operator(.)ident(Text)operator(\),) ident(Rect)operator(.)ident(Top)operator(,) ident(Panel)operator(.)ident(Text)operator(\))
    reserved(else)
      ident(TextOut)operator(()ident(Rect)operator(.)ident(Left)operator(,) ident(Rect)operator(.)ident(Top)operator(,) ident(Panel)operator(.)ident(Text)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(PathEKeyPress)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Char)operator(\);)
reserved(begin)
  reserved(if) ident(Key) operator(=) char(#127) reserved(then) comment(//Silly key management)
    ident(Key) operator(:=) char(#0)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(HintBlinkTTimer)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text) operator(:=) string<delimiter(')content(Ready)delimiter(')>operator(;)
  ident(StopHintBlinking)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(StopHintBlinking)operator(;)
reserved(begin)
  ident(HintBlinkT)operator(.)ident(Enabled) operator(:=) ident(False)operator(;)
  ident(PreBlinkHint) operator(:=) ident(NoPreBlinkHint)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(FindCLSID1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(FindCLSID)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(GotoCLSID1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(GotoCLSID)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(CommandLineParameters1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(NotePad)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Params.txt)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(DeleteTempFolder1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(mrYes) operator(=) ident(MessageDlg)operator(()string<delimiter(')content(Deleting )delimiter(')> operator(+) ident(Quote)operator(()ident(TempDir) operator(+) string<delimiter(')content(*.*)delimiter(')> operator(+) ident(EOL)operator(,) char<delimiter(')content(")delimiter(')>operator(\)) operator(+)
                        string<delimiter(')content(Are you sure?)delimiter(')>operator(,) ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then)
    ident(DeleteFiles)operator(()ident(TempDir) operator(+) string<delimiter(')content(*.*)delimiter(')>operator(,) ident(False)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(CurrentDir1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ShowMessage)operator(()string<delimiter(')content(MyDir: )delimiter(')> operator(+) ident(MyDir) operator(+) ident(EOL) operator(+)
              string<delimiter(')content(PlutoDir: )delimiter(')> operator(+) ident(PlutoDir) operator(+) ident(EOL) operator(+)
              string<delimiter(')content(CurrentDir: )delimiter(')> operator(+) ident(GetCurrentDir) operator(+) ident(EOL) operator(+)
              string<delimiter(')content(Params: )delimiter(')> operator(+) ident(EOL) operator(+)
              ident(GetParams)operator(()ident(EOL)operator(\)\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(RepairPluto155bBug1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Msg)operator(:) reserved(string)operator(;)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
reserved(begin)
  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)

  reserved(try)
    ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKCU)operator(;)
    ident(Reg)operator(.)ident(OpenKey)operator(()string<delimiter(')content(Software)delimiter(')>operator(\);)
    ident(Msg) operator(:=) string<delimiter(')delimiter(')>operator(;)
    reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Sisyphus)delimiter(')>operator(\)) reserved(then)
      ident(Msg) operator(:=) ident(Msg) operator(+) string<delimiter(')content(HKCU\\Software\\Sisyphus)delimiter(')> operator(+) ident(EOL)operator(;)
    reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Main)delimiter(')>operator(\)) reserved(then)
      ident(Msg) operator(:=) ident(Msg) operator(+) string<delimiter(')content(HKCU\\Software\\Main)delimiter(')> operator(+) ident(EOL)operator(;)
    reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Spy)delimiter(')>operator(\)) reserved(then)
      ident(Msg) operator(:=) ident(Msg) operator(+) string<delimiter(')content(HKCU\\Software\\Spy)delimiter(')> operator(+) ident(EOL)operator(;)
    reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(View)delimiter(')>operator(\)) reserved(then)
      ident(Msg) operator(:=) ident(Msg) operator(+) string<delimiter(')content(HKCU\\Software\\View)delimiter(')> operator(+) ident(EOL)operator(;)
    reserved(if) ident(Msg) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin)
      ident(ShowMessage)operator(()string<delimiter(')content(No bug detected :-\))delimiter(')>operator(\);)
    reserved(end) reserved(else) reserved(begin)
      ident(Msg) operator(:=)
        string<delimiter(')content(Hi folks!)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(We are very sorry: A bug in Pluto made some components in the Edit)delimiter(')>  operator(+) ident(EOL) operator(+)
        string<delimiter(')content(window save their values to the regsitry instead of the ini file.)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(If you want to repair that, you have to delete the following keys:)delimiter(')> operator(+) ident(EOL) operator(+)
        ident(EOL) operator(+)
        ident(Msg) operator(+)
        ident(EOL) operator(+)
        string<delimiter(')content(This is not dangerous at all, but if you are interested in having)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(a clean registry, you should delete this useless keys.)delimiter(')> operator(+) ident(EOL) operator(+)
        ident(EOL) operator(+)
        string<delimiter(')content(You surely noticed that this key names are rubish because they are)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(in the level that is normally used by programs.)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(If you have programs installed that use this keys for their)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(preferences, you may get problems when deleting the keys!)delimiter(')> operator(+) ident(EOL) operator(+)
        ident(EOL) operator(+)
        string<delimiter(')content(So, now you have to decide what to do:)delimiter(')> operator(+) ident(EOL) operator(+)
        ident(EOL) operator(+)
        string<delimiter(')content(Yes: Delete the keys. You have to confirm the deleting of each key.)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(No: Jump to the Software key and delete manually.)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(Cancel: Do nothing.)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(Yes to All: Delete all keys.)delimiter(')>operator(;)

      reserved(case) ident(MessageDlg)operator(()ident(Msg)operator(,) ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(,) ident(mbYesToAll)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(of)
        ident(mrYes)operator(:) reserved(begin)
          reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Main)delimiter(')>operator(\))
           reserved(and) operator(()ident(mrYes)operator(=)ident(MessageDlg)operator(()string<delimiter(')content(Delete HKU\\Software\\Main ?)delimiter(')>operator(,)
           ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)\)) reserved(then)
             ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Main)delimiter(')>operator(\);)

          reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Sisyphus)delimiter(')>operator(\))
           reserved(and) operator(()ident(mrYes)operator(=)ident(MessageDlg)operator(()string<delimiter(')content(Delete HKU\\Software\\Sisyphus ?)delimiter(')>operator(,)
           ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)\)) reserved(then)
            ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Sisyphus)delimiter(')>operator(\);)

          reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(Spy)delimiter(')>operator(\))
           reserved(and) operator(()ident(mrYes)operator(=)ident(MessageDlg)operator(()string<delimiter(')content(Delete HKU\\Software\\Spy ?)delimiter(')>operator(,)
           ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)\)) reserved(then)
            ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Spy)delimiter(')>operator(\);)

          reserved(if) ident(Reg)operator(.)ident(KeyExists)operator(()string<delimiter(')content(View)delimiter(')>operator(\))
           reserved(and) operator(()ident(mrYes)operator(=)ident(MessageDlg)operator(()string<delimiter(')content(Delete HKU\\Software\\View ?)delimiter(')>operator(,)
           ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)\)) reserved(then)
            ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(View)delimiter(')>operator(\);)
        reserved(end)operator(;)

        ident(mrYesToAll)operator(:) reserved(begin)
          ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Main)delimiter(')>operator(\);)
          ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Sisyphus)delimiter(')>operator(\);)
          ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(Spy)delimiter(')>operator(\);)
          ident(Reg)operator(.)ident(DeleteKey)operator(()string<delimiter(')content(View)delimiter(')>operator(\);)
        reserved(end)operator(;)

        ident(mrNo)operator(:) reserved(begin)
          ident(TreeWin)operator(.)ident(SetFocus)operator(;)
          ident(GotoKey)operator(()string<delimiter(')content(HKCU\\Software\\)delimiter(')>operator(\);)
        reserved(end)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

  reserved(finally)
    ident(Reg)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(BackupRegistryscanreg1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ExecFile)operator(()string<delimiter(')content(scanreg)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(Username1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ShowMessage)operator(()ident(UserName)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(ToDoMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(NotePad)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(ToDo.txt)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(MailLinkMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(MailTo)operator(()ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(Caption)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(IjustwantCONTACT1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(MailTo)operator(()string<delimiter(')content(pluto@cYcnus.de)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(ExternalHexEditMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ExecFile)operator(()ident(PrefWin)operator(.)ident(ExternalHexEditE)operator(.)ident(Text)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(AnotherPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ExecFile)operator(()ident(Application)operator(.)ident(ExeName)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(Path1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
preprocessor({$IFDEF UNIKEY})
  ident(UserUniPath) operator(:=) ident(InputBox)operator(()string<delimiter(')content(UniKey)delimiter(')>operator(,) string<delimiter(')content(Input an UniPath.)delimiter(')> operator(+) ident(EOL) operator(+)
    ident(EOL) operator(+)
    string<delimiter(')content(No idea? Try one of these: )delimiter(')> operator(+) ident(EOL) operator(+)
    string<delimiter(')content(WinAmpVisColor <viscolor.txt>:)delimiter(')> operator(+) ident(EOL) operator(+)
    string<delimiter(')content(Params:)delimiter(')> operator(+) ident(EOL) operator(+)
    string<delimiter(')content(Reg: HKCU)delimiter(')> operator(+) ident(EOL) operator(+)
    string<delimiter(')content(Ini <)delimiter(')> operator(+) ident(MyDir) operator(+) string<delimiter(')content(pluto.ini>:)delimiter(')> operator(+) ident(EOL) operator(+)
    string<delimiter(')content(Ini <)delimiter(')> operator(+) ident(MyDir) operator(+) string<delimiter(')content(pluto.ini>:[View])delimiter(')> operator(+) ident(EOL)operator(,)
    ident(UserUniPath)operator(\);)
preprocessor({$ENDIF})
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(RegisterPlugIns1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
preprocessor({$IFDEF UNIKEY})
  reserved(if) ident(UniPluginOD)operator(.)ident(Execute) reserved(then)
    ident(RegisterUniClass)operator(()ident(UniPluginOD)operator(.)ident(FileName)operator(\);)
preprocessor({$ENDIF})
reserved(end)operator(;)
  
reserved(procedure) ident(TMainWin)operator(.)ident(FormResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ArrangeIcons)operator(;)
  ident(ArrangePlutoStyle)operator(;)
  ident(WorkWin)operator(.)ident(WindowState) operator(:=) ident(wsNormal)operator(;)
  ident(ValuesWin)operator(.)ident(WindowState) operator(:=) ident(wsNormal)operator(;)
  ident(TreeWin)operator(.)ident(WindowState) operator(:=) ident(wsNormal)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(SwapLM_CUBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Path)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(Path) operator(:=) ident(TraceKey)operator(()ident(PathE)operator(.)ident(Text)operator(,) ident(uhShortcuts)operator(\);)
  reserved(if) ident(SwapHKU_HKLM)operator(()ident(Path)operator(\)) reserved(then) reserved(begin)
    ident(PathE)operator(.)ident(Text) operator(:=) ident(Path)operator(;)
    ident(UserGotoKey)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(ShowLoadreport1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(NotePad)operator(()ident(MyDir) operator(+) string<delimiter(')content(loadreport.txt)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(KillPluto1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(Application)operator(.)ident(Terminate)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(ShowPlatform1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ShowMessage)operator(()ident(Format)operator(()string<delimiter(')content(Platform: %s)delimiter(')> operator(+) ident(EOL) operator(+)
    string<delimiter(')content(Versin: %d.%d Build %d)delimiter(')>operator(,)
    operator([)ident(PlatformStrings)operator([)ident(Win32Platform)operator(],)
     ident(Win32MajorVersion)operator(,) ident(Win32MinorVersion)operator(,) ident(Win32BuildNumber)operator(]\)\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(MSConfig1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ExecFile)operator(()string<delimiter(')content(msconfig)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(TimetoRelaxMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(RelaxFile)operator(:) reserved(string)operator(;)
reserved(begin)
  reserved(with) ident(PlutoKey)operator(.)ident(GetKey)operator(()string<delimiter(')content(Main)delimiter(')>operator(\)) reserved(do)
    reserved(try)
      ident(RelaxFile) operator(:=) ident(ReadString)operator(()string<delimiter(')content(Relax)delimiter(')>operator(\);)
    reserved(finally)
      ident(Free)operator(;)
    reserved(end)operator(;)

  reserved(if) ident(RelaxFile) operator(=) string<delimiter(')delimiter(')> reserved(then)
    ident(ShowMessage)operator(()string<delimiter(')content(This menu item can be used for something that lets you relax,)delimiter(')> operator(+) ident(EOL) operator(+)
      string<delimiter(')content(for example Diablo2, you favorite song or the latest news about the)delimiter(')> operator(+) ident(EOL) operator(+)
      string<delimiter(')content(decreasing AOL member numbers.)delimiter(')> operator(+) ident(EOL) operator(+)
      ident(EOL) operator(+)
      string<delimiter(')content(Feel free to use everything you want.)delimiter(')> operator(+) ident(EOL) operator(+)
      string<delimiter(')content(Open the pluto.ini (CTRL+I\) and add a new value "Relax" in the "Main")delimiter(')> operator(+) ident(EOL) operator(+)
      string<delimiter(')content(section.)delimiter(')> operator(+) ident(EOL) operator(+)
      ident(EOL) operator(+)
      string<delimiter(')content(And don)char('')content(t forget:)delimiter(')> operator(+) ident(EOL) operator(+)
      string<delimiter(')content(R E L A X ! ! !)delimiter(')>operator(\))
  reserved(else)
    ident(ExecFile)operator(()ident(RelaxFile)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(OnSisyChange)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);)

  reserved(procedure) ident(UpdateValue)operator(;)
  reserved(var)
    ident(Reg)operator(:) ident(TXRegistry)operator(;)
    ident(Index)operator(:) ident(Integer)operator(;)
  reserved(begin)
    reserved(if) reserved(not) ident(SameRegPath)operator(()ident(ExRegFullKey)operator(()ident(Change)operator(.)ident(Path)operator(\),) ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)\)) reserved(then)
      ident(Exit)operator(;)

    ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
    reserved(try)
      ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Change)operator(.)ident(Path)operator(\)\);)
      reserved(if) ident(Reg)operator(.)ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Change)operator(.)ident(Path)operator(\)\)) reserved(then)
        reserved(with) ident(ValuesWin) reserved(do) reserved(begin)
          ident(Index) operator(:=) ident(FindItemByRealName)operator(()ident(ExRegValue)operator(()ident(Change)operator(.)ident(Path)operator(\)\);)
          reserved(if) ident(Index) operator(>) operator(-)integer(1) reserved(then) reserved(begin)
            reserved(if) ident(Change)operator(.)ident(Typ) operator(=) ident(cValueMinus) reserved(then)
              ident(ValueList)operator(.)ident(Items)operator(.)ident(Delete)operator(()ident(Index)operator(\))
            reserved(else) reserved(if) ident(Change)operator(.)ident(Typ) operator(=) ident(cContextChange) reserved(then)
              ident(UpdateValue)operator(()ident(Reg)operator(,) ident(ValueList)operator(.)ident(Items)operator([)ident(Index)operator(]\);)
          reserved(end) reserved(else) reserved(if) ident(Change)operator(.)ident(Typ) operator(=) ident(cValuePlus) reserved(then)
            ident(AddValue)operator(()ident(Reg)operator(,) ident(ExRegValue)operator(()ident(Change)operator(.)ident(Path)operator(\)\);)
        reserved(end)operator(;)
    reserved(finally)
      ident(Reg)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(AddHint)operator(()ident(Sender)operator(.)ident(Name) operator(+) string<delimiter(')content( notified )delimiter(')> operator(+) ident(Change)operator(.)ident(Path)operator(\);)
  reserved(if) ident(Change)operator(.)ident(Typ) reserved(in) operator([)ident(cValueMinus)operator(,) ident(cValuePlus)operator(,) ident(cContextChange)operator(]) reserved(then)
    ident(UpdateValue)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(OnSisyValuePlus)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);)
reserved(var)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
reserved(begin)
  reserved(if) reserved(not) ident(SameRegPath)operator(()ident(ExRegFullKey)operator(()ident(Change)operator(.)ident(Path)operator(\),) ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)\)) reserved(then)
    ident(Exit)operator(;)

  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  reserved(try)
    ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Change)operator(.)ident(Path)operator(\)\);)
    reserved(if) ident(Reg)operator(.)ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Change)operator(.)ident(Path)operator(\)\)) reserved(then)
      ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(Reg)operator(,) ident(ExRegValue)operator(()ident(Change)operator(.)ident(Path)operator(\)\);)
  reserved(finally)
    ident(Reg)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(OnSisyValueMinus)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);)
reserved(var)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
  ident(Index)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(if) reserved(not) ident(SameRegPath)operator(()ident(ExRegFullKey)operator(()ident(Change)operator(.)ident(Path)operator(\),) ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)\)) reserved(then)
    ident(Exit)operator(;)

  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  reserved(try)
    ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Change)operator(.)ident(Path)operator(\)\);)
    reserved(if) ident(Reg)operator(.)ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Change)operator(.)ident(Path)operator(\)\)) reserved(then)
      reserved(with) ident(ValuesWin) reserved(do) reserved(begin)
        ident(Index) operator(:=) ident(FindItemByRealName)operator(()ident(ExRegValue)operator(()ident(Change)operator(.)ident(Path)operator(\)\);)
        reserved(if) ident(Index) operator(>) operator(-)integer(1) reserved(then)
          ident(ValueList)operator(.)ident(Items)operator(.)ident(Delete)operator(()ident(Index)operator(\);)
      reserved(end)operator(;)
  reserved(finally)
    ident(Reg)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TMainWin)operator(.)ident(OnSisyContextChange)operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\);)
reserved(var)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
  ident(Index)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(if) reserved(not) ident(SameRegPath)operator(()ident(ExRegFullKey)operator(()ident(Change)operator(.)ident(Path)operator(\),) ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)\)) reserved(then)
    ident(Exit)operator(;)

  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  reserved(try)
    ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Change)operator(.)ident(Path)operator(\)\);)
    reserved(if) ident(Reg)operator(.)ident(OpenKey)operator(()ident(ExRegKey)operator(()ident(Change)operator(.)ident(Path)operator(\)\)) reserved(then)
      reserved(with) ident(ValuesWin) reserved(do) reserved(begin)
        ident(Index) operator(:=) ident(FindItemByRealName)operator(()ident(ExRegValue)operator(()ident(Change)operator(.)ident(Path)operator(\)\);)
        reserved(if) ident(Index) operator(>) operator(-)integer(1) reserved(then)
          ident(UpdateValue)operator(()ident(Reg)operator(,) ident(ValueList)operator(.)ident(Items)operator([)ident(Index)operator(]\);)
      reserved(end)operator(;)
  reserved(finally)
    ident(Reg)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(end)operator(.)
reserved(unit) ident(PrefU)operator(;)

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Variants)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,)
  ident(Dialogs)operator(,) ident(ComCtrls)operator(,) ident(ExtCtrls)operator(,) ident(StdCtrls)operator(,) ident(PlutoConst)operator(,) ident(NewPanels)operator(,) ident(PrefTools)operator(,)
  ident(YTools)operator(,) ident(YTypes)operator(,) ident(start)operator(,) ident(XReg)operator(,) ident(LinkLabel)operator(;)

reserved(type)
  ident(TPrefWin) operator(=) reserved(class)operator(()ident(TForm)operator(\))
    ident(PrefPC)operator(:) ident(TPageControl)operator(;)
    ident(CommonPage)operator(:) ident(TTabSheet)operator(;)
    ident(KeyPage)operator(:) ident(TTabSheet)operator(;)
    ident(DataPage)operator(:) ident(TTabSheet)operator(;)
    ident(KeysBP)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox3)operator(:) ident(TGroupBox)operator(;)
    ident(MainPrevBP)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox4)operator(:) ident(TGroupBox)operator(;)
    ident(BorderPanel6)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox6)operator(:) ident(TGroupBox)operator(;)
    ident(SortKeysCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(PrefHost)operator(:) ident(TPrefHost)operator(;)
    ident(MainPreviewCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(SplashScreenCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(PrefValuesPC)operator(:) ident(TPageControl)operator(;)
    ident(StringPage)operator(:) ident(TTabSheet)operator(;)
    ident(MultiStringPage)operator(:) ident(TTabSheet)operator(;)
    ident(IntPage)operator(:) ident(TTabSheet)operator(;)
    ident(BinaryPage)operator(:) ident(TTabSheet)operator(;)
    ident(BorderPanel8)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox8)operator(:) ident(TGroupBox)operator(;)
    ident(ShowDwordAsHex)operator(:) ident(TPrefCheckBox)operator(;)
    ident(BorderPanel7)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox7)operator(:) ident(TGroupBox)operator(;)
    ident(CountZeroByteCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(BorderPanel1)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox2)operator(:) ident(TGroupBox)operator(;)
    ident(UseExtendedModelCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(BorderPanel2)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox1)operator(:) ident(TGroupBox)operator(;)
    ident(ShowAsBinaryCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(ShowBinaryAsRG)operator(:) ident(TPrefRadioGroup)operator(;)
    ident(Smart4BBCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(DWordPreviewL)operator(:) ident(TLabel)operator(;)
    ident(Label4)operator(:) ident(TLabel)operator(;)
    ident(Label5)operator(:) ident(TLabel)operator(;)
    ident(Label6)operator(:) ident(TLabel)operator(;)
    ident(Label7)operator(:) ident(TLabel)operator(;)
    ident(UserNameE)operator(:) ident(TPrefEdit)operator(;)
    ident(Label8)operator(:) ident(TLabel)operator(;)
    ident(MainPreviewE)operator(:) ident(TPrefEdit)operator(;)
    ident(Label12)operator(:) ident(TLabel)operator(;)
    ident(DefaultIconPreviewCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(KeyInfoPreviewCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(SelectExternalHexEditOD)operator(:) ident(TOpenDialog)operator(;)
    ident(BorderPanel3)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox9)operator(:) ident(TGroupBox)operator(;)
    ident(IntegrationPage)operator(:) ident(TTabSheet)operator(;)
    ident(BorderPanel4)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox5)operator(:) ident(TGroupBox)operator(;)
    ident(Label11)operator(:) ident(TLabel)operator(;)
    ident(SelectExternalHexEditB)operator(:) ident(TButton)operator(;)
    ident(RunExternalHexEditB)operator(:) ident(TButton)operator(;)
    ident(ExternalHexEditE)operator(:) ident(TPrefEdit)operator(;)
    ident(Label13)operator(:) ident(TLabel)operator(;)
    ident(BorderPanel5)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox10)operator(:) ident(TGroupBox)operator(;)
    ident(Label15)operator(:) ident(TLabel)operator(;)
    ident(RegisterAppCB)operator(:) ident(TCheckBox)operator(;)
    ident(Label3)operator(:) ident(TLabel)operator(;)
    ident(Memo1)operator(:) ident(TMemo)operator(;)
    ident(ExpandStringsRG)operator(:) ident(TPrefRadioGroup)operator(;)
    ident(QuotersE)operator(:) ident(TPrefEdit)operator(;)
    ident(Label1)operator(:) ident(TLabel)operator(;)
    ident(StringPreviewL)operator(:) ident(TLabel)operator(;)
    ident(ShowLineCountCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(ShowTreeViewLinesCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(ValuePage)operator(:) ident(TTabSheet)operator(;)
    ident(BorderPanel10)operator(:) ident(TBorderPanel)operator(;)
    ident(GroupBox12)operator(:) ident(TGroupBox)operator(;)
    ident(ShowListViewGridCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(Label9)operator(:) ident(TLabel)operator(;)
    ident(DefaultValueNameE)operator(:) ident(TPrefEdit)operator(;)
    ident(Label10)operator(:) ident(TLabel)operator(;)
    ident(GotoPlutoKeyB)operator(:) ident(TButton)operator(;)
    ident(ColorPanel2)operator(:) ident(TColorPanel)operator(;)
    ident(LinkLabel1)operator(:) ident(TLinkLabel)operator(;)
    ident(SmartExpandCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(KeysSingleClickCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(ValuesSingleClickCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(ShowProgressCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(ColorPanel1)operator(:) ident(TColorPanel)operator(;)
    ident(Label2)operator(:) ident(TLabel)operator(;)
    ident(ReloadB)operator(:) ident(TButton)operator(;)
    ident(DefaultB)operator(:) ident(TButton)operator(;)
    ident(SaveB)operator(:) ident(TButton)operator(;)
    reserved(procedure) ident(PrefPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;)
      ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(PrefHostLoaded)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(StandardPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(DataPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(UserNameEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
      ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(PrefValuesPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;)
      ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(ShowDwordAsHexClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(MainPreviewEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ReloadBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RunExternalHexEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SelectExternalHexEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ExternalHexEditEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(DefaultBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RegisterAppCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SaveBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(StringPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ShowTreeViewLinesCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ShowListViewGridCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(DefaultValueNameEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(LoadPrefs)operator(;)
    reserved(procedure) ident(UseExtendedModelCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(IntegrationPageShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(GotoPlutoKeyBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(KeysSingleClickCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ValuesSingleClickCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(QuotersEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SplashScreenCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SaveBMouseMove)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,)
      ident(Y)operator(:) ident(Integer)operator(\);)
  directive(public)
    ident(StringQuoterBegin)operator(,) ident(StringQuoterEnd)operator(:) reserved(string)operator(;)
  reserved(end)operator(;)

reserved(var)
  ident(PrefWin)operator(:) ident(TPrefWin)operator(;)

reserved(implementation)

reserved(uses)
  ident(TreeU)operator(,) ident(ValuesU)operator(,) ident(Splash)operator(,) ident(plutomain)operator(,) ident(WorkU)operator(;)

preprocessor({$R *.dfm})

reserved(procedure) ident(TPrefWin)operator(.)ident(PrefPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;)
  ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);)
reserved(var)
  ident(PC)operator(:) ident(TPageControl)operator(;)
  ident(Page)operator(:) ident(TTabSheet)operator(;)
reserved(begin)
  ident(PC) operator(:=) ident(TPageControl)operator(()ident(Control)operator(\);)
  ident(Page) operator(:=) ident(PC)operator(.)ident(Pages)operator([)ident(TabIndex)operator(];)
  reserved(with) ident(PC)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin)
    reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Common)delimiter(')> reserved(then)
      ident(Color) operator(:=) ident(clWhite)
    reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Keys)delimiter(')> reserved(then)
      ident(Color) operator(:=) ident(clBrightCyan)
    reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Values)delimiter(')> reserved(then)
      ident(Color) operator(:=) ident(clBrightPurple)
    reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Data)delimiter(')> reserved(then)
      ident(Color) operator(:=) ident(clBrightBlue)
    reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(System)delimiter(')> reserved(then)
      ident(Color) operator(:=) ident(clBrightYellow)
    reserved(else)
      ident(Color) operator(:=) ident(clWhite)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(PC)operator(.)ident(Canvas) reserved(do)
    reserved(if) ident(Active) reserved(then) reserved(begin)
      ident(Font)operator(.)ident(Style) operator(:=) operator([)ident(fsBold)operator(];)
      ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;)
      ident(FillRect)operator(()ident(Rect)operator(\);)
      ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(5)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(3)operator(,) ident(Page)operator(.)ident(Caption)operator(\);)
    reserved(end) reserved(else) reserved(begin)
      ident(Font)operator(.)ident(Style) operator(:=) operator([];)
      ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;)
      ident(FillRect)operator(()ident(Rect)operator(\);)
      ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(3)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(2)operator(,) ident(Page)operator(.)ident(Caption)operator(\);)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(PrefHostLoaded)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(PrefHost)operator(.)ident(KeyName) operator(:=) ident(PlutoUniPath)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(StandardPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Started) reserved(then)
    ident(RegTV)operator(.)ident(Repaint)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(DataPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(Started) reserved(then)
    ident(Exit)operator(;)

  ident(ValuesWin)operator(.)ident(UpdateValues)operator(;)
  ident(RegTV)operator(.)ident(Repaint)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(UserNameEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text) operator(:=) ident(MainWin)operator(.)ident(Greeting)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) ident(Key) operator(=) ident(VK_ESCAPE) reserved(then)
    ident(Close)operator(;)
    
  reserved(if) ident(Key) operator(=) ident(VK_SCROLL) reserved(then)
    ident(MainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(,) ident(Key)operator(,) ident(Shift)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag) reserved(then)
    ident(DeActivateThis)operator(()ident(ActiveControl)operator(\);)

  ident(AlphaBlendValue) operator(:=) integer(127)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Started) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then)
    ident(ActivateThis)operator(()ident(ActiveControl)operator(\);)

  ident(AlphaBlendValue) operator(:=) integer(255)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(PrefValuesPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;)
  ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);)
reserved(var)
  ident(PC)operator(:) ident(TPageControl)operator(;)
  ident(Page)operator(:) ident(TTabSheet)operator(;)
reserved(begin)
  ident(PC) operator(:=) ident(TPageControl)operator(()ident(Control)operator(\);)
  ident(Page) operator(:=) ident(PC)operator(.)ident(Pages)operator([)ident(TabIndex)operator(];)
  reserved(with) ident(PC)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin)
    reserved(if) ident(Page) operator(=) ident(StringPage) reserved(then)
      ident(Color) operator(:=) ident(clBrightRed)
    reserved(else) reserved(if) ident(Page) operator(=) ident(MultiStringPage) reserved(then)
      ident(Color) operator(:=) ident(clBrightPurple)
    reserved(else) reserved(if) ident(Page) operator(=) ident(IntPage) reserved(then)
      ident(Color) operator(:=) ident(clBrightBlue)
    reserved(else) reserved(if) ident(Page) operator(=) ident(BinaryPage) reserved(then)
      ident(Color) operator(:=) ident(clBrightGreen)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(PC)operator(.)ident(Canvas) reserved(do)
    reserved(if) ident(Active) reserved(then) reserved(begin)
      ident(Font)operator(.)ident(Style) operator(:=) operator([)ident(fsBold)operator(];)
      ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;)
      ident(FillRect)operator(()ident(Rect)operator(\);)
      ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(18) operator(+) integer(5)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(3)operator(,) ident(Page)operator(.)ident(Caption)operator(\);)
      ident(PC)operator(.)ident(Images)operator(.)ident(Draw)operator(()ident(PC)operator(.)ident(Canvas)operator(,) ident(Rect)operator(.)ident(Left) operator(+) integer(4)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(2)operator(,) ident(Page)operator(.)ident(ImageIndex)operator(\);)
    reserved(end) reserved(else) reserved(begin)
      ident(Font)operator(.)ident(Style) operator(:=) operator([];)
      ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;)
      ident(FillRect)operator(()ident(Rect)operator(\);)
      ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(18) operator(+) integer(3)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(2)operator(,) ident(Page)operator(.)ident(Caption)operator(\);)
      ident(PC)operator(.)ident(Images)operator(.)ident(Draw)operator(()ident(PC)operator(.)ident(Canvas)operator(,) ident(Rect)operator(.)ident(Left) operator(+) integer(1)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(1)operator(,) ident(Page)operator(.)ident(ImageIndex)operator(\);)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(ShowDwordAsHexClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(DWordPreviewL)operator(.)ident(Caption) operator(:=) string<delimiter(')content(Preview: )delimiter(')> operator(+) ident(ValuesU)operator(.)ident(DataPreviewOfContext)operator(()
    ident(RegContext)operator(()ident(rdCardinal)operator(,) ident(Reverse)operator(()ident(ByteAOfHex)operator(()ident(HexOfCard)operator(()integer(1234567890)operator(,) integer(8)operator(\)\)\)\)\);)
  ident(DataPreviewChange)operator(()ident(Self)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(MainPreviewEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(MainPreviewE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then)
    ident(MainPreviewCB)operator(.)ident(Caption) operator(:=) string<delimiter(')content(&Show Preview for Default Value)delimiter(')>
  reserved(else)
    ident(MainPreviewCB)operator(.)ident(Caption) operator(:=) string<delimiter(')content(&Show Preview for )delimiter(')> operator(+)
      ident(Quote)operator(()ident(MainPreviewE)operator(.)ident(Text)operator(\);)

  ident(StandardPreviewChange)operator(()ident(Self)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(UserNameE)operator(.)ident(DefaultValue) operator(:=) ident(UserName)operator(;)
  ident(MainPreviewEChange)operator(()ident(Self)operator(\);)
  ident(PrefPC)operator(.)ident(ActivePageIndex) operator(:=) integer(0)operator(;)
  ident(PrefValuesPC)operator(.)ident(ActivePageIndex) operator(:=) integer(0)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ActivateThis)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(DeActivateThis)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(ReloadBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(LoadPrefs)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(RunExternalHexEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(FileName)operator(,) ident(TestValue)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(FileName) operator(:=) ident(TempDir) operator(+) string<delimiter(')content(~test.bin)delimiter(')>operator(;)
  ident(TestValue) operator(:=) string<delimiter(')content(This is only a test.)delimiter(')> operator(+) ident(EOL) operator(+)
               string<delimiter(')content(Everything seems to be OK.)delimiter(')>operator(;)
  reserved(if) ident(SaveByteA)operator(()ident(ByteAOfStr)operator(()ident(TestValue)operator(\),) ident(FileName)operator(\)) reserved(then)
    ident(ExecFileWith)operator(()ident(ExternalHexEditE)operator(.)ident(Text)operator(,) ident(FileName)operator(\))
  reserved(else)
    ident(ShowMessage)operator(()string<delimiter(')content(Could not write into file:)delimiter(')> operator(+) ident(EOL) operator(+)
                ident(FileName)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(SelectExternalHexEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(SelectExternalHexEditOD) reserved(do) reserved(begin)
    ident(InitialDir) operator(:=) ident(ExtractPath)operator(()ident(ExternalHexEditE)operator(.)ident(Text)operator(\);)
    ident(FileName) operator(:=) ident(ExtractFileName)operator(()ident(ExternalHexEditE)operator(.)ident(Text)operator(\);)
    reserved(if) ident(Execute) reserved(and) ident(FileExists)operator(()ident(FileName)operator(\)) reserved(then)
      ident(ExternalHexEditE)operator(.)ident(Text) operator(:=) ident(FileName)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(ExternalHexEditEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(RunExternalHexEditB)operator(.)ident(Enabled) operator(:=) ident(FileExists)operator(()ident(ExternalHexEditE)operator(.)ident(Text)operator(\);)
  reserved(if) ident(Assigned)operator(()ident(WorkWin)operator(\)) reserved(then)
    ident(WorkWin)operator(.)ident(ExternalEditB)operator(.)ident(Enabled) operator(:=) ident(RunExternalHexEditB)operator(.)ident(Enabled)operator(;)
  reserved(if) ident(Assigned)operator(()ident(MainWin)operator(\)) reserved(then)
    ident(MainWin)operator(.)ident(ExternalHexEditMI)operator(.)ident(Enabled) operator(:=) ident(RunExternalHexEditB)operator(.)ident(Enabled)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(DefaultBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(mrYes)operator(=)ident(MessageDlg)operator(()string<delimiter(')content(Do you really want to reset the preferences)delimiter(')> operator(+) ident(EOL) operator(+)
   string<delimiter(')content(to their defaults?)delimiter(')> operator(+) ident(EOL) operator(+)
   string<delimiter(')content((This can not be undone.\))delimiter(')>operator(,) ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then) reserved(begin)
    ident(CopyFile)operator(()ident(PChar)operator(()ident(PlutoIniFileName)operator(\),) ident(PChar)operator(()ident(PlutoIniFileName) operator(+) string<delimiter(')content(.backup)delimiter(')>operator(\),) ident(False)operator(\);)
    comment(//PrefHost.KeyName :=  'Ini <' + PlutoIniFileName + '.backup>:';)
    comment(//PrefHost.Save;)
    comment(//PrefHost.KeyName := PlutoUniPath;)
    ident(PrefHost)operator(.)ident(BackUp)operator(;)
   reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(RegisterAppCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(TXRegistry)operator(.)ident(Create) reserved(do)
    reserved(try)
      ident(RootKey) operator(:=) ident(HKLM)operator(;)
      ident(OpenKey)operator(()string<delimiter(')content(Software\\Microsoft\\Windows\\CurrentVersion\\App Paths)delimiter(')>operator(\);)
      reserved(if) ident(RegisterAppCB)operator(.)ident(Checked) reserved(then) reserved(begin)
        ident(OpenKey)operator(()string<delimiter(')content(pluto.exe)delimiter(')>operator(,) ident(True)operator(\);)
        ident(WriteString)operator(()string<delimiter(')delimiter(')>operator(,) ident(GetFileNew)operator(()ident(Application)operator(.)ident(ExeName)operator(\)\);)
      reserved(end) reserved(else)
        ident(DeleteKey)operator(()string<delimiter(')content(pluto.exe)delimiter(')>operator(\);)
    reserved(finally)
      ident(Free)operator(;)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(SaveBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(PrefHost)operator(.)ident(Save)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(StringPreviewChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(StringPreviewL)operator(.)ident(Caption) operator(:=) string<delimiter(')content(Preview: )delimiter(')> operator(+) ident(ValuesU)operator(.)ident(DataPreviewOfContext)operator(()
    ident(RegContext)operator(()ident(rdString)operator(,) ident(ByteAOfStr)operator(()string<delimiter(')content(%windir%)delimiter(')>operator(\)\)\);)
  ident(DataPreviewChange)operator(()ident(Self)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(ShowTreeViewLinesCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(RegTV) reserved(do) reserved(begin)
    ident(ShowLines) operator(:=) ident(ShowTreeViewLinesCB)operator(.)ident(Checked)operator(;)
    ident(ShowButtons) operator(:=) ident(ShowLines)operator(;)
  reserved(end)operator(;)
  ident(StandardPreviewChange)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(ShowListViewGridCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ValueList)operator(.)ident(GridLines) operator(:=) ident(ShowListViewGridCB)operator(.)ident(Checked)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(DefaultValueNameEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(DefaultValueCaption) operator(:=) ident(DefaultValueNameE)operator(.)ident(Text)operator(;)
  reserved(if) ident(Started) reserved(then)
    ident(TreeWin)operator(.)ident(RegTVChange)operator(()ident(Self)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(LoadPrefs)operator(;)
reserved(begin)
  ident(PrefHost)operator(.)ident(Load)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(UseExtendedModelCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(WorkWin)operator(.)ident(MultiStringTypeRG)operator(.)ident(ItemIndex) operator(:=) ident(Integer)operator(()ident(UseExtendedModelCB)operator(.)ident(Checked)operator(\);)
  ident(DataPreviewChange)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(IntegrationPageShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(TXRegistry)operator(.)ident(Create) reserved(do)
    reserved(try)
      ident(RootKey) operator(:=) ident(HKLM)operator(;)
      ident(OpenKey)operator(()string<delimiter(')content(Software\\Microsoft\\Windows\\CurrentVersion\\App Paths\\pluto.exe)delimiter(')>operator(\);)
      ident(RegisterAppCB)operator(.)ident(Checked) operator(:=) ident(SameFileName)operator(()ident(GetFileNew)operator(()ident(ReadString)operator(()string<delimiter(')delimiter(')>operator(\)\),)
        ident(GetFileNew)operator(()ident(Application)operator(.)ident(ExeName)operator(\)\);)
    reserved(finally)
      ident(Free)operator(;)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(GotoPlutoKeyBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(MainWin)operator(.)ident(GotoKey)operator(()string<delimiter(')content(HKLM\\Software\\Microsoft\\Windows\\CurrentVersion\\App Paths\\pluto.exe)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(PrefHost)operator(.)ident(Load)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(KeysSingleClickCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(TreeWin)operator(.)ident(CheckRegTVHotTrack)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(ValuesSingleClickCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ValuesWin)operator(.)ident(CheckValueListHotTrack)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(QuotersEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(QBegin)operator(,) ident(QEnd)operator(:) reserved(string)operator(;)
reserved(begin)
  reserved(with) ident(QuotersE) reserved(do) reserved(begin)
    reserved(if) ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then)
      ident(QBegin) operator(:=) string<delimiter(')delimiter(')>
    reserved(else)
      ident(QBegin) operator(:=) ident(Text)operator([)integer(1)operator(];)
    reserved(if) ident(Length)operator(()ident(Text)operator(\)) operator(<) integer(2) reserved(then)
      ident(QEnd) operator(:=) ident(QBegin)
    reserved(else)
      ident(QEnd) operator(:=) ident(Text)operator([)integer(2)operator(];)
  reserved(end)operator(;)

  reserved(if) operator(()ident(QBegin) operator(<>) ident(StringQuoterBegin)operator(\)) reserved(or) operator(()ident(QEnd) operator(<>) ident(StringQuoterEnd)operator(\)) reserved(then) reserved(begin)
    ident(StringQuoterBegin) operator(:=) ident(QBegin)operator(;)
    ident(StringQuoterEnd) operator(:=) ident(QEnd)operator(;)
    ident(StringPreviewChange)operator(()ident(Self)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(SplashScreenCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Started) reserved(and) ident(Assigned)operator(()ident(SplashWin)operator(\)) reserved(then)
    ident(SplashWin)operator(.)ident(SplashScreenCB)operator(.)ident(Checked) operator(:=) ident(SplashScreenCB)operator(.)ident(Checked)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TPrefWin)operator(.)ident(SaveBMouseMove)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,)
  ident(Y)operator(:) ident(Integer)operator(\);)
reserved(begin)
  ident(Label2)operator(.)ident(Font)operator(.)ident(Color) operator(:=) ident(clBrightRed)operator(;)
  ident(Application)operator(.)ident(ProcessMessages)operator(;)
  ident(Sleep)operator(()integer(200)operator(\);)
  ident(Label2)operator(.)ident(Font)operator(.)ident(Color) operator(:=) ident(clWhite)operator(;)
reserved(end)operator(;)

reserved(end)operator(.)
reserved(unit) ident(RegScanner)operator(;)

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(SysUtils)operator(,) ident(Dialogs)operator(,) ident(Classes)operator(,)
  ident(YTools)operator(,) ident(YTypes)operator(,) ident(XReg)operator(,) ident(Clock)operator(;)

reserved(type)
  ident(TRegScanThread) operator(=) reserved(class)operator(;)

  ident(TRegScanKeyEvent) operator(=) reserved(procedure) operator(()ident(Sender)operator(:) ident(TRegScanThread)operator(;) reserved(const) ident(KeyName)operator(:) reserved(string)operator(;) ident(Key)operator(:) ident(HKEY)operator(;) ident(Info)operator(:) ident(TRegKeyInfo)operator(\)) reserved(of) reserved(object)operator(;)
  ident(TRegScanValueEvent) operator(=) reserved(procedure) operator(()ident(Sender)operator(:) ident(TRegScanThread)operator(;) reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) ident(Context)operator(:) ident(TRegContext)operator(\)) reserved(of) reserved(object)operator(;)

  ident(TRegScanTask) operator(=) reserved(record)
    ident(Root)operator(:) reserved(string)operator(;)
    ident(Key)operator(:) ident(HKEY)operator(;)
  reserved(end)operator(;)
  ident(TRegScanTasks) operator(=) reserved(array) reserved(of) ident(TRegScanTask)operator(;)

  ident(TRegScanThread) operator(=) reserved(class)operator(()ident(TThread)operator(\))
  directive(private)
    ident(Keys)operator(,) ident(KeysOK)operator(,) ident(Values)operator(,) ident(ValuesOK)operator(:) ident(Integer)operator(;)
    ident(DoScanValues)operator(:) ident(Boolean)operator(;)
    ident(FOnKey)operator(:) ident(TRegScanKeyEvent)operator(;)
    ident(FOnValue)operator(:) ident(TRegScanValueEvent)operator(;)
    ident(FOnFaileKey)operator(:) ident(TRegScanKeyEvent)operator(;)
  directive(protected)
    reserved(procedure) ident(ScanKey)operator(()ident(Key)operator(:) ident(HKEY)operator(;) reserved(const) ident(KeyName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);) directive(virtual)operator(;)
    reserved(procedure) ident(ScanValues)operator(()ident(Key)operator(:) ident(HKEY)operator(;) ident(Info)operator(:) ident(TRegKeyInfo)operator(\);) directive(virtual)operator(;)

  directive(public)
    ident(Path)operator(:) reserved(string)operator(;)
    ident(CurrentTask)operator(:) ident(TRegScanTask)operator(;)
    ident(Tasks)operator(:) ident(TRegScanTasks)operator(;)
    reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;)
    reserved(procedure) ident(Execute)operator(;) directive(override)operator(;)
    reserved(procedure) ident(ScanAll)operator(;)
    reserved(function) ident(CurrentPath)operator(:) reserved(string)operator(;)
  directive(published)
    reserved(constructor) ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(;)
      ident(DoScanValues)operator(:) ident(Boolean) operator(=) ident(True)operator(;) ident(Tasks)operator(:) ident(TRegScanTasks) operator(=) reserved(nil)operator(\);)

    reserved(property) ident(OnKey)operator(:) ident(TRegScanKeyEvent) directive(read) ident(FOnKey) directive(write) ident(FOnKey)operator(;)
    reserved(property) ident(OnValue)operator(:) ident(TRegScanValueEvent) directive(read) ident(FOnValue) directive(write) ident(FOnValue)operator(;)
    reserved(property) ident(OnFaileKey)operator(:) ident(TRegScanKeyEvent) directive(read) ident(FOnFaileKey) directive(write) ident(FOnFaileKey)operator(;)
  reserved(end)operator(;)

reserved(implementation)

comment({ TRegScanThread })

reserved(constructor) ident(TRegScanThread)operator(.)ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(;)
  ident(DoScanValues)operator(:) ident(Boolean) operator(=) ident(True)operator(;) ident(Tasks)operator(:) ident(TRegScanTasks) operator(=) reserved(nil)operator(\);)
reserved(begin)
  reserved(inherited) ident(Create)operator(()ident(True)operator(\);)
  ident(Priority) operator(:=) ident(PriorityLevel)operator(;)
  ident(FreeOnTerminate) operator(:=) ident(False)operator(;)   
  ident(Self)operator(.)ident(DoScanValues) operator(:=) ident(DoScanValues)operator(;)
  ident(Self)operator(.)ident(Tasks) operator(:=) ident(Tasks)operator(;)
reserved(end)operator(;)

reserved(destructor) ident(TRegScanThread)operator(.)ident(Destroy)operator(;)
reserved(begin)
  reserved(inherited)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegScanThread)operator(.)ident(ScanAll)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(Keys) operator(:=) integer(0)operator(;)
  ident(KeysOK) operator(:=) integer(0)operator(;)
  ident(Values) operator(:=) integer(0)operator(;)
  ident(ValuesOK) operator(:=) integer(0)operator(;)

  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(Tasks)operator(\)) reserved(do) reserved(begin)
    ident(CurrentTask) operator(:=) ident(Tasks)operator([)ident(i)operator(];)
    reserved(with) ident(CurrentTask) reserved(do) reserved(begin)
      ident(Inc)operator(()ident(Keys)operator(\);)
      ident(ScanKey)operator(()ident(Key)operator(\);)
    reserved(end)operator(;)

    reserved(if) ident(Terminated) reserved(then) ident(Break)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegScanThread)operator(.)ident(ScanValues)operator(()ident(Key)operator(:) ident(HKEY)operator(;) ident(Info)operator(:) ident(TRegKeyInfo)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(MaxLen)operator(,) ident(NameLen)operator(,) ident(Len)operator(,) ident(Typ)operator(:) ident(Cardinal)operator(;)
  ident(p)operator(:) ident(PChar)operator(;)
  ident(Buffer)operator(:) ident(TByteA)operator(;)

  reserved(procedure) ident(ScanValue)operator(()ident(ValueName)operator(:) reserved(string)operator(;) ident(Typ)operator(:) ident(TRegDataType)operator(;) ident(Data)operator(:) ident(TByteA)operator(\);)
  reserved(begin)
    reserved(if) ident(Assigned)operator(()ident(OnValue)operator(\)) reserved(then)
      ident(OnValue)operator(()ident(Self)operator(,) ident(ValueName)operator(,) ident(RegContext)operator(()ident(Typ)operator(,) ident(Data)operator(\)\);)
    ident(Inc)operator(()ident(ValuesOK)operator(\);)
  reserved(end)operator(;)

reserved(begin)
  ident(MaxLen) operator(:=) ident(Info)operator(.)ident(MaxValueLen) operator(+) integer(1)operator(;) comment(//Include Nullbyte)
  ident(SetLength)operator(()ident(Buffer)operator(,) ident(Info)operator(.)ident(MaxDataLen)operator(\);)
  ident(GetMem)operator(()ident(p)operator(,) ident(MaxLen)operator(\);)

  ident(Inc)operator(()ident(Values)operator(,) ident(Info)operator(.)ident(NumValues)operator(\);)
  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Info)operator(.)ident(NumValues)operator(-)integer(1) reserved(do) reserved(begin)
    ident(NameLen) operator(:=) ident(MaxLen)operator(;)
    ident(Len) operator(:=) ident(Info)operator(.)ident(MaxDataLen)operator(;)
    reserved(if) ident(Success)operator(()ident(RegEnumValue)operator(()ident(Key)operator(,) ident(i)operator(,) ident(p)operator(,) ident(NameLen)operator(,) reserved(nil)operator(,) operator(@)ident(Typ)operator(,) ident(Pointer)operator(()ident(Buffer)operator(\),)
     operator(@)ident(Len)operator(\)\)) reserved(then)
      ident(ScanValue)operator(()ident(Copy)operator(()ident(p)operator(,) integer(0)operator(,) ident(NameLen)operator(\),) ident(Typ)operator(,) ident(Copy)operator(()ident(Buffer)operator(,) integer(0)operator(,) ident(Len)operator(\)\))
    reserved(else)
      ident(Yield)operator(;)
  reserved(end)operator(;)
  ident(FreeMem)operator(()ident(p)operator(,) ident(MaxLen)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TRegScanThread)operator(.)ident(ScanKey)operator(()ident(Key)operator(:) ident(HKEY)operator(;) reserved(const) ident(KeyName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(NewHKEY)operator(:) ident(HKEY)operator(;)
  ident(Info)operator(:) ident(TRegKeyInfo)operator(;)
  ident(l)operator(,) ident(Len)operator(:) ident(DWORD)operator(;)
  ident(p)operator(:) ident(PChar)operator(;)
  ident(z)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(if) ident(Terminated) reserved(then) ident(Exit)operator(;)

  reserved(with) ident(Info) reserved(do) reserved(begin)
    reserved(if) reserved(not) ident(Success)operator(()ident(RegQueryInfoKey)operator(()ident(Key)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) operator(@)ident(NumSubKeys)operator(,)
     operator(@)ident(MaxSubKeyLen)operator(,) reserved(nil)operator(,) operator(@)ident(NumValues)operator(,) operator(@)ident(MaxValueLen)operator(,) operator(@)ident(MaxDataLen)operator(,)
     reserved(nil)operator(,) reserved(nil)operator(\)\)) reserved(then)
      ident(Exit)operator(;)

    reserved(if) ident(Assigned)operator(()ident(OnKey)operator(\)) reserved(then)
      ident(OnKey)operator(()ident(Self)operator(,) ident(KeyName)operator(,) ident(Key)operator(,) ident(Info)operator(\);)
    reserved(if) ident(DoScanValues) reserved(and) operator(()ident(NumValues) operator(>) integer(0)operator(\)) reserved(then)
      ident(ScanValues)operator(()ident(Key)operator(,) ident(Info)operator(\);)

    reserved(if) ident(Info)operator(.)ident(NumSubKeys) operator(>) integer(0) reserved(then) reserved(begin)
      ident(Inc)operator(()ident(Keys)operator(,) ident(NumSubKeys)operator(\);)

      ident(Len) operator(:=) ident(MaxSubKeyLen) operator(+) integer(1)operator(;)
      ident(GetMem)operator(()ident(p)operator(,) ident(Len)operator(\);)

      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(NumSubKeys)operator(-)integer(1) reserved(do) reserved(begin)
        ident(l) operator(:=) ident(Len)operator(;)
        ident(RegEnumKeyEx)operator(()ident(Key)operator(,) ident(i)operator(,) ident(p)operator(,) ident(l)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(\);)
        reserved(if) ident(Success)operator(()ident(RegOpenKey)operator(()ident(Key)operator(,) ident(p)operator(,) ident(NewHKEY)operator(\)\)) reserved(then) reserved(begin)
          ident(z) operator(:=) ident(Length)operator(()ident(Path)operator(\);)
          ident(Path) operator(:=) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(p)operator(;)
          ident(ScanKey)operator(()ident(NewHKEY)operator(,) ident(p)operator(\);)
          ident(RegCloseKey)operator(()ident(NewHKEY)operator(\);)
          ident(SetLength)operator(()ident(Path)operator(,) ident(z)operator(\);)
        reserved(end) reserved(else)
          reserved(if) ident(Assigned)operator(()ident(OnFaileKey)operator(\)) reserved(then)
            ident(OnFaileKey)operator(()ident(Self)operator(,) ident(p)operator(,) ident(Key)operator(,) ident(Info)operator(\);)

        reserved(if) ident(Terminated) reserved(then)
          ident(Break)operator(;)
      reserved(end)operator(;)
      ident(FreeMem)operator(()ident(p)operator(,) ident(Len)operator(\);)
    reserved(end)operator(;)
  reserved(end)operator(;)

  ident(Inc)operator(()ident(KeysOK)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TRegScanThread)operator(.)ident(Execute)operator(;)
reserved(var)
  ident(Secs)operator(:) ident(Double)operator(;)
reserved(begin)
  reserved(with) ident(TClock)operator(.)ident(Create) reserved(do) reserved(begin)
    ident(ScanAll)operator(;)
    ident(Secs) operator(:=) ident(SecondsPassed)operator(;)
    ident(Free)operator(;)
  reserved(end)operator(;)

  ident(WriteLn)operator(()string<delimiter(')content(finished.)delimiter(')>operator(\);)
  ident(WriteLn)operator(()  ident(Format)operator(()string<delimiter(')content(Keys:   %6d counted (%3d failed\))delimiter(')>operator(,) operator([)ident(Keys)operator(,) ident(Keys) operator(-) ident(KeysOK)operator(]\)\);)
  reserved(if) ident(DoScanValues) reserved(then)
    ident(WriteLn)operator(()ident(Format)operator(()string<delimiter(')content(Values: %6d counted (%3d failed\))delimiter(')>operator(,) operator([)ident(Values)operator(,) ident(Values) operator(-) ident(ValuesOK)operator(]\)\);)
  ident(WriteLn)operator(()string<delimiter(')content(t )delimiter(')> operator(+) ident(Format)operator(()string<delimiter(')content(%.2f)delimiter(')>operator(,) operator([)ident(Secs)operator(]\)) operator(+) string<delimiter(')content( seconds)delimiter(')>operator(\);)
  reserved(if) ident(Secs) operator(>) integer(0) reserved(then)
    ident(WriteLn)operator(()string<delimiter(')content(r )delimiter(')> operator(+) ident(Format)operator(()string<delimiter(')content(%.0f)delimiter(')>operator(,) operator([)ident(Keys) operator(/) ident(Secs)operator(]\)) operator(+) string<delimiter(')content( k/s)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(function) ident(TRegScanThread)operator(.)ident(CurrentPath)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(CurrentTask)operator(.)ident(Root) operator(+) ident(Path)operator(;)
reserved(end)operator(;)

reserved(end)operator(.)
reserved(unit) ident(RegTV)operator(;)

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) ident(Dialogs)operator(,)
  ident(ComCtrls)operator(;)

reserved(type)
  ident(TRegTV) operator(=) reserved(class)operator(()ident(TTreeView)operator(\))
  directive(private)
    comment({ Private-Deklarationen })
  directive(protected)
    comment({ Protected-Deklarationen })
  directive(public)
    comment({ Public-Deklarationen })
  directive(published)
    comment({ Published-Deklarationen })
  reserved(end)operator(;)

reserved(procedure) ident(Register)operator(;)

reserved(implementation)

reserved(procedure) ident(Register)operator(;)
reserved(begin)
  ident(RegisterComponents)operator(()string<delimiter(')content(pluto)delimiter(')>operator(,) operator([)ident(TRegTV)operator(]\);)
reserved(end)operator(;)

reserved(end)operator(.)
reserved(unit) ident(Sisyphus)operator(;)

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(Classes)operator(,) ident(SysUtils)operator(,) ident(XReg)operator(,) ident(YTools)operator(,) ident(YTypes)operator(,) ident(Clock)operator(;)

reserved(type)
  ident(TSpyValue) operator(=) reserved(class)
    ident(Name)operator(:) reserved(string)operator(;)
    ident(Next)operator(:) ident(TSpyValue)operator(;)
    comment(//DIC: TByteA;)
    ident(Typ)operator(:) ident(TXRegDataType)operator(;)
    ident(Data)operator(:) ident(TByteA)operator(;)
    reserved(constructor) ident(Create)operator(()ident(AName)operator(:) reserved(string)operator(\);)
  reserved(end)operator(;)

  ident(TSpyKey) operator(=) reserved(class)
  directive(public)
    ident(Parent)operator(:) ident(TSpyKey)operator(;)
    ident(Name)operator(:) reserved(string)operator(;)
    ident(Next)operator(:) ident(TSpyKey)operator(;)
    ident(Keys)operator(:) ident(TSpyKey)operator(;)
    ident(Values)operator(:) ident(TSpyValue)operator(;)
    reserved(procedure) ident(Spy)operator(()ident(AHKEY)operator(:) ident(HKEY)operator(\);)
    reserved(function) ident(Path)operator(:) reserved(string)operator(;)
    reserved(constructor) ident(Create)operator(()ident(AParent)operator(:) ident(TSpyKey)operator(;) ident(AName)operator(:) reserved(string)operator(\);)
    reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;)
  reserved(end)operator(;)

reserved(var)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
  ident(HKLMSpyKey)operator(,) ident(HKUSpyKey)operator(:) ident(TSpyKey)operator(;)
  ident(Started)operator(:) ident(Boolean) operator(=) ident(False)operator(;)

reserved(implementation)

reserved(uses)
  ident(Plutomain)operator(;)

reserved(procedure) ident(AddChange)operator(()ident(M)operator(:) reserved(string)operator(\);)
reserved(begin)
  ident(Yield)operator(;)
  comment(//AddHint(M\);)
reserved(end)operator(;)

comment({ TSpyValue })

reserved(constructor) ident(TSpyValue)operator(.)ident(Create)operator(()ident(AName)operator(:) reserved(string)operator(\);)
reserved(begin)
  ident(Name) operator(:=) ident(AName)operator(;)
  ident(Next) operator(:=) reserved(nil)operator(;)
reserved(end)operator(;)

comment({ TSpyKey })

reserved(constructor) ident(TSpyKey)operator(.)ident(Create)operator(()ident(AParent)operator(:) ident(TSpyKey)operator(;) ident(AName)operator(:) reserved(string)operator(\);)
reserved(begin)
  ident(Name) operator(:=) ident(AName)operator(;)
  ident(Parent) operator(:=) ident(AParent)operator(;)

  ident(Next) operator(:=) reserved(nil)operator(;)
  ident(Keys) operator(:=) reserved(nil)operator(;)
  ident(Values) operator(:=) reserved(nil)operator(;)
reserved(end)operator(;)

reserved(destructor) ident(TSpyKey)operator(.)ident(Destroy)operator(;)
reserved(var)
  ident(Value)operator(,) ident(NextValue)operator(:) ident(TSpyValue)operator(;)
  ident(Key)operator(,) ident(NextKey)operator(:) ident(TSpyKey)operator(;)
reserved(begin)
  ident(Value) operator(:=) ident(Values)operator(;)
  reserved(while) ident(Value) operator(<>) reserved(nil) reserved(do) reserved(begin)
    ident(NextValue) operator(:=) ident(Value)operator(.)ident(Next)operator(;)
    ident(Value)operator(.)ident(Free)operator(;)
    ident(Value) operator(:=) ident(NextValue)operator(;)
  reserved(end)operator(;)

  ident(Key) operator(:=) ident(Keys)operator(;)
  reserved(while) ident(Key) operator(<>) reserved(nil) reserved(do) reserved(begin)
    ident(NextKey) operator(:=) ident(Key)operator(.)ident(Next)operator(;)
    ident(Key)operator(.)ident(Free)operator(;)
    ident(Key) operator(:=) ident(NextKey)operator(;)
  reserved(end)operator(;)

  reserved(inherited)operator(;)
reserved(end)operator(;)

reserved(function) ident(TSpyKey)operator(.)ident(Path)operator(:) reserved(string)operator(;)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(Parent)operator(\)) reserved(then)
    ident(Result) operator(:=) ident(Parent)operator(.)ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')>
  reserved(else)
    ident(Result) operator(:=) string<delimiter(')content(Reg: )delimiter(')>operator(;)

  ident(Result) operator(:=) ident(Result) operator(+) ident(Name)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSpyKey)operator(.)ident(Spy)operator(()ident(AHKEY)operator(:) ident(HKEY)operator(\);)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)

  reserved(procedure) ident(CompareValues)operator(;)
  reserved(var)
    ident(i)operator(:) ident(Integer)operator(;)
    ident(Value)operator(,) ident(LastValue)operator(,) ident(NewValue)operator(,) ident(SearchValue)operator(:) ident(TSpyValue)operator(;)
  reserved(begin)
    comment(//OK, this part is a little bit complicate. So I will comment very much.)
    comment(//First, two terms are important:)
    comment(//<REAL> means the list of values that will be read from the registry now:)
    ident(Reg)operator(.)ident(GetValueNames)operator(()ident(SL)operator(\);)
    comment(//So <REAL> is TStringList.)

    comment(//<CURRENT> means the image that was saved before.)
    comment(//Here, it is a linear list of TSpyValue objects. That means that you can)
    comment(//only get X.Next and not X.Prev! However, I use "X.Prev" to simplify)
    comment(//some comments.)

    comment(//!!! Comparing means: Make <CURRENT> fit <REAL> !!!)

    comment(//If <CURRENT> wasn't saved before, it is just empty.)

    comment(//!!! There is no difference in comparing and saving in this method !!!)

    comment(//Building means: Comparing with an empty image.)

    comment(//We go through <REAL> and make <CURRENT> fit it)

    comment(//The following rules are important:)
    comment(//Value = "The currently interesting value.)
    comment(//LastValue = "The value with X.Next = Value" = "Value.Pref")

    ident(LastValue) operator(:=) reserved(nil)operator(;) comment(// := "Values.Prev")
    ident(Value) operator(:=) ident(Values)operator(;) comment(// := "LastValue.Next")

    comment(//Now compare step by step)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
      reserved(if) ident(Assigned)operator(()ident(Value)operator(\)) reserved(and) operator(()ident(SL)operator([)ident(i)operator(]) operator(=) ident(Value)operator(.)ident(Name)operator(\)) reserved(then) reserved(begin)
        comment(//cV=  Normally (0.9999\) everything's the same)
        ident(LastValue) operator(:=) ident(Value)operator(;)
        ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;)
      reserved(end) reserved(else) reserved(begin) comment(//Something's different? Yes, the IMPORTANT rest (0.0001\)\))
        comment(//Because the list finally must exactly fit SL, the "SL[i] value" hast)
        comment(//to be inserted right here. But first let's look...)

        comment(//Maybe it was just moved? So search for it...)
        ident(NewValue) operator(:=) reserved(nil)operator(;)
        reserved(if) ident(Assigned)operator(()ident(Value)operator(\)) reserved(then) reserved(begin)
          ident(SearchValue) operator(:=) ident(Value)operator(;)
          reserved(while) ident(Assigned)operator(()ident(SearchValue)operator(.)ident(Next)operator(\)) reserved(do)
            reserved(if) operator(()ident(SearchValue)operator(.)ident(Next)operator(.)ident(Name) operator(=) ident(SL)operator([)ident(i)operator(]\)) reserved(then) reserved(begin)
              comment(//cV\\)
              ident(NewValue) operator(:=) ident(SearchValue)operator(.)ident(Next)operator(;)
              ident(AddChange)operator(()string<delimiter(')content(cV\\ )delimiter(')> operator(+) ident(Path)operator(\);)
              ident(SearchValue)operator(.)ident(Next) operator(:=) ident(SearchValue)operator(.)ident(Next)operator(.)ident(Next)operator(;)
            ident(Break)operator(;) reserved(end)operator(;)
        reserved(end)operator(;)

        reserved(if) reserved(not) ident(Assigned)operator(()ident(NewValue)operator(\)) reserved(then) reserved(begin)
          comment(//cV+  No, not found! So it is new...)
          ident(NewValue) operator(:=) ident(TSpyValue)operator(.)ident(Create)operator(()ident(SL)operator([)ident(i)operator(]\);)
          ident(AddChange)operator(()string<delimiter(')content(cV+ )delimiter(')> operator(+) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(NewValue)operator(.)ident(Name)operator(\);)
          reserved(with) ident(NewValue) reserved(do) reserved(begin)
            ident(Typ) operator(:=) ident(Reg)operator(.)ident(GetDataType)operator(()ident(SL)operator([)ident(i)operator(]\);)
            ident(Data) operator(:=) ident(Reg)operator(.)ident(ReadBin)operator(()ident(SL)operator([)ident(i)operator(]\);)
          reserved(end)operator(;)
        reserved(end)operator(;)

        comment(//The new object now must be placed after the last value)
        reserved(if) ident(Assigned)operator(()ident(LastValue)operator(\)) reserved(then) reserved(begin)
          ident(LastValue)operator(.)ident(Next) operator(:=) ident(NewValue)operator(;)
        reserved(end) reserved(else) reserved(begin)
          comment(//If it's the first value, we don't have LastValue defined)
          comment(//So we have to set the "Root" to it)
          ident(Values) operator(:=) ident(NewValue)operator(;)
        reserved(end)operator(;)
        comment(//Now the rest of <CURRENT> has to be placed after the new value)
        ident(NewValue)operator(.)ident(Next) operator(:=) ident(Value)operator(;)
        comment(//And LastValue also has to refreshed: It is "Value.Pref" = NewValue!)
        ident(LastValue) operator(:=) ident(NewValue)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

    comment(//Because the whole <CURRENT> before Value is exactly <REAL>, the rest)
    comment(//(if there is one\) must have been deleted!)

    comment(//So first let's ensure that <CURRENT> ends here:)
    reserved(if) ident(Assigned)operator(()ident(LastValue)operator(\)) reserved(then) reserved(begin)
      ident(LastValue)operator(.)ident(Next) operator(:=) reserved(nil)operator(;)
    reserved(end) reserved(else) reserved(begin)
      comment(//Another time: <CURRENT> is empty now, so set Values instead)
      ident(Values) operator(:=) reserved(nil)operator(;)
    reserved(end)operator(;)

    comment(//Now, the first value that maybe was "cut" off is Value:)
    reserved(while) ident(Assigned)operator(()ident(Value)operator(\)) reserved(do) reserved(begin)
      comment(//cV- So, here really something HAS been deleted)
      ident(LastValue) operator(:=) ident(Value)operator(;)
      ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;)
      ident(AddChange)operator(()string<delimiter(')content(cV- )delimiter(')> operator(+) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(LastValue)operator(.)ident(Name)operator(\);)
      ident(LastValue)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(procedure) ident(CompareData)operator(;)
  reserved(var)
    ident(Value)operator(:) ident(TSpyValue)operator(;)
    ident(Typ)operator(:) ident(TXRegDataType)operator(;)
    ident(Data)operator(:) ident(TByteA)operator(;)
  reserved(begin)
    comment(//So, finally <CURRENT> = <REAL>. That means we now can compare the data:)
    ident(Value) operator(:=) ident(Values)operator(;)
    reserved(while) ident(Assigned)operator(()ident(Value)operator(\)) reserved(do) reserved(begin)
      ident(Typ) operator(:=) ident(Reg)operator(.)ident(GetDataType)operator(()ident(Value)operator(.)ident(Name)operator(\);)
      ident(Data) operator(:=) ident(Reg)operator(.)ident(ReadBin)operator(()ident(Value)operator(.)ident(Name)operator(\);)
      reserved(if) ident(Typ) operator(<>) ident(Value)operator(.)ident(Typ) reserved(then) reserved(begin)
        comment(//cT#)
        ident(AddChange)operator(()string<delimiter(')content(cT# )delimiter(')> operator(+) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(Value)operator(.)ident(Name)operator(\);)
        ident(Value)operator(.)ident(Typ) operator(:=) ident(Typ)operator(;)
      reserved(end)operator(;)
      reserved(if) reserved(not) ident(SameByteA)operator(()ident(Data)operator(,) ident(Value)operator(.)ident(Data)operator(\)) reserved(then) reserved(begin)
        comment(//cD#)
        ident(AddChange)operator(()string<delimiter(')content(cD# )delimiter(')> operator(+) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(Value)operator(.)ident(Name)operator(\);)
        ident(Value)operator(.)ident(Data) operator(:=) ident(Data)operator(;)
      reserved(end)operator(;)

      ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(procedure) ident(CompareKeys)operator(;)
  reserved(var)
    ident(i)operator(:) ident(Integer)operator(;)
    ident(Key)operator(,) ident(LastKey)operator(,) ident(NewKey)operator(,) ident(SearchKey)operator(:) ident(TSpyKey)operator(;)
    ident(NewHKEY)operator(:) ident(HKEY)operator(;)
  reserved(begin)
    comment(//OK, this part is a little bit complicate. So I will comment very much.)
    comment(//First, two terms are important:)
    comment(//<REAL> means the list of keys that will be read from the registry now:)
    ident(Reg)operator(.)ident(GetKeyNames)operator(()ident(SL)operator(\);)
    comment(//So <REAL> is TStringList.)

    comment(//<CURRENT> means the image that was saved before.)
    comment(//Here, it is a linear list of TSpyKey objects. That means that you can)
    comment(//only get X.Next and not X.Prev! However, I use "X.Prev" to simplify)
    comment(//some comments.)

    comment(//!!! Comparing means: Make <CURRENT> fit <REAL> !!!)

    comment(//If <CURRENT> wasn't saved before, it is just empty.)

    comment(//!!! There is no difference in comparing and saving in this method !!!)

    comment(//Building means: Comparing with an empty image.)

    comment(//We go through <REAL> and make <CURRENT> fit it)

    comment(//The following rules are important:)
    comment(//Key = "The currently interesting key.)
    comment(//LastKey = "The key with X.Next = Key" = "Key.Pref")

    ident(LastKey) operator(:=) reserved(nil)operator(;) comment(// := "Keys.Prev")
    ident(Key) operator(:=) ident(Keys)operator(;) comment(// := "LastKey.Next")

    comment(//Now compare step by step)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
      reserved(if) ident(Assigned)operator(()ident(Key)operator(\)) reserved(and) operator(()ident(SL)operator([)ident(i)operator(]) operator(=) ident(Key)operator(.)ident(Name)operator(\)) reserved(then) reserved(begin)
        comment(//cK=  Normally (0.9999\) everything's the same)
        ident(RegOpenKey)operator(()ident(AHKEY)operator(,) ident(PChar)operator(()ident(SL)operator([)ident(i)operator(]\),) ident(NewHKEY)operator(\);)
        ident(Key)operator(.)ident(Spy)operator(()ident(NewHKEY)operator(\);)
        ident(LastKey) operator(:=) ident(Key)operator(;)
        ident(Key) operator(:=) ident(Key)operator(.)ident(Next)operator(;)
      reserved(end) reserved(else) reserved(begin) comment(//Something's different? Yes, the IMPORTANT rest (0.0001\)\))
        comment(//Because the list finally must exactly fit SL, the "SL[i] key" hast)
        comment(//to be inserted right here. But first let's look...)

        comment(//Maybe it was just moved? So search for it...)
        ident(NewKey) operator(:=) reserved(nil)operator(;)
        reserved(if) ident(Assigned)operator(()ident(Key)operator(\)) reserved(then) reserved(begin)
          ident(SearchKey) operator(:=) ident(Key)operator(;)
          reserved(while) ident(Assigned)operator(()ident(SearchKey)operator(.)ident(Next)operator(\)) reserved(do)
            reserved(if) operator(()ident(SearchKey)operator(.)ident(Next)operator(.)ident(Name) operator(=) ident(SL)operator([)ident(i)operator(]\)) reserved(then) reserved(begin)
              comment(//cK\\)
              ident(NewKey) operator(:=) ident(SearchKey)operator(.)ident(Next)operator(;)
              ident(AddChange)operator(()string<delimiter(')content(cK\\ )delimiter(')> operator(+) ident(Path)operator(\);)
              ident(SearchKey)operator(.)ident(Next) operator(:=) ident(SearchKey)operator(.)ident(Next)operator(.)ident(Next)operator(;)
            ident(Break)operator(;) reserved(end)operator(;)
        reserved(end)operator(;)

        reserved(if) reserved(not) ident(Assigned)operator(()ident(NewKey)operator(\)) reserved(then) reserved(begin)
          comment(//cK+  No, not found! So it is new...)
          ident(NewKey) operator(:=) ident(TSpyKey)operator(.)ident(Create)operator(()ident(Self)operator(,) ident(SL)operator([)ident(i)operator(]\);)
          ident(AddChange)operator(()string<delimiter(')content(cK+ )delimiter(')> operator(+) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(NewKey)operator(.)ident(Name)operator(\);)

          ident(RegOpenKey)operator(()ident(AHKEY)operator(,) ident(PChar)operator(()ident(SL)operator([)ident(i)operator(]\),) ident(NewHKEY)operator(\);)
          ident(NewKey)operator(.)ident(Spy)operator(()ident(NewHKEY)operator(\);)
        reserved(end)operator(;)

        comment(//The new object now must be placed after the last key)
        reserved(if) ident(Assigned)operator(()ident(LastKey)operator(\)) reserved(then) reserved(begin)
          ident(LastKey)operator(.)ident(Next) operator(:=) ident(NewKey)operator(;)
        reserved(end) reserved(else) reserved(begin)
          comment(//If it's the first key, we don't have LastKey defined)
          comment(//So we have to set the "Root" to it)
          ident(Keys) operator(:=) ident(NewKey)operator(;)
        reserved(end)operator(;)
        comment(//Now the rest of <CURRENT> has to be placed after the new key)
        ident(NewKey)operator(.)ident(Next) operator(:=) ident(Key)operator(;)
        comment(//And LastKey also has to refreshed: It is "Key.Pref" = NewKey!)
        ident(LastKey) operator(:=) ident(NewKey)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

    comment(//Because the whole <CURRENT> before Key is exactly <REAL>, the rest)
    comment(//(if there is one\) must have been deleted!)

    comment(//So first let's ensure that <CURRENT> ends here:)
    reserved(if) ident(Assigned)operator(()ident(LastKey)operator(\)) reserved(then) reserved(begin)
      ident(LastKey)operator(.)ident(Next) operator(:=) reserved(nil)operator(;)
    reserved(end) reserved(else) reserved(begin)
      comment(//Another time: <CURRENT> is empty now, so set Keys instead)
      ident(Keys) operator(:=) reserved(nil)operator(;)
    reserved(end)operator(;)

    comment(//Now, the first key that maybe was "cut" off is Key:)
    reserved(while) ident(Assigned)operator(()ident(Key)operator(\)) reserved(do) reserved(begin)
      comment(//cV- So, here really something HAS been deleted)
      ident(LastKey) operator(:=) ident(Key)operator(;)
      ident(Key) operator(:=) ident(Key)operator(.)ident(Next)operator(;)
      ident(AddChange)operator(()string<delimiter(')content(cK- )delimiter(')> operator(+) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(LastKey)operator(.)ident(Name)operator(\);)
      ident(LastKey)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)


reserved(begin)
  ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)

  reserved(try)
    ident(Reg)operator(.)ident(CurrentKey) operator(:=) ident(AHKEY)operator(;)

    ident(CompareValues)operator(;)

    ident(CompareData)operator(;)

    ident(CompareKeys)operator(;)

  reserved(finally)
    ident(RegCloseKey)operator(()ident(AHKEY)operator(\);)
  reserved(end)operator(;)

  ident(SL)operator(.)ident(Free)operator(;)
reserved(end)operator(;)

reserved(initialization)
  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  ident(HKLMSpyKey) operator(:=) ident(TSpyKey)operator(.)ident(Create)operator(()reserved(nil)operator(,) string<delimiter(')content(HKEY_LOCAL_MACHINE)delimiter(')>operator(\);)
  ident(HKUSpyKey) operator(:=) ident(TSpyKey)operator(.)ident(Create)operator(()reserved(nil)operator(,) string<delimiter(')content(HKEY_USERS)delimiter(')>operator(\);)

reserved(finalization)
  ident(Reg)operator(.)ident(Free)operator(;)
  ident(HKLMSpyKey)operator(.)ident(Free)operator(;)
  ident(HKUSpyKey)operator(.)ident(Free)operator(;)

reserved(end)operator(.)
reserved(unit) ident(SisyphusTH)operator(;)

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(Classes)operator(,) ident(StdCtrls)operator(,) ident(Dialogs)operator(,) ident(SysUtils)operator(,) ident(XReg)operator(,) ident(YTools)operator(,) ident(YTypes)operator(,) ident(Clock)operator(,)
  ident(ComCtrls)operator(,) ident(PlutoConst)operator(,) ident(UniKey)operator(,) ident(CompEx)operator(;)

reserved(const)
  ident(SisyVersion) operator(=) string<delimiter(')content(1.2 b3)delimiter(')>operator(;)
  ident(StatusPoints) operator(=) integer(25)operator(;)

reserved(type)
  ident(TSisyChangeType) operator(=) operator(()ident(cNone)operator(,) ident(cError)operator(,)
                     ident(cKeyPlus)operator(,) ident(cKeyMinus)operator(,)
                     ident(cValuePlus)operator(,) ident(cValueMinus)operator(,)
                     ident(cContextChange)operator(\);)

reserved(const)
  ident(SisyChangeStrings)operator(:) reserved(array)operator([)ident(TSisyChangeType)operator(]) reserved(of) reserved(string) operator(=)
                     operator(()char<delimiter(')content(?)delimiter(')>operator(,) string<delimiter(')content(Error)delimiter(')>operator(,)
                      string<delimiter(')content(cK+)delimiter(')>operator(,) string<delimiter(')content(cK-)delimiter(')>operator(,)
                      string<delimiter(')content(cV+)delimiter(')>operator(,) string<delimiter(')content(cV-)delimiter(')>operator(,)
                      string<delimiter(')content(cC)delimiter(')>operator(\);)

reserved(type)
  ident(TSpyValue) operator(=) reserved(class)
    ident(Name)operator(:) reserved(string)operator(;)
    ident(Next)operator(:) ident(TSpyValue)operator(;)
    ident(Context)operator(:) ident(TRegContext)operator(;)
    reserved(constructor) ident(Create)operator(()reserved(const) ident(Name)operator(:) reserved(string)operator(;) ident(Context)operator(:) ident(TRegContext)operator(\);)
  reserved(end)operator(;)

  ident(TSisyThread) operator(=) reserved(class)operator(;)

  ident(TSpyKey) operator(=) reserved(class)
  directive(public)
    ident(Parent)operator(:) ident(TSpyKey)operator(;)
    ident(Name)operator(:) reserved(string)operator(;)
    ident(Next)operator(:) ident(TSpyKey)operator(;)
    ident(Keys)operator(:) ident(TSpyKey)operator(;)
    ident(Values)operator(:) ident(TSpyValue)operator(;)
    reserved(procedure) ident(Spy)operator(()ident(AHKEY)operator(:) ident(HKEY)operator(;) ident(Sisy)operator(:) ident(TSisyThread)operator(\);)
    reserved(function) ident(Path)operator(:) reserved(string)operator(;)
    reserved(constructor) ident(Create)operator(()ident(AParent)operator(:) ident(TSpyKey)operator(;) ident(AName)operator(:) reserved(string)operator(\);)
    reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;)
  reserved(end)operator(;)

  ident(TSisyChange) operator(=) reserved(class)
  directive(public)
    ident(Typ)operator(:) ident(TSisyChangeType)operator(;)
    ident(Path)operator(:) reserved(string)operator(;)
    ident(Old)operator(,) ident(New)operator(:) ident(TRegContext)operator(;)
    reserved(constructor) ident(Create)operator(()ident(ATyp)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(APath)operator(:) reserved(string)operator(;)
      ident(AOldContext)operator(:) ident(TRegContext)operator(;) ident(ANewContext)operator(:) ident(TRegContext)operator(\);)
    reserved(procedure) ident(ReportToPluto)operator(;)
  reserved(end)operator(;)

  ident(TSisyChangeEvent) operator(=) reserved(procedure) operator(()ident(Sender)operator(:) ident(TSisyThread)operator(;) ident(Change)operator(:) ident(TSisyChange)operator(\)) reserved(of) reserved(object)operator(;)
  ident(TSisyThread) operator(=) reserved(class)operator(()ident(TThread)operator(\))
  directive(private)
    ident(Reg)operator(:) ident(TXRegistry)operator(;)
    ident(Key)operator(:) ident(TSpyKey)operator(;)
    ident(KeyHKEY)operator(:) ident(HKEY)operator(;)
    ident(CurrentChange)operator(:) ident(TSisyChange)operator(;)
    ident(FOnChange)operator(:) ident(TSisyChangeEvent)operator(;)
    ident(FOnSpecialChanges)operator(:) reserved(array)operator([)ident(TSisyChangeType)operator(]) reserved(of) ident(TSisyChangeEvent)operator(;)
    reserved(procedure) ident(FreeKey)operator(;)
    reserved(procedure) ident(IncKeyCount)operator(;)
    reserved(procedure) ident(IncKeyIndex)operator(;)
    reserved(function) ident(GetSpecialChange)operator(()ident(ChangeType)operator(:) ident(TSisyChangeType)operator(\):) ident(TSisyChangeEvent)operator(;)
    reserved(procedure) ident(SetSpecialChange)operator(()ident(ChangeType)operator(:) ident(TSisyChangeType)operator(;)
      reserved(const) ident(Value)operator(:) ident(TSisyChangeEvent)operator(\);)
  directive(protected)
    reserved(procedure) ident(AddValueChange)operator(()ident(Typ)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(Path)operator(:) reserved(string)operator(;)
      ident(Old)operator(,) ident(New)operator(:) ident(TRegContext)operator(\);)
    reserved(procedure) ident(AddKeyChange)operator(()ident(Typ)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(Path)operator(:) reserved(string)operator(\);)
    reserved(procedure) ident(Execute)operator(;) directive(override)operator(;)
    reserved(procedure) ident(ShowInfo)operator(;)
    reserved(procedure) ident(NotifyChange)operator(;)
    reserved(procedure) ident(ReportCurrentChange)operator(;)
  directive(public)
    ident(CurrentSpyKey)operator(:) ident(TSpyKey)operator(;)
    ident(StatusLabel)operator(:) ident(TLabel)operator(;)
    ident(Name)operator(:) reserved(string)operator(;)
    ident(Started)operator(:) ident(Boolean)operator(;)
    ident(DoReport)operator(:) ident(Boolean)operator(;)
    ident(SecsPerRound)operator(:) ident(Double)operator(;)
    ident(InfoForShow)operator(:) reserved(string)operator(;)
    ident(OnStarted)operator(:) ident(TNotifyEvent)operator(;)
    ident(KeyCount)operator(:) ident(Integer)operator(;)
    ident(PrevKeyCount)operator(:) ident(Integer)operator(;)
    ident(KeyIndex)operator(:) ident(Integer)operator(;)
    ident(TheClock)operator(:) ident(TClock)operator(;)
    ident(Uni)operator(:) ident(TUniKey)operator(;)
    ident(MaxValueCountToScan)operator(,) ident(MaxKeyCountToScan)operator(,) ident(MaxDataLenToScan)operator(:) ident(Cardinal)operator(;)
    reserved(constructor) ident(CreateIt)operator(()reserved(const) ident(AName)operator(,) ident(AKeyName)operator(:) reserved(string)operator(;) ident(AHKEY)operator(:) ident(HKEY)operator(;)
      ident(ALabel)operator(:) ident(TLabel)operator(;) ident(AUniKey)operator(:) ident(TUniKey)operator(\);)
    reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;)

    reserved(property) ident(OnChange)operator(:) ident(TSisyChangeEvent) directive(read) ident(FOnChange) directive(write) ident(FOnChange)operator(;)
    reserved(property) ident(OnSpecialChange)operator([)ident(ChangeType)operator(:) ident(TSisyChangeType)operator(]:) ident(TSisyChangeEvent)
      directive(read) ident(GetSpecialChange) directive(write) ident(SetSpecialChange)operator(;)
  reserved(end)operator(;)

  ident(TSisyList) operator(=) reserved(class)operator(()ident(TList)operator(\))
  directive(protected)
    reserved(function) ident(GetSisy)operator(()ident(Index)operator(:) ident(Integer)operator(\):) ident(TSisyThread)operator(;)
    reserved(procedure) ident(PutSisy)operator(()ident(Index)operator(:) ident(Integer)operator(;) ident(Sisy)operator(:) ident(TSisyThread)operator(\);)
  directive(public)
    reserved(procedure) ident(Suspend)operator(;)
    reserved(procedure) ident(Resume)operator(;)
    reserved(property) ident(Items)operator([)ident(Index)operator(:) ident(Integer)operator(]:) ident(TSisyThread) directive(read) ident(GetSisy) directive(write) ident(PutSisy)operator(;) ident(default)operator(;)
  reserved(end)operator(;)

reserved(procedure) ident(SetSisyChangeState)operator(()ident(Node)operator(:) ident(TTreeNode)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);)
reserved(function) ident(SisyChangeActivated)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;)

reserved(var)
  ident(SisyFilter)operator(:) ident(TStringList)operator(;)

reserved(implementation)

reserved(uses) ident(plutomain)operator(,) ident(workU)operator(,) ident(ValuesU)operator(;)

reserved(procedure) ident(SetSisyChangeState)operator(()ident(Node)operator(:) ident(TTreeNode)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);)
reserved(begin)
  ident(Node)operator(.)ident(Data) operator(:=) ident(Pointer)operator(()reserved(not) ident(Active)operator(\);)
reserved(end)operator(;)

reserved(function) ident(SisyChangeActivated)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(Node)operator(.)ident(Data) operator(=) ident(Pointer)operator(()ident(False)operator(\);)
reserved(end)operator(;)

comment({ TSisyThread })

reserved(constructor) ident(TSisyThread)operator(.)ident(CreateIt)operator(()reserved(const) ident(AName)operator(,) ident(AKeyName)operator(:) reserved(string)operator(;)
  ident(AHKEY)operator(:) ident(HKEY)operator(;) ident(ALabel)operator(:) ident(TLabel)operator(;) ident(AUniKey)operator(:) ident(TUniKey)operator(\);)
reserved(begin)
  reserved(inherited) ident(Create)operator(()ident(True)operator(\);)      comment(// Create thread suspended)

  ident(Started) operator(:=) ident(False)operator(;)
  ident(DoReport) operator(:=) ident(True)operator(;)
  ident(KeyCount) operator(:=) integer(0)operator(;)
  ident(FreeOnTerminate) operator(:=) ident(False)operator(;)     comment(// Thread frees itself not when terminated)

  ident(KeyHKEY) operator(:=) ident(AHKEY)operator(;)
  ident(Name) operator(:=) ident(AName)operator(;)
  ident(StatusLabel) operator(:=) ident(ALabel)operator(;)
  ident(StatusLabel)operator(.)ident(Caption) operator(:=) string<delimiter(')content(Zzzzzzz...)delimiter(')>operator(;)

  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  ident(TheClock) operator(:=) ident(TClock)operator(.)ident(Create)operator(;)

  ident(Uni) operator(:=) ident(AUniKey)operator(.)ident(GetKey)operator(()ident(Name)operator(\);)
  ident(Priority) operator(:=) ident(TThreadPriority)operator(()ident(Uni)operator(.)ident(ReadInteger)operator(()string<delimiter(')content(Priority)delimiter(')>operator(,) ident(Integer)operator(()ident(tpLowest)operator(\)\)\);)
  ident(PrevKeyCount) operator(:=) ident(Uni)operator(.)ident(ReadInteger)operator(()string<delimiter(')content(KeyCount)delimiter(')>operator(,) integer(0)operator(\);)

  ident(MaxKeyCountToScan) operator(:=) ident(Cardinal)operator(()ident(Uni)operator(.)ident(ReadInteger)operator(()string<delimiter(')content(ScanTuner: MaxKeys)delimiter(')>operator(,) operator(-)integer(1)operator(\)\);)
  ident(MaxValueCountToScan) operator(:=) ident(Cardinal)operator(()ident(Uni)operator(.)ident(ReadInteger)operator(()string<delimiter(')content(ScanTuner: MaxValues)delimiter(')>operator(,) operator(-)integer(1)operator(\)\);)
  ident(MaxDataLenToScan) operator(:=) ident(Cardinal)operator(()ident(Uni)operator(.)ident(ReadInteger)operator(()string<delimiter(')content(ScanTuner: MaxDataLen)delimiter(')>operator(,) operator(-)integer(1)operator(\)\);)

  ident(Key) operator(:=) ident(TSpyKey)operator(.)ident(Create)operator(()reserved(nil)operator(,) ident(AKeyName)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TSisyThread)operator(.)ident(FreeKey)operator(;)
reserved(begin)
  ident(Reg)operator(.)ident(Free)operator(;)
  ident(TheClock)operator(.)ident(Free)operator(;)
  ident(Key)operator(.)ident(Free)operator(;)
reserved(end)operator(;)

reserved(destructor) ident(TSisyThread)operator(.)ident(Destroy)operator(;)
reserved(begin)
  ident(Synchronize)operator(()ident(FreeKey)operator(\);)
  reserved(inherited)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSisyThread)operator(.)ident(Execute)operator(;)
reserved(begin)
  ident(InfoForShow) operator(:=) ident(Name) operator(+) string<delimiter(')content( initializing...)delimiter(')>operator(;)
  ident(Synchronize)operator(()ident(ShowInfo)operator(\);)

  ident(TheClock)operator(.)ident(Restart)operator(;)
  ident(Started) operator(:=) ident(False)operator(;)
  reserved(while) reserved(not) ident(Terminated) reserved(do)
    reserved(try)
      ident(KeyIndex) operator(:=) integer(0)operator(;)

     comment({ ===================== })
      ident(Key)operator(.)ident(Spy)operator(()ident(KeyHKEY)operator(,) ident(Self)operator(\);)
     comment({ ===================== })

      reserved(if) ident(Terminated) reserved(then)
        ident(Continue)operator(;) comment(//= Exit)

      ident(SecsPerRound) operator(:=) ident(TheClock)operator(.)ident(SecondsPassed)operator(;)
      ident(TheClock)operator(.)ident(Restart)operator(;)
      reserved(if) reserved(not) ident(Started) reserved(then) reserved(begin)
        ident(Started) operator(:=) ident(True)operator(;)
        ident(Uni)operator(.)ident(WriteInteger)operator(()string<delimiter(')content(KeyCount)delimiter(')>operator(,) ident(KeyCount)operator(\);)
        reserved(if) ident(Assigned)operator(()ident(OnStarted)operator(\)) reserved(then)
          ident(OnStarted)operator(()ident(Self)operator(\);)
      reserved(end)operator(;)
    reserved(except)
      ident(ShowMessage)operator(()string<delimiter(')content(Error in Sisyphus)delimiter(')>operator(\);)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSisyThread)operator(.)ident(AddValueChange)operator(()ident(Typ)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(Path)operator(:) reserved(string)operator(;)
  ident(Old)operator(,) ident(New)operator(:) ident(TRegContext)operator(\);)

  reserved(procedure) ident(TryNotify)operator(()ident(Event)operator(:) ident(TSisyCHangeEvent)operator(\);)
  reserved(begin)

  reserved(end)operator(;)

reserved(begin)
  reserved(if) reserved(not) operator(()ident(Started) reserved(and) ident(DoReport)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(CurrentChange) operator(:=) ident(TSisyChange)operator(.)ident(Create)operator(()ident(Typ)operator(,) ident(Path)operator(,) ident(Old)operator(,) ident(New)operator(\);)
  ident(Synchronize)operator(()ident(ReportCurrentChange)operator(\);)
  ident(Synchronize)operator(()ident(NotifyChange)operator(\);)

comment(//  CurrentChange.Free; //this makes Pluto itself)
reserved(end)operator(;)

reserved(procedure) ident(TSisyThread)operator(.)ident(AddKeyChange)operator(()ident(Typ)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(Path)operator(:) reserved(string)operator(\);)
reserved(begin)
  ident(AddValueChange)operator(()ident(Typ)operator(,) ident(Path)operator(,) ident(ZeroRegContext)operator(,) ident(ZeroRegContext)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TSisyThread)operator(.)ident(ShowInfo)operator(;)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(StatusLabel)operator(\)) reserved(then)
    ident(StatusLabel)operator(.)ident(Caption) operator(:=) ident(InfoForShow)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSisyThread)operator(.)ident(ReportCurrentChange)operator(;)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(CurrentChange)operator(\)) reserved(then)
    ident(CurrentChange)operator(.)ident(ReportToPluto)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSisyThread)operator(.)ident(IncKeyCount)operator(;)
reserved(var)
  ident(c)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(if) ident(Started) reserved(then)
    ident(Exit)operator(;)

  ident(Inc)operator(()ident(KeyCount)operator(\);)

  reserved(if) operator(()ident(KeyCount) reserved(and) hex($1FF)operator(\)) operator(=) integer(0) reserved(then) reserved(begin)
    reserved(if) ident(KeyCount) operator(>) ident(PrevKeyCount) reserved(then)
      ident(PrevKeyCount) operator(:=) ident(KeyCount)operator(;)

    ident(c) operator(:=) integer(0)operator(;)
    reserved(if) ident(PrevkeyCount) operator(>) integer(0) reserved(then)
      ident(c) operator(:=) ident(Round)operator((()ident(KeyCount) operator(*) ident(StatusPoints)operator(\)) operator(/) ident(PrevKeyCount)operator(\);)
    ident(InfoForShow) operator(:=) char<delimiter(')content(|)delimiter(')> operator(+) ident(MulStr)operator(()char<delimiter(')content(.)delimiter(')>operator(,) ident(c)operator(\)) operator(+) ident(MulStr)operator(()char<delimiter(')content( )delimiter(')>operator(,) ident(StatusPoints) operator(-) ident(c)operator(\)) operator(+) char<delimiter(')content(|)delimiter(')> operator(+)
      ident(Format)operator(()string<delimiter(')content( (%0.1f s\) %d/%d k )delimiter(')>operator(,)
        operator([)ident(TheClock)operator(.)ident(SecondsPassed)operator(,) ident(KeyCount)operator(,) ident(PrevKeyCount)operator(]\);)

    ident(Synchronize)operator(()ident(ShowInfo)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSisyThread)operator(.)ident(IncKeyIndex)operator(;)
reserved(var)
  ident(c)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(if) reserved(not) ident(Started) reserved(then)
    ident(Exit)operator(;)

  ident(Inc)operator(()ident(KeyIndex)operator(\);)

  reserved(if) operator((()ident(KeyIndex) reserved(and) hex($1FF)operator(\)) operator(=) integer(0)operator(\)) reserved(and) operator(()ident(KeyCount) operator(>) integer(0)operator(\)) reserved(then) reserved(begin)
    reserved(if) ident(KeyIndex) operator(>) ident(KeyCount) reserved(then)
      ident(KeyCount) operator(:=) ident(KeyIndex)operator(;)

    ident(c) operator(:=) integer(0)operator(;)
    reserved(if) ident(KeyCount) operator(>) integer(0) reserved(then)
      ident(c) operator(:=) ident(Round)operator((()ident(KeyIndex) operator(*) ident(StatusPoints)operator(\)) operator(/) ident(KeyCount)operator(\);)

    ident(InfoForShow) operator(:=) char<delimiter(')content(|)delimiter(')> operator(+) ident(MulStr)operator(()char<delimiter(')content(:)delimiter(')>operator(,) ident(c)operator(\)) operator(+) ident(MulStr)operator(()char<delimiter(')content(.)delimiter(')>operator(,) ident(StatusPoints) operator(-) ident(c)operator(\)) operator(+) char<delimiter(')content(|)delimiter(')> operator(+)
      ident(Format)operator(()string<delimiter(')content( (%0.1f s\) %d/%d k )delimiter(')>operator(,) operator([)ident(SecsPerRound)operator(,) ident(KeyIndex)operator(,) ident(KeyCount)operator(]\);)

    ident(Synchronize)operator(()ident(ShowInfo)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(TSisyThread)operator(.)ident(GetSpecialChange)operator(()ident(ChangeType)operator(:) ident(TSisyChangeType)operator(\):)
  ident(TSisyChangeEvent)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(FOnSpecialChanges)operator([)ident(ChangeType)operator(];)
reserved(end)operator(;)

reserved(procedure) ident(TSisyThread)operator(.)ident(SetSpecialChange)operator(()ident(ChangeType)operator(:) ident(TSisyChangeType)operator(;)
  reserved(const) ident(Value)operator(:) ident(TSisyChangeEvent)operator(\);)
reserved(begin)
  ident(FOnSpecialChanges)operator([)ident(ChangeType)operator(]) operator(:=) ident(Value)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSisyThread)operator(.)ident(NotifyChange)operator(;)
reserved(var)
  ident(Event)operator(:) ident(TSisyChangeEvent)operator(;)
reserved(begin)
  ident(Event) operator(:=) ident(FOnSpecialChanges)operator([)ident(CurrentChange)operator(.)ident(Typ)operator(];)
  reserved(if) ident(Assigned)operator(()ident(Event)operator(\)) reserved(then)
    ident(Event)operator(()ident(Self)operator(,) ident(CurrentChange)operator(\);)

  reserved(if) ident(Assigned)operator(()ident(FOnChange)operator(\)) reserved(then)
    ident(FOnChange)operator(()ident(Self)operator(,) ident(CurrentChange)operator(\);)
reserved(end)operator(;)

comment({ TSpyValue })

reserved(constructor) ident(TSpyValue)operator(.)ident(Create)operator(()reserved(const) ident(Name)operator(:) reserved(string)operator(;) ident(Context)operator(:) ident(TRegContext)operator(\);)
reserved(begin)
  ident(Self)operator(.)ident(Name) operator(:=) ident(Name)operator(;)
  ident(Next) operator(:=) reserved(nil)operator(;)
  ident(Self)operator(.)ident(Context) operator(:=) ident(Context)operator(;)
reserved(end)operator(;)

comment({ TSpyKey })

reserved(constructor) ident(TSpyKey)operator(.)ident(Create)operator(()ident(AParent)operator(:) ident(TSpyKey)operator(;) ident(AName)operator(:) reserved(string)operator(\);)
reserved(begin)
  ident(Name) operator(:=) ident(AName)operator(;)
  ident(Parent) operator(:=) ident(AParent)operator(;)

  ident(Next) operator(:=) reserved(nil)operator(;)
  ident(Keys) operator(:=) reserved(nil)operator(;)
  ident(Values) operator(:=) reserved(nil)operator(;)
reserved(end)operator(;)

reserved(destructor) ident(TSpyKey)operator(.)ident(Destroy)operator(;)
reserved(var)
  ident(Value)operator(,) ident(NextValue)operator(:) ident(TSpyValue)operator(;)
  ident(Key)operator(,) ident(NextKey)operator(:) ident(TSpyKey)operator(;)
reserved(begin)
  ident(Value) operator(:=) ident(Values)operator(;)
  reserved(while) ident(Assigned)operator(()ident(Value)operator(\)) reserved(do) reserved(begin)
    ident(NextValue) operator(:=) ident(Value)operator(.)ident(Next)operator(;)
    ident(Value)operator(.)ident(Free)operator(;)
    ident(Value) operator(:=) ident(NextValue)operator(;)
  reserved(end)operator(;)

  ident(Key) operator(:=) ident(Keys)operator(;)
  reserved(while) ident(Assigned)operator(()ident(Key)operator(\)) reserved(do) reserved(begin)
    ident(NextKey) operator(:=) ident(Key)operator(.)ident(Next)operator(;)
    ident(Key)operator(.)ident(Free)operator(;)
    ident(Key) operator(:=) ident(NextKey)operator(;)
  reserved(end)operator(;)

  reserved(inherited)operator(;)
reserved(end)operator(;)

reserved(function) ident(TSpyKey)operator(.)ident(Path)operator(:) reserved(string)operator(;)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(Parent)operator(\)) reserved(then)
    ident(Result) operator(:=) ident(Parent)operator(.)ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')>
  reserved(else)
    ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;)

  ident(Result) operator(:=) ident(Result) operator(+) ident(Name)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSpyKey)operator(.)ident(Spy)operator(()ident(AHKEY)operator(:) ident(HKEY)operator(;) ident(Sisy)operator(:) ident(TSisyThread)operator(\);)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)
  ident(LastKey)operator(:) ident(TSpyKey)operator(;)

  reserved(procedure) ident(CompareValues)operator(;)
  reserved(var)
    ident(i)operator(:) ident(Integer)operator(;)
    ident(Value)operator(,) ident(LastValue)operator(,) ident(NewValue)operator(,) ident(SearchValue)operator(,) ident(SearchValue_Prev)operator(:) ident(TSpyValue)operator(;)
  reserved(begin)
    comment(//OK, this part is a little bit complicate. So I will comment very much.)
    comment(//First, two terms are important:)
    comment(//<REAL> means the list of values that will be read from the registry now:)
    ident(Sisy)operator(.)ident(Reg)operator(.)ident(GetValueNames)operator(()ident(SL)operator(\);)
    reserved(if) ident(Cardinal)operator(()ident(SL)operator(.)ident(Count)operator(\)) operator(>) ident(Sisy)operator(.)ident(MaxValueCountToScan) reserved(then)
      ident(Exit)operator(;)
    comment(//So <REAL> is TStringList.)

    comment(//<CURRENT> means the image that was saved before.)
    comment(//Here, it is a linear list of TSpyValue objects. That means that you can)
    comment(//only get X.Next and not X.Prev! However, I use "X.Prev" to simplify)
    comment(//some comments.)

    comment(//!!! Comparing means: Make <CURRENT> fit <REAL> !!!)

    comment(//If <CURRENT> wasn't saved before, it is just empty.)

    comment(//!!! There is no difference in comparing and saving in this method !!!)

    comment(//Building means: Comparing with an empty image.)

    comment(//We go through <REAL> and make <CURRENT> fit it)

    comment(//The following rules are important:)
    comment(//Value = "The currently interesting value.)
    comment(//LastValue = "The value with X.Next = Value" = "Value.Pref")

    ident(LastValue) operator(:=) reserved(nil)operator(;) comment(// := "Values.Prev")
    ident(Value) operator(:=) ident(Values)operator(;) comment(// := "LastValue.Next")

    comment(//Now compare step by step)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
      reserved(if) ident(Assigned)operator(()ident(Value)operator(\)) reserved(and) operator(()ident(SL)operator([)ident(i)operator(]) operator(=) ident(Value)operator(.)ident(Name)operator(\)) reserved(then) reserved(begin)
        comment(//cV=  Normally (0.9999\) everything's the same)
        ident(LastValue) operator(:=) ident(Value)operator(;)
        ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;)
      reserved(end) reserved(else) reserved(begin) comment(//Something's different? Yes, the IMPORTANT rest (0.0001\)\))
        comment(//Because the list finally must exactly fit SL, the "SL[i] value" hast)
        comment(//to be inserted right here. But first let's look...)

        comment(//Maybe it was just moved? So search for it...)
        ident(NewValue) operator(:=) reserved(nil)operator(;)
        reserved(if) ident(Assigned)operator(()ident(Value)operator(\)) reserved(then) reserved(begin)
          ident(SearchValue_Prev) operator(:=) ident(Value)operator(;)
          ident(SearchValue) operator(:=) ident(Value)operator(.)ident(Next)operator(;)
          reserved(while) ident(Assigned)operator(()ident(SearchValue)operator(\)) reserved(do) reserved(begin)
            reserved(if) ident(SearchValue)operator(.)ident(Name) operator(=) ident(SL)operator([)ident(i)operator(]) reserved(then) reserved(begin) comment(//we found our moved value)
              ident(SearchValue_Prev)operator(.)ident(Next) operator(:=) ident(SearchValue)operator(.)ident(Next)operator(;) comment(//delete it from <CURRENT>)
              ident(NewValue) operator(:=) ident(SearchValue)operator(;) comment(//save that we found it)
            ident(Break) reserved(end)operator(;)
            ident(SearchValue_Prev) operator(:=) ident(SearchValue)operator(;)
            ident(SearchValue) operator(:=) ident(SearchValue)operator(.)ident(Next)operator(;)
          reserved(end)operator(;)
        reserved(end)operator(;)

        reserved(if) reserved(not) ident(Assigned)operator(()ident(NewValue)operator(\)) reserved(then) reserved(begin)
          comment(//cV+  No, not found! So it is new...)
          ident(NewValue) operator(:=) ident(TSpyValue)operator(.)ident(Create)operator(()ident(SL)operator([)ident(i)operator(],) ident(Sisy)operator(.)ident(Reg)operator(.)ident(ReadContext)operator(()ident(SL)operator([)ident(i)operator(]\)\);)
          comment({ ================ cV+ ================ })
          reserved(if) ident(Sisy)operator(.)ident(Started) reserved(and) ident(Sisy)operator(.)ident(Reg)operator(.)ident(ValueReallyExists)operator(()ident(SL)operator([)ident(i)operator(]\)) reserved(then)
            ident(Sisy)operator(.)ident(AddValueChange)operator(()ident(cValuePlus)operator(,) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(NewValue)operator(.)ident(Name)operator(,)
              ident(ZeroRegContext)operator(,) ident(NewValue)operator(.)ident(Context)operator(\);)
        reserved(end)operator(;)

        comment(//The new object now must be placed after the last value)
        reserved(if) ident(Assigned)operator(()ident(LastValue)operator(\)) reserved(then)
          ident(LastValue)operator(.)ident(Next) operator(:=) ident(NewValue)
        reserved(else)
          comment(//If it's the first value, we don't have LastValue defined)
          comment(//So we have to set the "Root" to it)
          ident(Values) operator(:=) ident(NewValue)operator(;)

        comment(//Now the rest of <CURRENT> has to be placed after the new value)
        ident(NewValue)operator(.)ident(Next) operator(:=) ident(Value)operator(;)
        comment(//And LastValue also has to refreshed: It is "Value.Pref" = NewValue!)
        ident(LastValue) operator(:=) ident(NewValue)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

    comment(//Because the whole <CURRENT> before Value is exactly <REAL>, the rest)
    comment(//(if there is one\) must have been deleted!)

    comment(//So first let's ensure that <CURRENT> ends here:)
    reserved(if) ident(Assigned)operator(()ident(LastValue)operator(\)) reserved(then)
      ident(LastValue)operator(.)ident(Next) operator(:=) reserved(nil)
    reserved(else)
      comment(//Another time: <CURRENT> is empty now, so set Values instead)
      ident(Values) operator(:=) reserved(nil)operator(;)

    comment(//Now, the first value that maybe was "cut" off is Value:)
    reserved(while) ident(Assigned)operator(()ident(Value)operator(\)) reserved(do) reserved(begin)
      comment(//cV- So, here really something HAS been deleted)
      ident(LastValue) operator(:=) ident(Value)operator(;)
      ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;)
      comment({ ================ cV- ================ })
      reserved(if) ident(Sisy)operator(.)ident(Started) reserved(and) reserved(not) ident(Sisy)operator(.)ident(Reg)operator(.)ident(ValueReallyExists)operator(()ident(LastValue)operator(.)ident(Name)operator(\)) reserved(then)
        ident(Sisy)operator(.)ident(AddValueChange)operator(()ident(cValueMinus)operator(,) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(LastValue)operator(.)ident(Name)operator(,)
          ident(LastValue)operator(.)ident(Context)operator(,) ident(ZeroRegContext)operator(\);)
      ident(LastValue)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(procedure) ident(CompareData)operator(;)
  reserved(var)
    ident(Value)operator(:) ident(TSpyValue)operator(;)
    ident(Context)operator(:) ident(TRegContext)operator(;)
    ident(Size)operator(:) ident(Cardinal)operator(;)
  reserved(begin)
    ident(Context) operator(:=) ident(ZeroRegContext)operator(;) comment(//Initialize)
    comment(//So, finally <CURRENT> = <REAL>. That means we now can compare the data:)
    ident(Value) operator(:=) ident(Values)operator(;)
    reserved(while) ident(Assigned)operator(()ident(Value)operator(\)) reserved(and) reserved(not) ident(Sisy)operator(.)ident(Terminated) reserved(do) reserved(begin)
      ident(Size) operator(:=) ident(Sisy)operator(.)ident(Reg)operator(.)ident(GetDataSize)operator(()ident(Value)operator(.)ident(Name)operator(\);)
      reserved(if) operator(()ident(Size) operator(=) ident(Cardinal)operator((-)integer(1)operator(\)\)) reserved(or)
       operator(()ident(Size) operator(<=) ident(Sisy)operator(.)ident(MaxDataLenToScan)operator(\)) reserved(then) reserved(begin)
        ident(Context) operator(:=) ident(Sisy)operator(.)ident(Reg)operator(.)ident(ReadContext)operator(()ident(Value)operator(.)ident(Name)operator(\);)
        reserved(if) reserved(not) ident(SameContext)operator(()ident(Context)operator(,) ident(Value)operator(.)ident(Context)operator(\)) reserved(then) reserved(begin)
          comment({ ================ cC ================ })
          ident(Sisy)operator(.)ident(AddValueChange)operator(()ident(cContextChange)operator(,) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(Value)operator(.)ident(Name)operator(,)
            ident(Value)operator(.)ident(Context)operator(,) ident(Context)operator(\);)
          ident(Value)operator(.)ident(Context) operator(:=) ident(Context)operator(;)
        reserved(end)operator(;)
      reserved(end)operator(;)

      ident(Value) operator(:=) ident(Value)operator(.)ident(Next)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(procedure) ident(CompareKeys)operator(;)
  reserved(var)
    ident(i)operator(:) ident(Integer)operator(;)
    ident(Key)operator(,) ident(LastKey)operator(,) ident(NewKey)operator(,) ident(SearchKey)operator(,) ident(SearchKey_Prev)operator(:) ident(TSpyKey)operator(;)
    ident(SavedDoReport)operator(:) ident(Boolean)operator(;)
    ident(NewHKEY)operator(:) ident(HKEY)operator(;)
  reserved(begin)
    comment(//OK, this part is a little bit complicate. So I will comment very much.)
    comment(//First, two terms are important:)
    comment(//<REAL> means the list of keys that will be read from the registry now:)

    ident(Sisy)operator(.)ident(Reg)operator(.)ident(GetKeyNames)operator(()ident(SL)operator(\);)
    reserved(if) ident(Cardinal)operator(()ident(SL)operator(.)ident(Count)operator(\)) operator(>) ident(Sisy)operator(.)ident(MaxKeyCountToScan) reserved(then)
      ident(Exit)operator(;)
    comment(//So <REAL> is TStringList.)

    comment(//<CURRENT> means the image that was saved before.)
    comment(//Here, it is a linear list of TSpyKey objects. That means that you can)
    comment(//only get X.Next and not X.Prev! However, I use "X.Prev" to simplify)
    comment(//some comments.)

    comment(//!!! Comparing means: Make <CURRENT> fit <REAL> !!!)

    comment(//If <CURRENT> wasn't saved before, it is just empty.)

    comment(//!!! There is no difference in comparing and saving in this method !!!)

    comment(//Building means: Comparing with an empty image.)

    comment(//We go through <REAL> and make <CURRENT> fit it)

    comment(//The following rules are important:)
    comment(//Key = "The currently interesting key.)
    comment(//LastKey = "The key with X.Next = Key" = "Key.Pref")

    ident(LastKey) operator(:=) reserved(nil)operator(;) comment(// := "Keys.Prev")
    ident(Key) operator(:=) ident(Keys)operator(;) comment(// := "LastKey.Next")

    comment(//Now compare step by step)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
      reserved(if) ident(Assigned)operator(()ident(Key)operator(\)) reserved(and) operator(()ident(SL)operator([)ident(i)operator(]) operator(=) ident(Key)operator(.)ident(Name)operator(\)) reserved(then) reserved(begin)
        comment(//cK=  Normally (0.9999\) everything's the same)
        reserved(if) ident(Success)operator(()ident(RegOpenKey)operator(()ident(AHKEY)operator(,) ident(PChar)operator(()ident(SL)operator([)ident(i)operator(]\),) ident(NewHKEY)operator(\)\)) reserved(then)
          reserved(try)
            ident(Key)operator(.)ident(Spy)operator(()ident(NewHKEY)operator(,) ident(Sisy)operator(\);)
          reserved(finally)
            ident(RegCloseKey)operator(()ident(NewHKEY)operator(\);)
          reserved(end)operator(;)
        reserved(if) ident(Sisy)operator(.)ident(Terminated) reserved(then)
          ident(Exit)operator(;)

        ident(LastKey) operator(:=) ident(Key)operator(;)
        ident(Key) operator(:=) ident(Key)operator(.)ident(Next)operator(;)
      reserved(end) reserved(else) reserved(begin) comment(//Something's different? Yes, the IMPORTANT rest (0.0001\)\))
        comment(//Because the list finally must exactly fit SL, the "SL[i] key" has)
        comment(//to be inserted right here. But first let's look...)

        comment(//Maybe it was just moved? So search for it...)
        ident(NewKey) operator(:=) reserved(nil)operator(;)
        reserved(if) ident(Assigned)operator(()ident(Key)operator(\)) reserved(then) reserved(begin)
          ident(SearchKey_Prev) operator(:=) ident(Key)operator(;)
          ident(SearchKey) operator(:=) ident(Key)operator(.)ident(Next)operator(;)
          reserved(while) ident(Assigned)operator(()ident(SearchKey)operator(\)) reserved(do) reserved(begin)
            reserved(if) ident(SearchKey)operator(.)ident(Name) operator(=) ident(SL)operator([)ident(i)operator(]) reserved(then) reserved(begin) comment(//we found our moved key)
              ident(SearchKey_Prev)operator(.)ident(Next) operator(:=) ident(SearchKey)operator(.)ident(Next)operator(;) comment(//delete it from <CURRENT>)
              ident(NewKey) operator(:=) ident(SearchKey)operator(;) comment(//save that we found it)
            ident(Break) reserved(end)operator(;)
            ident(SearchKey_Prev) operator(:=) ident(SearchKey)operator(;)
            ident(SearchKey) operator(:=) ident(SearchKey)operator(.)ident(Next)operator(;)
          reserved(end)operator(;)
        reserved(end)operator(;)

        reserved(if) reserved(not) ident(Assigned)operator(()ident(NewKey)operator(\)) reserved(then) reserved(begin) comment(//if we didn't find it)
          comment(//cK+ No, not found! So it is new...)
          ident(NewKey) operator(:=) ident(TSpyKey)operator(.)ident(Create)operator(()ident(Self)operator(,) ident(SL)operator([)ident(i)operator(]\);)
          ident(Sisy)operator(.)ident(IncKeyCount)operator(;)
          ident(Sisy)operator(.)ident(Reg)operator(.)ident(CurrentKey) operator(:=) ident(AHKEY)operator(;)
          comment({ ================ cK+ ================ })
          reserved(if) ident(Sisy)operator(.)ident(Started) reserved(and) ident(Sisy)operator(.)ident(Reg)operator(.)ident(KeyExists)operator(()ident(SL)operator([)ident(i)operator(]\)) reserved(then)
            ident(Sisy)operator(.)ident(AddKeyChange)operator(()ident(cKeyPlus)operator(,) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(NewKey)operator(.)ident(Name)operator(\);)

          ident(SavedDoReport) operator(:=) ident(Sisy)operator(.)ident(DoReport)operator(;)
          reserved(if) ident(Success)operator(()ident(RegOpenKey)operator(()ident(AHKEY)operator(,) ident(PChar)operator(()ident(SL)operator([)ident(i)operator(]\),) ident(NewHKEY)operator(\)\)) reserved(then)
            reserved(try)
              ident(Sisy)operator(.)ident(DoReport) operator(:=) ident(False)operator(;)
              ident(NewKey)operator(.)ident(Spy)operator(()ident(NewHKEY)operator(,) ident(Sisy)operator(\);) comment(//<-- recursion itself)
            reserved(finally)
              ident(RegCloseKey)operator(()ident(NewHKEY)operator(\);)
              ident(Sisy)operator(.)ident(DoReport) operator(:=) ident(SavedDoReport)operator(;)
            reserved(end)operator(;)

          reserved(if) ident(Sisy)operator(.)ident(Terminated) reserved(then)
            ident(Exit)operator(;)
        reserved(end)operator(;)

        comment(//The new key now must be placed after the last key)
        reserved(if) ident(Assigned)operator(()ident(LastKey)operator(\)) reserved(then)
          ident(LastKey)operator(.)ident(Next) operator(:=) ident(NewKey)
        reserved(else)
          comment(//If it's the first key, we don't have LastKey defined)
          comment(//So we have to set the "Root" to it)
          ident(Keys) operator(:=) ident(NewKey)operator(;)

        comment(//Now the rest of <CURRENT> has to be placed after the new key)
        ident(NewKey)operator(.)ident(Next) operator(:=) ident(Key)operator(;)
        comment(//And LastKey also has to refreshed: It is "Key.Pref" = NewKey!)
        ident(LastKey) operator(:=) ident(NewKey)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

    comment(//Because the whole <CURRENT> before Key is exactly <REAL>, the rest)
    comment(//(if there is one\) must have been deleted!)

    comment(//So first let's ensure that <CURRENT> ends here:)
    reserved(if) ident(Assigned)operator(()ident(LastKey)operator(\)) reserved(then)
      ident(LastKey)operator(.)ident(Next) operator(:=) reserved(nil)
    reserved(else)
      comment(//Another time: <CURRENT> is empty now, so set Keys instead)
      ident(Keys) operator(:=) reserved(nil)operator(;)

    comment(//Now, the first key that maybe was "cut" off is Key:)
    reserved(while) ident(Assigned)operator(()ident(Key)operator(\)) reserved(do) reserved(begin)
      comment(//cV- So, here really something HAS been deleted)
      ident(LastKey) operator(:=) ident(Key)operator(;)
      ident(Key) operator(:=) ident(Key)operator(.)ident(Next)operator(;)
      ident(Sisy)operator(.)ident(Reg)operator(.)ident(CurrentKey) operator(:=) ident(AHKEY)operator(;)
      comment({ ================ cK- ================ })
      reserved(if) ident(Sisy)operator(.)ident(Started) reserved(and) reserved(not) ident(Sisy)operator(.)ident(Reg)operator(.)ident(KeyExists)operator(()ident(LastKey)operator(.)ident(Name)operator(\)) reserved(then)
        ident(Sisy)operator(.)ident(AddKeyChange)operator(()ident(cKeyMinus)operator(,) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(LastKey)operator(.)ident(Name)operator(\);)
      ident(LastKey)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)


reserved(begin)
  reserved(if) ident(Sisy)operator(.)ident(Terminated) reserved(or) operator(()ident(AHKEY) operator(=) integer(0)operator(\)) reserved(then)
    ident(Exit)operator(;)
  ident(LastKey) operator(:=) ident(Sisy)operator(.)ident(CurrentSpyKey)operator(;)
  ident(Sisy)operator(.)ident(CurrentSpyKey) operator(:=) ident(Self)operator(;)

  ident(Sisy)operator(.)ident(IncKeyIndex)operator(;)

  ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
  reserved(try)
    ident(Sisy)operator(.)ident(Reg)operator(.)ident(CurrentKey) operator(:=) ident(AHKEY)operator(;)
    ident(CompareValues)operator(;)
    reserved(if) ident(Sisy)operator(.)ident(Started) reserved(then) ident(CompareData)operator(;)
    ident(CompareKeys)operator(;)
  reserved(finally)
    ident(Sisy)operator(.)ident(Reg)operator(.)ident(CurrentKey) operator(:=) integer(0)operator(;)
    ident(SL)operator(.)ident(Free)operator(;)
    ident(Sisy)operator(.)ident(CurrentSpyKey) operator(:=) ident(LastKey)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

comment({ TSisyChange })

reserved(constructor) ident(TSisyChange)operator(.)ident(Create)operator(()ident(ATyp)operator(:) ident(TSisyChangeType)operator(;) reserved(const) ident(APath)operator(:) reserved(string)operator(;)
  ident(AOldContext)operator(:) ident(TRegContext)operator(;) ident(ANewContext)operator(:) ident(TRegContext)operator(\);)
reserved(begin)
  reserved(inherited) ident(Create)operator(;)
  ident(Typ) operator(:=) ident(ATyp)operator(;)
  ident(Path) operator(:=) ident(APath)operator(;)
  ident(Old) operator(:=) ident(AOldContext)operator(;)
  ident(New) operator(:=) ident(ANewContext)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSisyChange)operator(.)ident(ReportToPluto)operator(;)
reserved(var)
  ident(Node)operator(,) ident(RootNode)operator(:) ident(TTreeNode)operator(;)
  ident(Root)operator(,) ident(SubPath)operator(:) reserved(string)operator(;)
  ident(NewNode)operator(:) ident(Boolean)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)

  reserved(function) ident(IconOfSisyChangeType)operator(()ident(Typ)operator(:) ident(TSisyChangeType)operator(\):) ident(Integer)operator(;)
  reserved(begin)
    ident(Result) operator(:=) operator(-)integer(1)operator(;)
    reserved(case) ident(Typ) reserved(of)
      comment(//cNone, cError: Result := -1;)
      ident(cKeyPlus)operator(..)ident(cContextChange)operator(:) ident(Result) operator(:=) ident(Integer)operator(()ident(Typ)operator(\)) operator(-) integer(2)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(function) ident(FindNode)operator(()ident(Text)operator(:) reserved(string)operator(\):) ident(TTreeNode)operator(;)
  reserved(begin)
    ident(Result) operator(:=) ident(WorkWin)operator(.)ident(SisyTV)operator(.)ident(Items)operator(.)ident(GetFirstNode)operator(;)
    reserved(while) ident(Assigned)operator(()ident(Result)operator(\)) reserved(do) reserved(begin)
      reserved(if) ident(SameText)operator(()ident(Result)operator(.)ident(Text)operator(,) ident(Text)operator(\)) reserved(then)
        ident(Exit)operator(;)
      ident(Result) operator(:=) ident(Result)operator(.)ident(GetNextSibling)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  reserved(if) reserved(not) ident(WorkWin)operator(.)ident(SisyListCB)operator(.)ident(Checked) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(Typ) reserved(in) operator([)ident(cContextChange)operator(,) ident(cValueMinus)operator(,) ident(cValuePlus)operator(]) reserved(then) reserved(begin)
    ident(Root) operator(:=) ident(ExRegFullKey)operator(()ident(Path)operator(\);)
    ident(SubPath) operator(:=) ident(ExRegValue)operator(()ident(Path)operator(\);)
  reserved(end) reserved(else) reserved(begin)
    ident(Root) operator(:=) ident(UntilLastChar)operator(()ident(ExRegFullKey)operator(()ident(Path)operator(\),) char<delimiter(')content(\\)delimiter(')>operator(\);)
    ident(SubPath) operator(:=) ident(FromLastChar)operator(()ident(ExRegFullKey)operator(()ident(Path)operator(\),) char<delimiter(')content(\\)delimiter(')>operator(\);)
  reserved(end)operator(;)

  reserved(with) ident(WorkWin) reserved(do)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SisyFilter)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
      reserved(if) ident(TextAtPos)operator(()ident(Root)operator(,) integer(1)operator(,) ident(SisyFilter)operator([)ident(i)operator(]\)) reserved(then) reserved(begin)
        comment(//show that it's working)
        reserved(with) ident(FilterChangesB) reserved(do) reserved(begin)
          ident(Caption) operator(:=) string<delimiter(')content(Filter..!)delimiter(')>operator(;)
          ident(Repaint)operator(;)
          ident(Caption) operator(:=) string<delimiter(')content(Filter...)delimiter(')>operator(;)
          ident(Repaint)operator(;)
        reserved(end)operator(;)
      ident(Exit)operator(;) reserved(end)operator(;)
    reserved(end)operator(;)

  reserved(with) ident(WorkWin)operator(.)ident(SisyTV)operator(.)ident(Items) reserved(do) reserved(begin)
    ident(BeginUpdate)operator(;)
    reserved(try)
      ident(RootNode) operator(:=) ident(FindNode)operator(()ident(Root)operator(\);)
      ident(NewNode) operator(:=) reserved(not) ident(Assigned)operator(()ident(RootNode)operator(\);)
      reserved(if) ident(NewNode) reserved(then) reserved(begin)
        ident(RootNode) operator(:=) ident(AddChild)operator(()reserved(nil)operator(,) ident(Root)operator(\);)
        ident(RootNode)operator(.)ident(ImageIndex) operator(:=) ident(iconGroup)operator(;)
      reserved(end) reserved(else) reserved(if) reserved(not) ident(SisyChangeActivated)operator(()ident(RootNode)operator(\)) reserved(then) reserved(begin)
        ident(EndUpdate)operator(;)
      ident(Exit) reserved(end)operator(;)

      ident(Node) operator(:=) ident(AddChildObject)operator(()ident(RootNode)operator(,) ident(SubPath)operator(,) ident(Self)operator(\);)
      ident(Node)operator(.)ident(ImageIndex) operator(:=) ident(IconOfSisyChangeType)operator(()ident(Typ)operator(\);)
      reserved(if) ident(Typ) operator(=) ident(cContextChange) reserved(then) reserved(begin)
        ident(AddChild)operator(()ident(Node)operator(,) ident(DataPreviewOfContext)operator(()ident(Old)operator(\)\).)ident(ImageIndex) operator(:=) ident(iconOldContext)operator(;)
        ident(AddChild)operator(()ident(Node)operator(,) ident(DataPreviewOfContext)operator(()ident(New)operator(\)\).)ident(ImageIndex) operator(:=) ident(iconNewContext)operator(;)
      reserved(end)operator(;)
    reserved(finally)
      ident(EndUpdate)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(if) ident(NewNode) reserved(and) ident(WorkWin)operator(.)ident(SisyExpandGroupsCB)operator(.)ident(Checked) reserved(then)
    ident(RootNode)operator(.)ident(Expand)operator(()ident(False)operator(\);)

  reserved(if) reserved(not) ident(RootNode)operator(.)ident(Expanded) reserved(then)
    ident(RootNode)operator(.)ident(ImageIndex) operator(:=) ident(iconGroupBlinking)operator(;)
reserved(end)operator(;)

comment({ TSisyList })

reserved(function) ident(TSisyList)operator(.)ident(GetSisy)operator(()ident(Index)operator(:) ident(Integer)operator(\):) ident(TSisyThread)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(Get)operator(()ident(Index)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TSisyList)operator(.)ident(PutSisy)operator(()ident(Index)operator(:) ident(Integer)operator(;) ident(Sisy)operator(:) ident(TSisyThread)operator(\);)
reserved(begin)
  ident(Put)operator(()ident(Index)operator(,) ident(Sisy)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TSisyList)operator(.)ident(Resume)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do)
    ident(Items)operator([)ident(i)operator(].)ident(Resume)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSisyList)operator(.)ident(Suspend)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do)
    ident(Items)operator([)ident(i)operator(].)ident(Resume)operator(;)
reserved(end)operator(;)

reserved(initialization)
  ident(SisyFilter) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
  ident(SisyFilter)operator(.)ident(Sorted) operator(:=) ident(True)operator(;)
  ident(SisyFilter)operator(.)ident(Duplicates) operator(:=) ident(dupIgnore)operator(;)

reserved(finalization)
  ident(SisyFilter)operator(.)ident(Free)operator(;)

reserved(end)operator(.)
reserved(unit) ident(splash)operator(;)

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,) ident(Dialogs)operator(,)
  ident(ExtCtrls)operator(,) ident(StdCtrls)operator(,) ident(ImgList)operator(,) ident(YTools)operator(,) ident(IniFiles)operator(,) ident(LinkLabel)operator(,) ident(PrefTools)operator(,)
  ident(PlutoConst)operator(;)

reserved(type)
  ident(TSplashWin) operator(=) reserved(class)operator(()ident(TForm)operator(\))
    ident(Image1)operator(:) ident(TImage)operator(;)
    ident(StartB)operator(:) ident(TButton)operator(;)
    ident(SplashScreenCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(LinkLabel1)operator(:) ident(TLinkLabel)operator(;)
    ident(LinkLabel2)operator(:) ident(TLinkLabel)operator(;)
    ident(LogoL)operator(:) ident(TLabel)operator(;)
    reserved(procedure) ident(StartBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormHide)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
      ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(SplashScreenCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
  reserved(end)operator(;)

reserved(var)
  ident(SplashWin)operator(:) ident(TSplashWin)operator(;)

reserved(implementation)

reserved(uses) ident(plutomain)operator(,) ident(TreeU)operator(,) ident(WorkU)operator(,) ident(PrefU)operator(;)

preprocessor({$R *.DFM})

reserved(procedure) ident(TSplashWin)operator(.)ident(StartBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(Close)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSplashWin)operator(.)ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(const)
  ident(Messages)operator(:) reserved(array)operator([)integer(0)operator(..)integer(12)operator(]) reserved(of) reserved(string) operator(=) operator(()string<delimiter(')content(Let)char('')content(s see...)delimiter(')>operator(,)
                                      string<delimiter(')content(Ready)delimiter(')>operator(,)
                                      string<delimiter(')content(Hello World!)delimiter(')>operator(,)
                                      string<delimiter(')content(Start)delimiter(')>operator(,)
                                      string<delimiter(')content(OK)delimiter(')>operator(,)
                                      string<delimiter(')content(Pluto!)delimiter(')>operator(,)
                                      string<delimiter(')content(Go Go Go)delimiter(')>operator(,)
                                      string<delimiter(')content(Everything)char('')content(s OK)delimiter(')>operator(,)
                                      string<delimiter(')content(Yes!)delimiter(')>operator(,)
                                      string<delimiter(')content(God save the Queen)delimiter(')>operator(,)
                                      string<delimiter(')content(Oh yeah)delimiter(')>operator(,)
                                      string<delimiter(')content(Yabadabadoo!)delimiter(')>operator(,)
                                      string<delimiter(')content(Don)char('')content(t worry, be happy!)delimiter(')>
                                      operator(\);)
reserved(var)
  ident(ImageFile)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(Left) operator(:=) operator(()ident(Screen)operator(.)ident(Width) operator(-) ident(Width)operator(\)) reserved(div) integer(2)operator(;)
  ident(Top) operator(:=) operator(()ident(Screen)operator(.)ident(Height) operator(-) ident(Height)operator(\)) reserved(div) integer(2)operator(;)

  ident(StartB)operator(.)ident(Caption) operator(:=) ident(Messages)operator([)ident(Random)operator(()ident(Length)operator(()ident(Messages)operator(\)\)];)
  ident(SplashWin)operator(.)ident(SplashScreenCB)operator(.)ident(Load)operator(;)

  ident(Caption) operator(:=) string<delimiter(')content(cYcnus.Pluto )delimiter(')> operator(+) ident(Version) operator(+) string<delimiter(')content( says )delimiter(')> operator(+) ident(MainWin)operator(.)ident(Greeting)operator(;)

  reserved(try)
    ident(ImageFile) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(logo deluxe.bmp)delimiter(')>operator(;)
    reserved(if) ident(FileEx)operator(()ident(ImageFile)operator(\)) reserved(then) reserved(begin)
      reserved(with) ident(Image1)operator(.)ident(Picture) reserved(do)
        reserved(if) ident(Graphic) operator(=) reserved(nil) reserved(then)
          ident(LoadFromFile)operator(()ident(ImageFile)operator(\);)
      reserved(if) reserved(not) ident(Switch)operator(()string<delimiter(')content(MurphyMode)delimiter(')>operator(\)) reserved(then)
        ident(LogoL)operator(.)ident(Visible) operator(:=) ident(False)operator(;)
      ident(Exit)operator(;)
    reserved(end)operator(;)

    ident(ImageFile) operator(:=) ident(PlutoDir) operator(+) string<delimiter(')content(logo.bmp)delimiter(')>operator(;)
    reserved(if) ident(FileEx)operator(()ident(ImageFile)operator(\)) reserved(then) reserved(begin)
      reserved(with) ident(Image1)operator(.)ident(Picture) reserved(do)
        reserved(if) ident(Graphic) operator(=) reserved(nil) reserved(then)
          ident(LoadFromFile)operator(()ident(ImageFile)operator(\);)
    reserved(end)operator(;)
  reserved(except)
    ident(ShowMessage)operator(()string<delimiter(')content(Could not load Splash Screen image!)delimiter(')>operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSplashWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(Hide)operator(;)
  ident(Randomize)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSplashWin)operator(.)ident(FormHide)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  comment(//Image1.Picture.Bitmap.FreeImage;)
reserved(end)operator(;)

reserved(procedure) ident(TSplashWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) ident(Key) operator(=) ident(VK_ESCAPE) reserved(then)
    ident(Close)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TSplashWin)operator(.)ident(SplashScreenCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Started) reserved(then)
    ident(PrefWin)operator(.)ident(SplashScreenCB)operator(.)ident(Checked) operator(:=) ident(SplashScreenCB)operator(.)ident(Checked)operator(;)
reserved(end)operator(;)

reserved(end)operator(.)
reserved(unit) ident(SpyTH)operator(;)

reserved(interface)

reserved(uses)
  ident(Classes)operator(,) ident(Windows)operator(,) ident(Dialogs)operator(,) ident(ComCtrls)operator(,) ident(CompEx)operator(,) ident(SysUtils)operator(,) ident(YTools)operator(,) ident(clock)operator(,)
  ident(plutoconst)operator(,) ident(StdCtrls)operator(,) ident(forms)operator(,) ident(XReg)operator(,) ident(stringcomp)operator(;)

reserved(type)
  ident(TChildren) operator(=) reserved(array) reserved(of) ident(TTreeNode)operator(;)

  ident(TRegSpyThread) operator(=) reserved(class)operator(()ident(TThread)operator(\))
  directive(private)
    ident(Reg)operator(:) ident(TXRegistry)operator(;)
    ident(CurNode)operator(:) ident(TTreeNode)operator(;)
    ident(Dead)operator(:) ident(Boolean)operator(;)
    ident(Dif)operator(:) ident(TSLComp)operator(;)
    ident(CurChildren)operator(:) ident(TChildren)operator(;)
  directive(protected)
    reserved(procedure) ident(Execute)operator(;) directive(override)operator(;)

    reserved(procedure) ident(SaveCheckNode)operator(;)
    reserved(procedure) ident(SaveGetDif)operator(;)
    reserved(procedure) ident(SaveDeleteDead)operator(;)
    reserved(procedure) ident(SaveGetChildren)operator(;)
    reserved(procedure) ident(SaveAddNew)operator(;)
  directive(public)
    ident(Restart)operator(:) ident(Boolean)operator(;)
    ident(Mess)operator(:) reserved(string)operator(;)
    ident(Delay)operator(:) ident(Integer)operator(;)
    reserved(function) ident(Alive)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;)
    reserved(procedure) ident(Spy)operator(;)
    reserved(procedure) ident(Reload)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(ReloadValues)operator(;)
    reserved(procedure) ident(AddTrace)operator(()ident(Trace)operator(:) reserved(string)operator(\);)
    reserved(constructor) ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(\);)
    reserved(destructor) ident(Destroy)operator(;) directive(override)operator(;)
  reserved(end)operator(;)

reserved(implementation)

reserved(uses) ident(plutomain)operator(,) ident(TreeU)operator(,) ident(WorkU)operator(,) ident(ValuesU)operator(;)

comment({ TRegSpyThread })

reserved(constructor) ident(TRegSpyThread)operator(.)ident(CreateIt)operator(()ident(PriorityLevel)operator(:) ident(TThreadPriority)operator(\);)
reserved(begin)
  reserved(inherited) ident(Create)operator(()ident(True)operator(\);)      comment(// Create thread suspended)
  ident(Priority) operator(:=) ident(PriorityLevel)operator(;)   comment(// Set Priority Level)
  ident(FreeOnTerminate) operator(:=) ident(False)operator(;)     comment(// Thread frees itself when terminated)
  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  ident(Delay) operator(:=) integer(100)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegSpyThread)operator(.)ident(Execute)operator(;)
reserved(begin)
  reserved(while) reserved(not) ident(Terminated) reserved(do) reserved(begin)
    ident(Restart) operator(:=) ident(False)operator(;)
    reserved(try)
      reserved(if) reserved(not) ident(Terminated) reserved(then)
        ident(Sleep)operator(()ident(Delay)operator(\);)
      reserved(if) reserved(not) ident(Terminated) reserved(then)
        ident(Spy)operator(;)
    reserved(except) reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(TRegSpyThread)operator(.)ident(Alive)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(False)operator(;)

  reserved(if) ident(Restart) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(Terminated) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    reserved(try)
      reserved(if) operator(()ident(Node)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')>operator(\)) reserved(then)
        ident(Exit)operator(;)

      reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
        ident(Exit)operator(;)

      ident(Result) operator(:=) ident(True)operator(;)
    reserved(except)
      ident(Exit)operator(;)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegSpyThread)operator(.)ident(SaveCheckNode)operator(;)
reserved(begin)
  ident(Dead) operator(:=) reserved(not) ident(Alive)operator(()ident(CurNode)operator(\);)
  reserved(if) ident(Dead) reserved(then)
    ident(Exit)operator(;)

  ident(CheckNode)operator(()ident(CurNode)operator(,) ident(False)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TRegSpyThread)operator(.)ident(SaveGetDif)operator(;)
reserved(var)
  ident(Real)operator(,) ident(Cur)operator(:) ident(TStringList)operator(;)
reserved(begin)
  ident(Dead) operator(:=) reserved(not) ident(Alive)operator(()ident(CurNode)operator(\);)
  reserved(if) ident(Dead) reserved(then)
    ident(Exit)operator(;)

  ident(dif) operator(:=) reserved(nil)operator(;)
  
  reserved(if) reserved(not) ident(CurNode)operator(.)ident(Expanded) reserved(then) reserved(begin)
    ident(Dead) operator(:=) ident(True)operator(;)
  ident(Exit)operator(;) reserved(end)operator(;)

  reserved(if) reserved(not) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(CurNode)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(Real) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)

  ident(Reg)operator(.)ident(GetKeyNames)operator(()ident(Real)operator(\);)
  ident(Reg)operator(.)ident(CloseKey)operator(;)

  ident(Cur) operator(:=) ident(GetChildNames)operator(()ident(CurNode)operator(\);)

  reserved(if) operator(()ident(Cur)operator(.)ident(Count) operator(=) integer(0)operator(\)) reserved(and) operator(()ident(Real)operator(.)ident(Count) operator(=) integer(0)operator(\)) reserved(then)
    ident(Dead) operator(:=) ident(True)operator(;)

  ident(dif) operator(:=) ident(TSLComp)operator(.)ident(Create)operator(()ident(Cur)operator(,) ident(Real)operator(,) ident(False)operator(\);)

  ident(Cur)operator(.)ident(Free)operator(;)
  ident(Real)operator(.)ident(Free)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegSpyThread)operator(.)ident(SaveDeleteDead)operator(;)
reserved(var)
  ident(TN)operator(:) ident(TTreeNode)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(Dead) operator(:=) reserved(not) ident(Alive)operator(()ident(CurNode)operator(\);)
  reserved(if) ident(Dead) reserved(then)
    ident(Exit)operator(;)

  reserved(if) reserved(not) ident(Assigned)operator(()ident(dif)operator(\)) reserved(or) reserved(not) ident(Assigned)operator(()ident(dif)operator(.)ident(OnlyA)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(CurNode)operator(.)ident(Expanded) reserved(then)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(dif)operator(.)ident(OnlyA)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
      ident(TN) operator(:=) ident(FindNode)operator(()ident(CurNode)operator(,) ident(dif)operator(.)ident(OnlyA)operator([)ident(i)operator(]\);)
      reserved(if) ident(Assigned)operator(()ident(TN)operator(\)) reserved(then) reserved(begin)
        ident(RegTV)operator(.)ident(Selected) operator(:=) ident(GetNextBest)operator(()ident(TN)operator(\);)
        ident(TN)operator(.)ident(Delete)operator(;)
        ident(AddTrace)operator(()string<delimiter(')content(Key deleted: )delimiter(')> operator(+) ident(dif)operator(.)ident(OnlyA)operator([)ident(i)operator(]\);)
      reserved(end)operator(;)
    reserved(end)
  reserved(else)
    ident(Exit)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegSpyThread)operator(.)ident(SaveGetChildren)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(TN)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  ident(Dead) operator(:=) reserved(not) ident(Alive)operator(()ident(CurNode)operator(\);)
  reserved(if) ident(Dead) reserved(then)
    ident(Exit)operator(;)

  ident(CurChildren) operator(:=) reserved(nil)operator(;)
  ident(SetLength)operator(()ident(CurChildren)operator(,) ident(CurNode)operator(.)ident(Count)operator(\);)

  ident(i) operator(:=) integer(0)operator(;)
  ident(TN) operator(:=) ident(CurNode)operator(.)ident(GetFirstChild)operator(;)
  reserved(while) ident(Assigned)operator(()ident(TN)operator(\)) reserved(do) reserved(begin)
    reserved(if) ident(i) operator(<=) ident(High)operator(()ident(CurChildren)operator(\)) reserved(then)
      ident(CurChildren)operator([)ident(i)operator(]) operator(:=) ident(TN)
    reserved(else)
      ident(ShowMessage)operator(()string<delimiter(')content(Error: Too much children)delimiter(')>operator(\);)
    ident(Inc)operator(()ident(i)operator(\);)
    ident(TN) operator(:=) ident(CurNode)operator(.)ident(GetNextChild)operator(()ident(TN)operator(\))
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegSpyThread)operator(.)ident(SaveAddNew)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(Dead) operator(:=) reserved(not) ident(Alive)operator(()ident(CurNode)operator(\);)
  reserved(if) ident(Dead) reserved(then)
    ident(Exit)operator(;)

  reserved(if) reserved(not) ident(Assigned)operator(()ident(Dif)operator(\)) reserved(or) reserved(not) ident(Assigned)operator(()ident(Dif)operator(.)ident(OnlyB)operator(\)) reserved(or) operator(()ident(Dif)operator(.)ident(OnlyB)operator(.)ident(Count) operator(=) integer(0)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Dif)operator(.)ident(OnlyB)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)  comment(//Erstellt/hinbenannt)
    ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(CurNode)operator(,) ident(Dif)operator(.)ident(OnlyB)operator([)ident(i)operator(]\);)
    ident(AddTrace)operator(()string<delimiter(')content(New Key: )delimiter(')> operator(+) ident(dif)operator(.)ident(OnlyB)operator([)ident(i)operator(]\);)
    ident(MainWin)operator(.)ident(StatusBarUpdate)operator(;)
    comment(//AddHint('Neuer Schlüssel: ' + CurNode.Text + '\\' + Dif.OnlyB[i]\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegSpyThread)operator(.)ident(Reload)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(TN)operator(:) ident(TTreeNode)operator(;)
  ident(zCurNode)operator(:) ident(TTreeNode)operator(;)
  ident(MyChildren)operator(:) ident(TChildren)operator(;)
reserved(begin)
  reserved(if) ident(Terminated) reserved(or) ident(Restart) reserved(then)
    ident(Exit)operator(;)

  ident(CurNode) operator(:=) ident(Node)operator(;)

  ident(zCurNode) operator(:=) ident(CurNode)operator(;)
  reserved(try)
    comment(//Mess := 'SaveCheckNode';)
    ident(Synchronize)operator(()ident(SaveCheckNode)operator(\);)
    reserved(if) ident(Dead) reserved(or) ident(Terminated) reserved(then)
      ident(Exit)operator(;)

    comment(//Mess := 'SaveGetDif';)
    ident(Synchronize)operator(()ident(SaveGetDif)operator(\);)
    reserved(if) ident(Dead) reserved(or) ident(Terminated) reserved(then)
      ident(Exit)operator(;)

    comment(//Mess := 'SaveDeleteDead';)
    ident(Synchronize)operator(()ident(SaveDeleteDead)operator(\);)
    reserved(if) ident(Dead) reserved(or) ident(Terminated) reserved(then)
      ident(Exit)operator(;)

    comment(//Mess := 'SaveGetChildren';)
    ident(Synchronize)operator(()ident(SaveGetChildren)operator(\);)
    reserved(if) ident(Dead) reserved(or) ident(Terminated) reserved(then)
      ident(Exit)operator(;)

    comment(//Mess := 'SaveGetChildren';)
    ident(Synchronize)operator(()ident(SaveAddNew)operator(\);)
    reserved(if) ident(Dead) reserved(or) ident(Terminated) reserved(then)
      ident(Exit)operator(;)

    ident(Dif)operator(.)ident(Free)operator(;)

    comment(//Mess := 'MyChildren';)
    ident(SetLength)operator(()ident(MyChildren)operator(,) ident(Length)operator(()ident(CurChildren)operator(\)\);)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(MyChildren)operator(\)) reserved(do)
      ident(MyChildren)operator([)ident(i)operator(]) operator(:=) ident(CurChildren)operator([)ident(i)operator(];)

    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(MyChildren)operator(\)) reserved(do) reserved(begin)
      ident(TN) operator(:=) ident(MyChildren)operator([)ident(i)operator(];)
      reserved(if) ident(Alive)operator(()ident(TN)operator(\)) reserved(then)
        comment(//if TN.Expanded then)
        comment(//if NodeVisible(TN\) then)
          ident(Reload)operator(()ident(TN)operator(\);)
        comment(//else)
         comment(//Break;)
      reserved(if) ident(Restart) reserved(or) ident(Terminated) reserved(then)
        ident(Break)operator(;)
    reserved(end)operator(;)
    ident(MyChildren) operator(:=) reserved(nil)operator(;)

  reserved(except)
    reserved(if) ident(Terminated) reserved(then)
      ident(Exit)operator(;)
    ident(AddHint)operator(()string<delimiter(')content(Error in Spy: )delimiter(')> operator(+) ident(Mess)operator(\);)
    ident(WorkWin)operator(.)ident(Label7)operator(.)ident(Caption) operator(:=) string<delimiter(')content(ERROR)delimiter(')>operator(;)
  reserved(end)operator(;)
  ident(CurNode) operator(:=) ident(zCurNode)operator(;)
reserved(end)operator(;)

reserved(function) ident(FindItemByRealName)operator(()ident(LV)operator(:) ident(TListView)operator(;) ident(Text)operator(:) reserved(string)operator(\):) ident(TListItem)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(Result) operator(:=) reserved(nil)operator(;)
  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(LV)operator(.)ident(Items)operator(.)ident(Count)operator(-)integer(1) reserved(do)
    reserved(if) ident(LV)operator(.)ident(Items)operator([)ident(i)operator(].)ident(Caption) operator(=) ident(Text) reserved(then) reserved(begin)
      ident(Result) operator(:=) ident(LV)operator(.)ident(Items)operator([)ident(i)operator(];)
    ident(Exit)operator(;) reserved(end)operator(;)
  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(LV)operator(.)ident(Items)operator(.)ident(Count)operator(-)integer(1) reserved(do)
    reserved(if) ident(SameText)operator(()ident(RealValueName)operator(()ident(LV)operator(.)ident(Items)operator([)ident(i)operator(]\),) ident(Text)operator(\)) reserved(then) reserved(begin)
      ident(Result) operator(:=) ident(LV)operator(.)ident(Items)operator([)ident(i)operator(];)
    ident(Break)operator(;) reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegSpyThread)operator(.)ident(ReloadValues)operator(;)
reserved(var)
  ident(Item)operator(:) ident(TListItem)operator(;)
  ident(Real)operator(,) ident(Cur)operator(:) ident(TStringList)operator(;)
  ident(Dif)operator(:) ident(TSLComp)operator(;)
  ident(i)operator(:) ident(integer)operator(;)
reserved(begin)
  reserved(if) ident(Terminated) reserved(or) ident(Restart) reserved(then)
    ident(Exit)operator(;)

  reserved(if) reserved(not) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(Real) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
  ident(Reg)operator(.)ident(GetValueNames)operator(()ident(Real)operator(\);)

  ident(Cur) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
  reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do)
      ident(Cur)operator(.)ident(Add)operator(()ident(RealValueName)operator(()ident(Item)operator([)ident(i)operator(]\)\);)

  ident(Dif) operator(:=) ident(TSLComp)operator(.)ident(Create)operator(()ident(Cur)operator(,) ident(Real)operator(,) ident(False)operator(\);)
  ident(Real)operator(.)ident(Free)operator(;)
  ident(Cur)operator(.)ident(Free)operator(;)

  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Dif)operator(.)ident(OnlyA)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin) comment(//Gelöscht/wegbenannt)
    ident(Item) operator(:=) ident(FindItemByRealName)operator(()ident(ValueList)operator(,) ident(Dif)operator(.)ident(OnlyA)operator([)ident(i)operator(]\);)
    reserved(if) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then) reserved(begin)
      ident(Item)operator(.)ident(Delete)operator(;)
      ident(AddTrace)operator(()string<delimiter(')content(Value deleted: )delimiter(')> operator(+) ident(Dif)operator(.)ident(OnlyA)operator([)ident(i)operator(]\);)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(ValueList)operator(.)ident(Items)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)    comment(//Daten)
    ident(Item) operator(:=) ident(ValueList)operator(.)ident(Items)operator([)ident(i)operator(];)
    comment({if Item.SubItems.Count < 2 then begin
      ShowMessage('Fehler in Sync.'\);
    Exit end; })
    reserved(if) ident(ValuesWin)operator(.)ident(UpdateValue)operator(()ident(Reg)operator(,) ident(Item)operator(\)) reserved(then)
      ident(AddTrace)operator(()string<delimiter(')content(Value Changed: )delimiter(')> operator(+) ident(Item)operator(.)ident(Caption) operator(+) string<delimiter(')content( = )delimiter(')> operator(+)
        ident(ValueDataPreview)operator(()ident(Reg)operator(.)ident(ReadContext)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)\)\);)
  reserved(end)operator(;)

  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(dif)operator(.)ident(OnlyB)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)  comment(//Erstellt/hinbenannt)
    ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(Reg)operator(,) ident(dif)operator(.)ident(OnlyB)operator([)ident(i)operator(]\);)
    ident(AddTrace)operator(()string<delimiter(')content(New Value: )delimiter(')> operator(+) ident(Dif)operator(.)ident(OnlyB)operator([)ident(i)operator(]\);)
  reserved(end)operator(;)

  ident(Reg)operator(.)ident(CloseKey)operator(;)
  ident(Dif)operator(.)ident(Free)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegSpyThread)operator(.)ident(Spy)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(a)operator(:) ident(Real)operator(;)
reserved(begin)
  reserved(with) ident(TClock)operator(.)ident(Create) reserved(do) reserved(begin)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(RootNodes)operator(.)ident(Count)operator(-)integer(1) reserved(do)
      ident(Reload)operator(()ident(TTreeNode)operator(()ident(RootNodes)operator([)ident(i)operator(]\)\);)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(Shortcuts)operator(\)) reserved(do)
      ident(Reload)operator(()ident(Shortcuts)operator([)ident(i)operator(].)ident(Node)operator(\);)
    ident(Synchronize)operator(()ident(ReloadValues)operator(\);)
    ident(a) operator(:=) ident(SecondsPassed) operator(*) integer(1000)operator(;)
  ident(Free)operator(;) reserved(end)operator(;)

  reserved(if) ident(a) operator(>) integer(0) reserved(then)
    ident(WorkWin)operator(.)ident(Label7)operator(.)ident(Caption) operator(:=) string<delimiter(')content(Spy: )delimiter(')> operator(+) ident(Format)operator(()string<delimiter(')content(%0.2f)delimiter(')>operator(,) operator([)ident(a)operator(]\)) operator(+) string<delimiter(')content( s)delimiter(')>operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TRegSpyThread)operator(.)ident(AddTrace)operator(()ident(Trace)operator(:) reserved(string)operator(\);)
reserved(begin)
  reserved(with) ident(WorkWin) reserved(do)
    reserved(if) ident(ListTracesCB)operator(.)ident(Checked) reserved(then)
      ident(SpyLB)operator(.)ident(Items)operator(.)ident(Add)operator(()ident(Trace)operator(\);)
reserved(end)operator(;)

reserved(destructor) ident(TRegSpyThread)operator(.)ident(Destroy)operator(;)
reserved(begin)
  ident(Dif)operator(.)ident(Free)operator(;)
  ident(Reg)operator(.)ident(Free)operator(;)
  reserved(inherited)operator(;)
reserved(end)operator(;)

reserved(end)operator(.)
reserved(unit) ident(TreeU)operator(;)
preprocessor({$DEFINE UNIKEY})
preprocessor({$DEFINE CYCFS})

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Variants)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,)
  ident(ComCtrls)operator(,) ident(Menus)operator(,) ident(Clipbrd)operator(,) ident(keybrd)operator(,) ident(Dialogs)operator(,) ident(YTools)operator(,) ident(PlutoConst)operator(,) ident(CompEx)operator(,)
  ident(IniFiles)operator(,) ident(XReg)operator(,) ident(Colors)operator(,) ident(Clock)operator(,)
  ident(ToolWin)operator(,) ident(RegFiles) preprocessor({$IFDEF UNIKEY})operator(,) ident(UniKey)operator(,) ident(ImgList) preprocessor({$ENDIF})operator(;)

reserved(type)
  ident(TTreeWin) operator(=) reserved(class)operator(()ident(TForm)operator(\))
    ident(RegTVPU)operator(:) ident(TPopupMenu)operator(;)
    ident(NewSubKeyMI)operator(:) ident(TMenuItem)operator(;)
    ident(NewKeyMI)operator(:) ident(TMenuItem)operator(;)
    ident(CreateShortcutMI)operator(:) ident(TMenuItem)operator(;)
    ident(TraceMI)operator(:) ident(TMenuItem)operator(;)
    ident(N3)operator(:) ident(TMenuItem)operator(;)
    ident(DeleteMI)operator(:) ident(TMenuItem)operator(;)
    ident(DublicateMI)operator(:) ident(TMenuItem)operator(;)
    ident(N4)operator(:) ident(TMenuItem)operator(;)
    ident(FindMI)operator(:) ident(TMenuItem)operator(;)
    ident(RegTV)operator(:) ident(TTreeView)operator(;)
    ident(PastePathMI)operator(:) ident(TMenuItem)operator(;)
    ident(N1)operator(:) ident(TMenuItem)operator(;)
    ident(InsertPathMI)operator(:) ident(TMenuItem)operator(;)
    ident(RenameMI)operator(:) ident(TMenuItem)operator(;)
    ident(CopyPathMI)operator(:) ident(TMenuItem)operator(;)
    ident(CutPathMI)operator(:) ident(TMenuItem)operator(;)
    ident(EditShortcutMI)operator(:) ident(TMenuItem)operator(;)
    ident(N2)operator(:) ident(TMenuItem)operator(;)
    ident(Export1)operator(:) ident(TMenuItem)operator(;)
    ident(SubKeylist1)operator(:) ident(TMenuItem)operator(;)
    ident(ValueNameslist1)operator(:) ident(TMenuItem)operator(;)
    ident(KeyInfosMI)operator(:) ident(TMenuItem)operator(;)
    ident(N5)operator(:) ident(TMenuItem)operator(;)
    ident(ExportAsReg)operator(:) ident(TMenuItem)operator(;)
    ident(ExportD)operator(:) ident(TSaveDialog)operator(;)
    reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RegTVClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RegTVChange)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(RegTVChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(RegTVCollapsing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(AllowCollapse)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(RegTVCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(RegTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RegTVDeletion)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(RegTVDragDrop)operator(()ident(Sender)operator(,) ident(Source)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
    reserved(procedure) ident(RegTVDragOver)operator(()ident(Sender)operator(,) ident(Source)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(;) ident(State)operator(:) ident(TDragState)operator(;) reserved(var) ident(Accept)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(RegTVEdited)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(S)operator(:) ident(String)operator(\);)
    reserved(procedure) ident(RegTVEditing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(AllowEdit)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(RegTVEndDrag)operator(()ident(Sender)operator(,) ident(Target)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
    reserved(procedure) ident(RegTVEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RegTVExpanded)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(RegTVExpanding)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(AllowExpansion)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(RegTVGetSelectedIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(RegTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(RegTVMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
    reserved(procedure) ident(RegTVStartDrag)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(DragObject)operator(:) ident(TDragObject)operator(\);)

    reserved(function) ident(CreateKey)operator(()ident(Subkey)operator(:) ident(Boolean)operator(\):) ident(Boolean)operator(;)
    reserved(procedure) ident(CloneKey)operator(;)
    reserved(procedure) ident(DeleteKey)operator(;)
    reserved(procedure) ident(NewShortcut)operator(;)
    reserved(procedure) ident(MoveKey)operator(()reserved(const) ident(Src)operator(,) ident(Trg)operator(:) ident(TRegPath)operator(;) ident(CopyWanted)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(MoveValues)operator(()ident(SrcNode)operator(,) ident(TrgNode)operator(:) ident(TTreeNode)operator(;) ident(CopyWanted)operator(:) ident(Boolean)operator(\);)

    reserved(procedure) ident(NewSubKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(NewKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CreateShortcutMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(TraceMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(DeleteMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(DublicateMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FindMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RegTVPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(RegTVKeyPress)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Char)operator(\);)
    reserved(procedure) ident(RegTVAdvancedCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;)
      ident(Node)operator(:) ident(TTreeNode)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) ident(Stage)operator(:) ident(TCustomDrawStage)operator(;)
      reserved(var) ident(PaintImages)operator(,) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(RenameMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(InsertPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RegTVGetImageIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(CheckRegTVHotTrack)operator(;)
    reserved(procedure) ident(PasteKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CutPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(procedure) ident(OpenNextLevel)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(EditShortcutMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SubKeylist1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ValueNameslist1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(KeyInfosMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(function) ident(GetKeyInfos)operator(:) reserved(string)operator(;)
    reserved(procedure) ident(ExportAsRegClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);)

    reserved(procedure) ident(Load)operator(;)
    reserved(procedure) ident(Reg4WriterTerminate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
  directive(private)
    ident(DragNode)operator(:) ident(TTreeNode)operator(;)
    ident(NoAsterisk)operator(:) ident(Boolean)operator(;) comment(//To prevent NumPadMULTIPLY and asterisk errors)
    ident(UserCopyKeyFlag)operator(:) ident(Boolean)operator(;)
    ident(SpaceCount)operator(:) ident(Integer)operator(;) comment(//EasterEgg)
  directive(public)
    ident(CantWrite)operator(:) ident(Boolean)operator(;)
    ident(DoSmartExpand)operator(:) ident(Boolean)operator(;)
  reserved(end)operator(;)

reserved(procedure) ident(CheckNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(;) ident(OnlyOnce)operator(:) ident(Boolean) operator(=) ident(True)operator(;)
  ident(TakeNodeSelected)operator(:) ident(Boolean) operator(=) ident(False)operator(\);)

reserved(function) ident(AddShortcut)operator(()ident(Alias)operator(,) ident(RealPath)operator(:) reserved(string)operator(;) ident(Icon)operator(:) ident(Integer)operator(;)
  ident(AHostType)operator(:) ident(TUniHostType) operator(=) ident(uhUserShortcut)operator(;) ident(WriteIni)operator(:) ident(Boolean) operator(=) ident(False)operator(\):) ident(TTreeNode)operator(;)
reserved(function) ident(ShortcutIndex)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Integer)operator(;)

reserved(function) ident(TraceKey)operator(()reserved(const) ident(Path)operator(:) reserved(string)operator(;) ident(AllowedShortcutTypes)operator(:) ident(TUniHostTypes) operator(=)
  ident(uhNonSystemShortcuts)operator(\):) reserved(string)operator(;)

reserved(type)
  ident(TOpenNodeMode) operator(=) operator(()ident(onNodeNil)operator(,) ident(onError)operator(,) ident(onReadOnly)operator(,) ident(onFull)operator(\);)

reserved(const)
  ident(onOK) operator(=) operator([)ident(onFull)operator(,) ident(onReadOnly)operator(];)

reserved(function) ident(OpenNode)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(TOpenNodeMode)operator(;)
reserved(function) ident(OpenNodeOK)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;)
reserved(function) ident(OpenCurKey)operator(:) ident(Boolean)operator(;)
reserved(function) ident(OpenCurParent)operator(:) ident(Boolean)operator(;)

reserved(var)
  ident(TreeWin)operator(:) ident(TTreeWin)operator(;)

  ident(RegTV)operator(:) ident(TTreeView)operator(;) comment(//Shortcut for other units, equals TreeWin.RegTV)

preprocessor({$IFDEF UNIKEY})
  ident(UserUniPath)operator(:) reserved(string) preprocessor({$IFDEF CYCFS}) operator(=) string<delimiter(')content(cYcFS <y:\\programme\\cYcFS\\test>)delimiter(')>preprocessor({$ENDIF})operator(;)
preprocessor({$ENDIF})
  ident(Shortcuts)operator(:) ident(TShortcutA)operator(;)
  ident(RootNodes)operator(:) ident(TList)operator(;) comment(//list of TTreeNode;)

reserved(implementation)

reserved(uses)
  ident(PlutoMain)operator(,) ident(ValuesU)operator(,) ident(FindWinU)operator(,) ident(WorkU)operator(,) ident(PrefU)operator(,) ident(ShellEx)operator(,) ident(Types)operator(;)

preprocessor({$R *.dfm})

preprocessor({$IFDEF UNIKEY})
reserved(function) ident(UniOfNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(TUniKey)operator(;)
reserved(var)
  ident(UniPath)operator(:) ident(TUniPath)operator(;)
reserved(begin)
  ident(UniPath) operator(:=) ident(UniOfStr)operator(()ident(UserUniPath)operator(\);)
  ident(UniPath)operator(.)ident(Path) operator(:=) ident(Join)operator(()ident(Copy)operator(()ident(NodePath)operator(()ident(Node)operator(\),) integer(1)operator(,) ident(MaxInt)operator(\),) char<delimiter(')content(/)delimiter(')>operator(\);)
  ident(Result) operator(:=) ident(TUniKey)operator(.)ident(CreateU)operator(()ident(UniPath)operator(,) ident(reTryToSolve)operator(\);)
reserved(end)operator(;)
preprocessor({$ENDIF})      

reserved(procedure) ident(TTreeWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(TreeU)operator(.)ident(RegTV) operator(:=) ident(RegTV)operator(;)

  ident(DragNode) operator(:=) reserved(nil)operator(;)
  ident(NoAsterisk) operator(:=) ident(False)operator(;)
  ident(DoSmartExpand) operator(:=) ident(True)operator(;)
  ident(UserCopyKeyFlag) operator(:=) ident(True)operator(;)
  ident(SpaceCount) operator(:=) integer(0)operator(;) comment(//EasterEgg)

  ident(RegTV)operator(.)ident(Items)operator(.)ident(Clear)operator(;)
  ident(CheckRegTVHotTrack)operator(;)

  ident(KeyInfosMI)operator(.)ident(ImageIndex) operator(:=) ident(iconKeyInfos)operator(;)

  ident(NewSubKeyMI)operator(.)ident(ImageIndex) operator(:=) ident(iconSubKey)operator(;)
  ident(NewKeyMI)operator(.)ident(ImageIndex) operator(:=) ident(iconKey)operator(;)
  ident(CreateShortcutMI)operator(.)ident(ImageIndex) operator(:=) ident(iconShortcut)operator(;)

  ident(RenameMI)operator(.)ident(ImageIndex) operator(:=) ident(iconRename)operator(;)
  ident(DeleteMI)operator(.)ident(ImageIndex) operator(:=) ident(iconDelete)operator(;)
  ident(DublicateMI)operator(.)ident(ImageIndex) operator(:=) ident(iconKeyDublicate)operator(;)

  ident(FindMI)operator(.)ident(ImageIndex) operator(:=) ident(iconKeyFind)operator(;)
  ident(TraceMI)operator(.)ident(ImageIndex) operator(:=) ident(iconKeyTrace)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(KeyIsDown)operator(()ident(VK_CONTROL)operator(\)) reserved(then) reserved(begin)
    ident(TraceMIClick)operator(()ident(Sender)operator(\);)
  ident(Exit)operator(;) reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVChange)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
reserved(var)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
  ident(OpenRe)operator(:) ident(TOpenNodeMode)operator(;)

preprocessor({$IFDEF UNIKEY})
  ident(Uni)operator(:) ident(TUniKey)operator(;)
  ident(ValueNames)operator(:) ident(TStringList)operator(;)
  ident(Item)operator(:) ident(TListItem)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)

  reserved(procedure) ident(AppendSubItemData)operator(()ident(SubItems)operator(:) ident(TStrings)operator(;) ident(Uni)operator(:) ident(TUniKey)operator(;)
    reserved(const) ident(ValueName)operator(:) reserved(string)operator(\);)
  reserved(var)
    ident(SL)operator(:) ident(TStringList)operator(;)

    reserved(procedure) ident(Add)operator(()reserved(const) ident(s)operator(:) reserved(string)operator(\);)
    reserved(begin)
      ident(SubItems)operator(.)ident(Append)operator(()ident(s)operator(\);)
    reserved(end)operator(;)

  reserved(begin)
    ident(SL) operator(:=) reserved(nil)operator(;)
    reserved(try)
      ident(Add)operator(()string<delimiter(')content(beta)delimiter(')>operator(\);)

      reserved(case) ident(Uni)operator(.)ident(GetDataType)operator(()ident(ValueName)operator(\)) reserved(of)

      ident(udString)operator(,) ident(udExpandString)operator(:) reserved(begin)
        ident(Add)operator(()string<delimiter(')content(String)delimiter(')>operator(\);)
        ident(Add)operator(()ident(Uni)operator(.)ident(ReadString)operator(()ident(ValueName)operator(\)\);)
      reserved(end)operator(;)

      ident(udCardinal)operator(,) ident(udCardBigEndian)operator(,) ident(udInteger)operator(:) reserved(begin)
        ident(Add)operator(()string<delimiter(')content(Numeric)delimiter(')>operator(\);)
        ident(Add)operator(()ident(IntToStr)operator(()ident(Uni)operator(.)ident(ReadInteger)operator(()ident(ValueName)operator(\)\)\);)
      reserved(end)operator(;)

      ident(udBinary)operator(,) ident(udNone)operator(:) reserved(begin)
        ident(Add)operator(()string<delimiter(')content(Binary)delimiter(')>operator(\);)
        ident(Add)operator(()ident(FriendlyStr)operator(()ident(Uni)operator(.)ident(ReadBinary)operator(()ident(ValueName)operator(\)\)\);)
      reserved(end)operator(;)

      ident(udBoolean)operator(:) reserved(begin)
        ident(Add)operator(()string<delimiter(')content(Boolean)delimiter(')>operator(\);)
        ident(Add)operator(()ident(StrOfBool)operator(()ident(Uni)operator(.)ident(ReadBool)operator(()ident(ValueName)operator(\)\)\);)
      reserved(end)operator(;)

      ident(udStringList)operator(:) reserved(begin)
        ident(Add)operator(()string<delimiter(')content(List)delimiter(')>operator(\);)
        reserved(if) reserved(not) ident(Assigned)operator(()ident(SL)operator(\)) reserved(then)
          ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)
        reserved(else)
          ident(SL)operator(.)ident(Clear)operator(;)
        ident(Uni)operator(.)ident(ReadStringList)operator(()ident(ValueName)operator(,) ident(SL)operator(\);)
        ident(Add)operator(()ident(Join)operator(()ident(SL)operator(,) ident(MultiStringSeparator)operator(\)\);)
      reserved(end)operator(;)

      ident(udColor)operator(:) reserved(begin)
        ident(Add)operator(()string<delimiter(')content(Color)delimiter(')>operator(\);)
        ident(Add)operator(()ident(ColorToString)operator(()ident(Uni)operator(.)ident(ReadColor)operator(()ident(ValueName)operator(\)\)\);)
      reserved(end)operator(;)

      reserved(else)
        ident(Add)operator(()string<delimiter(')content(Unsupported Data Type: )delimiter(')> operator(+)
        ident(IntToStr)operator(()ident(Cardinal)operator(()ident(Uni)operator(.)ident(GetDataType)operator(()ident(ValueName)operator(\)\)\)\);)
      reserved(end)operator(;) comment(//case)

    reserved(finally)
      ident(SL)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)


preprocessor({$ENDIF})

reserved(begin)
  ident(SpaceCount) operator(:=) integer(0)operator(;) comment(//Easteregg)

  ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);)
  ident(CantWrite) operator(:=) ident(False)operator(;)

  reserved(try)
    ident(SpyThread)operator(.)ident(Suspend)operator(;)
    ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
    reserved(try)

preprocessor({$IFDEF UNIKEY})
      reserved(if) ident(RootOfNode)operator(()ident(Node)operator(\).)ident(ImageIndex) operator(=) ident(iconHostUni) reserved(then) reserved(begin)
        ident(ValueNames) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
        ident(ValueList)operator(.)ident(Clear)operator(;)

        ident(Uni) operator(:=) ident(UniOfNode)operator(()ident(Node)operator(\);)
        comment({Uni := CreateUniSubKey(UserUniPath, Copy(NodePath(Node\), 1, MaxInt\),
          reFaile\); })
        reserved(if) ident(Assigned)operator(()ident(Uni)operator(\)) reserved(then)
        reserved(try)
          ident(Uni)operator(.)ident(GetValueNames)operator(()ident(ValueNames)operator(\);)

          reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(ValueNames)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
            ident(Item) operator(:=) ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(Reg)operator(,) ident(ValueNames)operator([)ident(i)operator(],) ident(False)operator(\);)
            ident(Item)operator(.)ident(ImageIndex) operator(:=) ident(iconHostUni2)operator(;)
            ident(AppendSubItemData)operator(()ident(Item)operator(.)ident(SubItems)operator(,) ident(Uni)operator(,) ident(ValueNames)operator([)ident(i)operator(]\);)
          reserved(end)operator(;)

        reserved(finally)
          ident(Uni)operator(.)ident(Free)operator(;)
          ident(ValueNames)operator(.)ident(Free)operator(;)
        reserved(end)operator(;)

      reserved(end) reserved(else) reserved(begin)
preprocessor({$ENDIF})

      ident(OpenRe) operator(:=) ident(OpenNode)operator(()ident(Reg)operator(,) ident(Node)operator(\);)
      reserved(if) ident(OpenRe) reserved(in) ident(onOK) reserved(then) reserved(begin)
        ident(ValuesWin)operator(.)ident(LoadValues)operator(()ident(Reg)operator(\);)
        reserved(if) ident(OpenRe) operator(=) ident(onReadOnly) reserved(then) reserved(begin)
          ident(AddHint)operator(()string<delimiter(')content(Read only)delimiter(')>operator(,) ident(True)operator(\);)
          ident(CantWrite) operator(:=) ident(True)operator(;)
        reserved(end)operator(;)
      reserved(end) reserved(else) reserved(if) ident(OpenRe) operator(=) ident(onError) reserved(then) reserved(begin)
        ident(ValueList)operator(.)ident(Clear)operator(;)
        ident(CantWrite) operator(:=) ident(True)operator(;)
        reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(0) reserved(then) reserved(begin)
          ident(AddHint)operator(()string<delimiter(')content(Shortcut target not found)delimiter(')>operator(,) ident(True)operator(\);)
        reserved(end) reserved(else)
          ident(AddHint)operator(()string<delimiter(')content(Key not found: )delimiter(')> operator(+) ident(Node)operator(.)ident(Text)operator(,) ident(True)operator(\);)
      reserved(end)operator(;)

preprocessor({$IFDEF UNIKEY})
      reserved(end)operator(;)
preprocessor({$ENDIF})

    reserved(finally)
      ident(Reg)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)

    ident(CantWrite) operator(:=) ident(CantWrite) reserved(or) reserved(not) ident(Assigned)operator(()ident(Node)operator(\))
      reserved(or) ident(NodeInfo)operator(()           ident(Node) operator(\).)ident(ReadOnly)  comment(//Node itself)
      reserved(or) ident(NodeInfo)operator(()ident(RootOfNode)operator(()ident(Node)operator(\)\).)ident(ReadOnly)  comment(//or host)
      reserved(or) operator(()ident(SameText)operator(()ident(CurKey)operator(()ident(uhNonSystemShortcuts)operator(\).)ident(Root)operator(,) string<delimiter(')content(HKEY_DYN_DATA)delimiter(')>operator(\)\);)

    ident(MainWin)operator(.)ident(SetStatus)operator(;)
    ident(WorkWin)operator(.)ident(InfoMemo)operator(.)ident(Text) operator(:=) ident(GetKeyInfos)operator(;)
  reserved(finally)
    ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;)
    ident(SpyThread)operator(.)ident(Resume)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;)
  reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);)
reserved(begin)
  ident(CantWrite) operator(:=) ident(False)operator(;)
  ident(AllowChange) operator(:=) ident(Assigned)operator(()ident(Node)operator(\);)
 comment(// CheckNode(Node, True\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVCollapsing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;)
  reserved(var) ident(AllowCollapse)operator(:) ident(Boolean)operator(\);)
reserved(begin)
  ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;)
  ident(Node)operator(.)ident(DeleteChildren)operator(;)
  ident(RegTVChange)operator(()ident(Sender)operator(,) ident(Node)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;)
  ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);)
reserved(var)
  ident(Info)operator(:) ident(TNodeInfo)operator(;)
reserved(begin)
  comment({if Node.Text = '' then begin
    ShowMessage('Error: Key has empty name.'\);
    Node.Delete;
  Exit; end;})

  ident(Info) operator(:=) ident(NodeInfo)operator(()ident(Node)operator(\);)
  reserved(with) ident(TTreeView)operator(()ident(Sender)operator(\).)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin)
    reserved(if) ident(Info)operator(.)ident(Defect) reserved(then) reserved(begin)
      ident(Style) operator(:=) operator([];)
      ident(Color) operator(:=) hex($AAAAAA)
    reserved(end) reserved(else) reserved(begin)
      reserved(case) ident(Info)operator(.)ident(HostType) reserved(of)

      ident(uhReg)operator(:) reserved(begin)
        ident(Style) operator(:=) operator([)ident(fsBold)operator(];)
        ident(Color) operator(:=) ident(clCyan)operator(;)
      reserved(end)operator(;)

      comment({uhIni: begin
        Style := [fsBold];
        Color := clBrightYellow;
      end;

      uhRegFile: begin
        Style := [fsBold];
        Color := clBrightGreen;
      end; })

      ident(uhSystemShortcut)operator(:) reserved(begin)
        ident(Style) operator(:=) operator([];)
        ident(Color) operator(:=) ident(clBrightCyan)operator(;)
      reserved(end)operator(;)

      ident(uhStandardShortcut)operator(:) reserved(begin)
        ident(Style) operator(:=) operator([)ident(fsBold)operator(];)
        ident(Color) operator(:=) hex($EEEEEE)operator(;)
      reserved(end)operator(;)

      ident(uhUserShortcut)operator(:) reserved(begin)
        ident(Style) operator(:=) operator([];)
        ident(Color) operator(:=) hex($EEEEEE)operator(;)
      reserved(end)operator(;)

      reserved(else)
        ident(Style) operator(:=) operator([];)
        reserved(if) ident(Info)operator(.)ident(ReadOnly) reserved(then)
          ident(Color) operator(:=) ident(clBrightRed)
        reserved(else)
          ident(Color) operator(:=) ident(clWhite)operator(;)
      reserved(end)operator(;)

    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
  ident(MouseX)operator(:) ident(Integer)operator(;)
  ident(NodeRect)operator(:) ident(TRect)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(MouseX) operator(:=) ident(RegTV)operator(.)ident(ScreenToClient)operator(()ident(Mouse)operator(.)ident(CursorPos)operator(\).)ident(X)operator(;)
  ident(NodeRect) operator(:=) ident(Node)operator(.)ident(DisplayRect)operator(()ident(True)operator(\);)
  reserved(if) ident(MouseX) operator(>) ident(NodeRect)operator(.)ident(Right) reserved(then) reserved(begin)
    reserved(with) ident(ValuesWin) reserved(do) reserved(begin)
      ident(FocusItem)operator(()ident(PrefWin)operator(.)ident(MainPreviewE)operator(.)ident(Text)operator(\);)
      ident(ValueListDblClick)operator(()ident(Self)operator(\);)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVDeletion)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(SpyThread)operator(\)) reserved(then)
    ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;)
  reserved(if) ident(Node)operator(.)ident(Selected) reserved(then)
    ident(RegTV)operator(.)ident(Selected) operator(:=) ident(GetNextBest)operator(()ident(Node)operator(\);)
  ident(NodeInfo)operator(()ident(Node)operator(\).)ident(Free)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVDragDrop)operator(()ident(Sender)operator(,) ident(Source)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)

  reserved(procedure) ident(DragKey)operator(;)
  reserved(var)
    ident(Src)operator(,) ident(Trg)operator(:) ident(TRegPath)operator(;)
    ident(Node)operator(:) ident(TTreeNode)operator(;)
  reserved(begin)
    ident(Src) operator(:=) ident(RegPathOfStr)operator(()ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(DragNode)operator(\)\)\);)
    ident(Trg) operator(:=) ident(RegPathOfStr)operator(()ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(DropTarget)operator(\)\)\);)
    ident(Trg)operator(.)ident(Key) operator(:=) ident(Trg)operator(.)ident(Key) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(DragNode)operator(.)ident(Text)operator(;)

    ident(MoveKey)operator(()ident(Src)operator(,) ident(Trg)operator(,) ident(KeyIsDown)operator(()ident(VK_CONTROL)operator(\)\);)

    ident(Node) operator(:=) ident(RegTV)operator(.)ident(DropTarget)operator(;)
    reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then)
      ident(Node)operator(.)ident(Collapse)operator(()ident(False)operator(\);)
    ident(Node)operator(.)ident(Expanded) operator(:=) ident(False)operator(;)
    ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(,) ident(True)operator(\);)
    ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);)
  reserved(end)operator(;)

  reserved(procedure) ident(DragValues)operator(;)
  reserved(begin)
    ident(MoveValues)operator(()ident(RegTV)operator(.)ident(Selected)operator(,) ident(RegTV)operator(.)ident(DropTarget)operator(,) ident(KeyIsDown)operator(()ident(VK_CONTROL)operator(\)\);)
  reserved(end)operator(;)

reserved(begin)
  reserved(if) ident(Source) reserved(is) ident(TTreeView) reserved(then)
    ident(DragKey)
  reserved(else) reserved(if) ident(Source) reserved(is) ident(TListView) reserved(then)
    ident(DragValues)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVDragOver)operator(()ident(Sender)operator(,) ident(Source)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(;)
  ident(State)operator(:) ident(TDragState)operator(;) reserved(var) ident(Accept)operator(:) ident(Boolean)operator(\);)
reserved(begin)
  ident(Accept) operator(:=) ident(False)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(RegTV)operator(.)ident(DropTarget)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(Source) reserved(is) ident(TTreeView) reserved(then) reserved(begin)
    reserved(if) reserved(not) ident(Assigned)operator(()ident(DragNode)operator(\)) reserved(then)
      ident(Exit)operator(;)
    reserved(if) reserved(not) ident(KeyIsDown)operator(()ident(VK_CONTROL)operator(\)) reserved(then) reserved(begin)
      reserved(if) operator(()ident(DragNode) operator(=) ident(RegTV)operator(.)ident(DropTarget)operator(\))
       reserved(or) ident(RegTV)operator(.)ident(DropTarget)operator(.)ident(HasAsParent)operator(()ident(DragNode)operator(\)) reserved(then)
        ident(Exit)operator(;) comment(//avoid recursive moving)
    reserved(end)operator(;)
  reserved(end) reserved(else) reserved(if) ident(Source) reserved(is) ident(TListView) reserved(then) reserved(begin)
    comment(//accept)
  reserved(end)operator(;)
  ident(Accept) operator(:=) ident(True)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVEdited)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) reserved(var) ident(S)operator(:) reserved(string)operator(\);)
reserved(var)
  ident(old)operator(,) ident(tmp)operator(:) reserved(string)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(Shortcut)operator(:) ident(PKeyShortcut)operator(;)
reserved(begin)
  reserved(if) ident(s) operator(=) ident(Node)operator(.)ident(Text) reserved(then)
    ident(Exit)operator(;)

  ident(Old) operator(:=) ident(Node)operator(.)ident(Text)operator(;)

  reserved(if) ident(NodeInfo)operator(()ident(Node)operator(\).)ident(HostType) operator(=) ident(uhUserShortcut) reserved(then) reserved(begin)
    ident(i) operator(:=) ident(ShortcutIndex)operator(()ident(Node)operator(\);)
    reserved(if) ident(i) operator(=) operator(-)integer(1) reserved(then) reserved(begin)
      ident(ShowMessage)operator(()string<delimiter(')content(Shortcut not found!)delimiter(')>operator(\);)
      ident(s) operator(:=) ident(old)operator(;)
    ident(Exit)operator(;) reserved(end)operator(;)

    ident(Shortcut) operator(:=) operator(@)ident(Shortcuts)operator([)ident(i)operator(];)
    ident(Shortcut)operator(.)ident(Alias) operator(:=) ident(s)operator(;)

    reserved(with) ident(TIniFile)operator(.)ident(Create)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(\)) reserved(do)
      reserved(try)
        ident(DeleteKey)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Old)operator(\);)
        ident(WriteString)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Shortcut)operator(.)ident(Alias)operator(,) ident(Shortcut)operator(.)ident(RealPath)operator(\);)
      reserved(finally)
        ident(Free)operator(;)
      reserved(end)operator(;)
    ident(Node)operator(.)ident(Text) operator(:=) ident(s)operator(;)
    ident(RegTVChange)operator(()ident(Self)operator(,) ident(Node)operator(\);)
  ident(Exit)operator(;) reserved(end)operator(;)

  reserved(if) ident(s) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin)
    ident(ShowMessage)operator(()string<delimiter(')content(KeyNames cannot be empty.)delimiter(')>operator(\);)
    ident(s) operator(:=) ident(old)operator(;)
  ident(Exit)operator(;) reserved(end)operator(;)

  ident(SpyThread)operator(.)ident(Suspend)operator(;)
  ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;)
  ident(Node)operator(.)ident(Text) operator(:=) ident(s)operator(;)

  reserved(if) ident(Length)operator(()ident(s)operator(\)) operator(>) ident(RegMaxKeyLen) reserved(then) reserved(begin)
    ident(s) operator(:=) ident(Copy)operator(()ident(s)operator(,) integer(1)operator(,) ident(RegMaxKeyLen)operator(\);)
    reserved(if) ident(MessageDlg)operator(()
     string<delimiter(')content(The maximum size of a key name is )delimiter(')> operator(+) ident(IntToStr)operator(()ident(RegMaxKeyLen)operator(\)) operator(+) string<delimiter(')content( characters.)delimiter(')> operator(+) ident(EOL) operator(+)
     string<delimiter(')content(Shorten the key name to:)delimiter(')> operator(+) ident(EOL) operator(+)
     ident(Quote)operator(()ident(StringWrap)operator(()ident(s)operator(,) integer(80)operator(\)\),)
     ident(mtConfirmation)operator(,) operator([)ident(mbOK)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) operator(<>) ident(mrOK) reserved(then) reserved(begin)
      ident(s) operator(:=) ident(Old)operator(;)
      ident(SpyThread)operator(.)ident(Resume)operator(;)
      ident(Exit)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(if) ident(CharIn)operator(()ident(s)operator(,) operator([)char(#0)operator(..)char(#31)operator(,) char<delimiter(')content(\\)delimiter(')>operator(]\)) reserved(then) reserved(begin)
    ident(s) operator(:=) ident(ReplaceChars)operator(()ident(s)operator(,) operator([)char(#0)operator(..)char(#31)operator(],) char<delimiter(')content(#)delimiter(')>operator(\);)
    ident(s) operator(:=) ident(ReplaceChars)operator(()ident(s)operator(,) char<delimiter(')content(\\)delimiter(')>operator(,) char<delimiter(')content(-)delimiter(')>operator(\);)

    reserved(if) ident(MessageDlg)operator(()string<delimiter(')content(The following characters are not allowed in KeyNames:)delimiter(')> operator(+) ident(EOL) operator(+)
     string<delimiter(')content(- Control chars (0-31\))delimiter(')> operator(+) ident(EOL) operator(+)
     string<delimiter(')content(- )delimiter(')> operator(+) ident(Quote)operator(()char<delimiter(')content(\\)delimiter(')>operator(\)) operator(+) ident(EOL) operator(+)
     string<delimiter(')content(The following name is allowed:)delimiter(')> operator(+) ident(EOL) operator(+)
     ident(s) operator(+) ident(EOL) operator(+)
     string<delimiter(')content(Use this name instead?)delimiter(')>operator(,)
     ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)) operator(<>) ident(mrYes) reserved(then) reserved(begin)
      ident(s) operator(:=) ident(Old)operator(;)
      ident(SpyThread)operator(.)ident(Resume)operator(;)
      ident(Exit)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(try)
    ident(OpenCurParent)operator(;)
    reserved(if) reserved(not) ident(SameText)operator(()ident(s)operator(,) ident(Old)operator(\)) reserved(then) reserved(begin)
      reserved(if) reserved(not) ident(MainReg)operator(.)ident(KeyExists)operator(()ident(s)operator(\)) reserved(or)
       operator(()ident(mrIgnore) operator(=) ident(MessageDlg)operator(()
         string<delimiter(')content(Key already exists.)delimiter(')> operator(+) ident(EOL) operator(+)
         string<delimiter(')content(Click Ignore to overwrite the key.)delimiter(')>operator(,)
         ident(mtConfirmation)operator(,) operator([)ident(mbCancel)operator(,) ident(mbIgnore)operator(],) integer(0)operator(\))
       operator(\)) reserved(then) reserved(begin)
        ident(MainReg)operator(.)ident(DeleteKey)operator(()ident(s)operator(\);)
        ident(MainReg)operator(.)ident(MoveKey)operator(()ident(Old)operator(,) ident(s)operator(,) ident(True)operator(\);)
        ident(Node)operator(.)ident(Text) operator(:=) ident(Old)operator(;)
      reserved(end) reserved(else) reserved(begin)
        ident(s) operator(:=) ident(Old)operator(;)
      reserved(end)operator(;)
    reserved(end) reserved(else) reserved(begin)  comment(//change CharCase)
      ident(tmp) operator(:=) ident(MainReg)operator(.)ident(GetFreeKeyName)operator(;)
      ident(AddHint)operator(()string<delimiter(')content(Forced change of case using temporary key )delimiter(')> operator(+) ident(Quote)operator(()ident(tmp)operator(\)\);)
      ident(MainReg)operator(.)ident(MoveKey)operator(()ident(Old)operator(,) ident(tmp)operator(,) ident(True)operator(\);)
      ident(MainReg)operator(.)ident(MoveKey)operator(()ident(tmp)operator(,) ident(s)operator(,) ident(True)operator(\);)
    reserved(end)operator(;)
  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
  reserved(end)operator(;)

  ident(Node)operator(.)ident(Text) operator(:=) ident(s)operator(;)
  ident(SpyThread)operator(.)ident(Resume)operator(;)
  ident(RegTVChange)operator(()ident(Sender)operator(,) ident(Node)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVEditing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;)
  reserved(var) ident(AllowEdit)operator(:) ident(Boolean)operator(\);)
reserved(begin)
  ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);)
  reserved(if) ident(RegTV)operator(.)ident(Selected) operator(<>) ident(Node) reserved(then)
    ident(Exit)operator(;)
  ident(AllowEdit) operator(:=) operator(()ident(NodeInfo)operator(()ident(Node)operator(\).)ident(HostType) reserved(in) operator([)ident(uhNone)operator(,) ident(uhUserShortcut)operator(]\))
               reserved(and) operator(()reserved(not) ident(CantWrite)operator(\))
               reserved(and) ident(OpenCurKey)operator(;)
  ident(MainReg)operator(.)ident(CloseKey)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVEndDrag)operator(()ident(Sender)operator(,) ident(Target)operator(:) ident(TObject)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
reserved(begin)
  ident(DragNode) operator(:=) reserved(nil)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(Started) reserved(then)
    ident(Exit)operator(;)
  ident(ValueList)operator(.)ident(ItemFocused) operator(:=) reserved(nil)operator(;)
  ident(MainWin)operator(.)ident(SetStatus)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVExpanded)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(DoSmartExpand) reserved(or) reserved(not) ident(PrefWin)operator(.)ident(SmartExpandCB)operator(.)ident(Checked) reserved(then)
    ident(Exit)operator(;)

  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(RegTVChange)operator(()ident(Sender)operator(,) ident(Node)operator(\);)

  comment(//SmartExpand)
  reserved(if) operator(()ident(Node)operator(.)ident(Count) operator(>) integer(0)operator(\)) reserved(and) operator(()ident(ValueList)operator(.)ident(Items)operator(.)ident(Count) operator(=) integer(0)operator(\)) reserved(then) reserved(begin)
    ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(.)ident(GetFirstChild)operator(;)
    ident(RegTVChange)operator(()ident(Sender)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);)
  reserved(end)operator(;)

  reserved(if) ident(Node)operator(.)ident(Count) operator(=) integer(1) reserved(then)
    ident(Node)operator(.)ident(GetFirstChild)operator(.)ident(Expand)operator(()ident(False)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVExpanding)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;)
  reserved(var) ident(AllowExpansion)operator(:) ident(Boolean)operator(\);)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
  ident(Clock)operator(:) ident(TClock)operator(;)
preprocessor({$IFDEF UNIKEY})
  ident(Uni)operator(:) ident(TUniKey)operator(;)
preprocessor({$ENDIF})

  reserved(procedure) ident(AddKeys)operator(()ident(TreeView)operator(:) ident(TTreeView)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;) ident(SL)operator(:) ident(TStrings)operator(\);)
  reserved(var)
    ident(i)operator(:) ident(Integer)operator(;)
  reserved(begin)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do)
      ident(TreeView)operator(.)ident(Items)operator(.)ident(AddNode)operator(()ident(TTreeNode)operator(.)ident(Create)operator(()ident(TreeView)operator(.)ident(Items)operator(\),) ident(Node)operator(,) ident(SL)operator([)ident(i)operator(],)
        reserved(nil)operator(,) ident(naAddChild)operator(\);)
  reserved(end)operator(;)

  reserved(procedure) ident(AddKeysProgressive)operator(()ident(TreeView)operator(:) ident(TTreeView)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;)
    ident(SL)operator(:) ident(TStrings)operator(\);)
  reserved(var)
    ident(i)operator(,) ident(delta)operator(:) ident(Integer)operator(;)
    ident(GaugeRect)operator(,) ident(FullRect)operator(:) ident(TRect)operator(;)
    ident(GaugeWidth)operator(:) ident(Integer)operator(;)
  reserved(begin)
    ident(delta) operator(:=) ident(SL)operator(.)ident(Count) reserved(div) integer(100)operator(;)
    ident(GaugeWidth) operator(:=) integer(100)operator(;)
    reserved(with) ident(TreeView)operator(.)ident(Canvas) reserved(do) reserved(begin)
      ident(FullRect) operator(:=) ident(Node)operator(.)ident(DisplayRect)operator(()ident(True)operator(\);)
      reserved(with) ident(FullRect) reserved(do) reserved(begin)
        ident(Left) operator(:=) ident(Right) operator(+) integer(40)operator(;)
        ident(Right) operator(:=) ident(Left) operator(+) ident(GaugeWidth) operator(+) integer(2)operator(;)
        ident(Inc)operator(()ident(Top)operator(,) integer(5)operator(\);)
        ident(Dec)operator(()ident(Bottom)operator(,) integer(5)operator(\);)
      reserved(end)operator(;)
      reserved(with) ident(Pen) reserved(do) reserved(begin)
        ident(Width) operator(:=) integer(1)operator(;)
        ident(Style) operator(:=) ident(psSolid)operator(;)
      reserved(end)operator(;)
      ident(Pen)operator(.)ident(Color) operator(:=) ident(clBrightBlue)operator(;)
      ident(Brush)operator(.)ident(Style) operator(:=) ident(bsClear)operator(;)
      ident(Rectangle)operator(()ident(FullRect)operator(\);)
      ident(Pen)operator(.)ident(Style) operator(:=) ident(psClear)operator(;)
    reserved(end)operator(;)

    ident(GaugeRect) operator(:=) ident(FullRect)operator(;)
    reserved(with) ident(GaugeRect) reserved(do) reserved(begin)
      ident(Inc)operator(()ident(Left)operator(\);)
      ident(Inc)operator(()ident(Top)operator(\);)
      ident(Dec)operator(()ident(Bottom)operator(\);)
    reserved(end)operator(;)

    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
      ident(TreeView)operator(.)ident(Items)operator(.)ident(AddNode)operator(()ident(TTreeNode)operator(.)ident(Create)operator(()ident(TreeView)operator(.)ident(Items)operator(\),) ident(Node)operator(,) ident(SL)operator([)ident(i)operator(],)
        reserved(nil)operator(,) ident(naAddChild)operator(\);)

      reserved(if) operator((()ident(i) operator(+) integer(1)operator(\)) reserved(mod) ident(delta)operator(\)) operator(=) integer(0) reserved(then) reserved(begin)
        reserved(with) ident(TreeView)operator(.)ident(Canvas) reserved(do) reserved(begin)
          ident(GaugeRect)operator(.)ident(Right) operator(:=) ident(GaugeRect)operator(.)ident(Left) operator(+) operator(()ident(GaugeWidth) operator(*) ident(i)operator(\)) reserved(div) ident(SL)operator(.)ident(Count)operator(;)
          ident(Brush)operator(.)ident(Color) operator(:=) ident(GadientAqua)operator(()integer(90) operator(+) ident(Round)operator(()integer(100) operator(*) operator((()ident(i)operator(+)integer(1)operator(\)) operator(/) ident(SL)operator(.)ident(Count)operator(\)\)\);)
          ident(FillRect)operator(()ident(GaugeRect)operator(\);)
        reserved(end)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

    reserved(with) ident(TreeView)operator(.)ident(Canvas) reserved(do) reserved(begin)
      ident(Pen)operator(.)ident(Color) operator(:=) ident(clVeryBrightBlue)operator(;)
      ident(Pen)operator(.)ident(Style) operator(:=) ident(psSolid)operator(;)
      ident(Brush)operator(.)ident(Color) operator(:=) ident(GadientAqua)operator(()integer(200)operator(\);)
      ident(Rectangle)operator(()ident(FullRect)operator(\);)
      ident(Brush)operator(.)ident(Style) operator(:=) ident(bsClear)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then)
    ident(Exit)operator(;)

  ident(SpyThread)operator(.)ident(Suspend)operator(;)
  ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
  ident(Clock) operator(:=) ident(TClock)operator(.)ident(Create)operator(;)

  reserved(try)

preprocessor({$IFDEF UNIKEY})
    reserved(if) ident(RootOfNode)operator(()ident(Node)operator(\).)ident(ImageIndex) operator(=) ident(iconHostUni) reserved(then) reserved(begin)
      ident(Uni) operator(:=) ident(UniOfNode)operator(()ident(Node)operator(\);)
      reserved(if) ident(Assigned)operator(()ident(Uni)operator(\)) reserved(then)
        reserved(try)
          ident(Uni)operator(.)ident(GetKeyNames)operator(()ident(SL)operator(\);)
        reserved(finally)
          ident(Uni)operator(.)ident(Free)operator(;)
        reserved(end)operator(;)

    reserved(end) reserved(else) reserved(begin)
preprocessor({$ENDIF})

    ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
    reserved(try)
      reserved(if) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(Node)operator(\)) reserved(then)
        ident(Reg)operator(.)ident(GetKeyNames)operator(()ident(SL)operator(\);)
    reserved(finally)
      ident(Reg)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)

preprocessor({$IFDEF UNIKEY})
    reserved(end)operator(;)
preprocessor({$ENDIF})

    ident(Node)operator(.)ident(DeleteChildren)operator(;)
    reserved(if) ident(PrefWin)operator(.)ident(ShowProgressCB)operator(.)ident(Checked) reserved(and) operator(()ident(SL)operator(.)ident(Count) operator(>) integer(100)operator(\)) reserved(then)
      ident(AddKeysProgressive)operator(()ident(RegTV)operator(,) ident(Node)operator(,) ident(SL)operator(\))
    reserved(else)
      ident(AddKeys)operator(()ident(RegTV)operator(,) ident(Node)operator(,) ident(SL)operator(\);)

    reserved(if) ident(PrefWin)operator(.)ident(SortKeysCB)operator(.)ident(Checked) reserved(then)
      ident(Node)operator(.)ident(AlphaSort)operator(;)

    reserved(if) ident(MurphyMode) reserved(then) reserved(begin)
      ident(Clock)operator(.)ident(Stop)operator(;)
      ident(AddHint)operator(()ident(Format)operator(()string<delimiter(')content([MM] Key opened after %0.2f s.)delimiter(')>operator(,) operator([)ident(Clock)operator(.)ident(SecondsPassed)operator(]\)\);)
    reserved(end)operator(;)
  reserved(finally)
    ident(Clock)operator(.)ident(Free)operator(;)
    ident(SL)operator(.)ident(Free)operator(;)
    ident(SpyThread)operator(.)ident(Resume)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVGetSelectedIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
reserved(begin)
  ident(Node)operator(.)ident(SelectedIndex) operator(:=) ident(Node)operator(.)ident(ImageIndex)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  reserved(if) ident(Key) operator(=) ident(VK_SCROLL) reserved(then)
    ident(CheckRegTVHotTrack)operator(;)

  reserved(if) ident(RegTV)operator(.)ident(IsEditing) reserved(then)
    ident(Exit)operator(;)

  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(ssShift) reserved(in) ident(Shift) reserved(then)
    reserved(case) ident(Key) reserved(of)
      ident(VK_DOWN)operator(:) reserved(begin)
        ident(Node) operator(:=) ident(Node)operator(.)ident(GetNextSibling)operator(;)
        reserved(if) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
          ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(;)
      ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;)

      ident(VK_UP)operator(:) reserved(begin)
        ident(Node) operator(:=) ident(Node)operator(.)ident(GetPrevSibling)operator(;)
        reserved(if) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
          ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(;)
      ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;)

      ident(VK_RIGHT)operator(:) ident(Key) operator(:=) ident(VK_MULTIPLY)operator(;)
      ident(VK_LEFT)operator(:) ident(Key) operator(:=) ident(VK_DIVIDE)operator(;)
    reserved(end)operator(;)

  reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(then) reserved(begin)
    reserved(case) ident(Key) reserved(of)
      ident(VK_END)operator(:)
        reserved(begin)
          ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(.)ident(Parent)operator(.)ident(GetLastChild)operator(;)
        ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;)

      ident(VK_HOME)operator(:)
        reserved(begin)
          ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(.)ident(Parent)operator(.)ident(GetFirstChild)operator(;)
        ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(case) ident(Key) reserved(of)
    integer(0)operator(:) ident(Exit)operator(;)
    ident(VK_RETURN)operator(:) ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);)
    ident(VK_DELETE)operator(:) ident(DeleteMIClick)operator(()ident(Sender)operator(\);)
    ident(VK_SPACE)operator(:) reserved(begin)
      ident(JumpToSel)operator(()ident(RegTV)operator(\);)
      ident(Inc)operator(()ident(SpaceCount)operator(\);)
      reserved(if) ident(SpaceCount) operator(>) integer(10) reserved(then) reserved(begin)
        ident(ShowMessage)operator(()string<delimiter(')content(YES!)delimiter(')>operator(\);)
        ident(SpaceCount) operator(:=) integer(0)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)
    ident(VK_F9)operator(:) ident(SwapFonts)operator(()ident(RegTV)operator(\);)

    ident(VK_F12)operator(:)
      reserved(if) ident(ssShift) reserved(in) ident(Shift) reserved(then) reserved(begin)
        reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(then) ident(Node)operator(.)ident(Parent)operator(.)ident(AlphaSort)operator(;)
      reserved(end) reserved(else)
        reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then) ident(Node)operator(.)ident(AlphaSort)operator(;)

    ident(VK_LEFT)operator(,) ident(VK_SUBTRACT)operator(:)
      reserved(begin)
        reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then)
          ident(Node)operator(.)ident(Collapse)operator(()ident(False)operator(\))
        reserved(else) reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(then)
          ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(.)ident(Parent)operator(;)
      ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;)

    ident(VK_RIGHT)operator(,) ident(VK_ADD)operator(:)
      reserved(begin)
        reserved(if) reserved(not) ident(Node)operator(.)ident(HasChildren) reserved(then)
          ident(TreeWin)operator(.)ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(Node)operator(,) string<delimiter(')delimiter(')>operator(\);)
        reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then)
          ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(.)ident(GetFirstChild)
        reserved(else)
          ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);)
      ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;)

    ident(VK_MULTIPLY)operator(:)
      reserved(begin)
        ident(NoAsterisk) operator(:=) ident(True)operator(;)
        ident(OpenNextLevel)operator(()ident(Node)operator(\);)
        ident(JumpToSel)operator(()ident(RegTV)operator(\);)
        ident(AddHint)operator(()string<delimiter(')content(Press the Multiply Key again to open the next level.)delimiter(')>operator(\);)
      ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;)

    ident(VK_DIVIDE)operator(:)
      reserved(begin)
        ident(DoSmartExpand) operator(:=) ident(False)operator(;)
        ident(Node)operator(.)ident(Collapse)operator(()ident(true)operator(\);)
        ident(DoSmartExpand) operator(:=) ident(True)operator(;)
      ident(Key) operator(:=) integer(0)operator(;) reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(if) ident(ssctrl) reserved(in) ident(Shift) reserved(then)
    reserved(case) ident(Key) reserved(of)
      ident(Ord)operator(()char<delimiter(')content(C)delimiter(')>operator(\):) ident(CopyPathMIClick)operator(()ident(Sender)operator(\);)
      ident(Ord)operator(()char<delimiter(')content(X)delimiter(')>operator(\):) ident(CutPathMIClick)operator(()ident(Sender)operator(\);)
      ident(Ord)operator(()char<delimiter(')content(V)delimiter(')>operator(\):) ident(PasteKeyMIClick)operator(()ident(Sender)operator(\);)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
  ident(RelX)operator(,) ident(RelY)operator(:) ident(Integer)operator(;)
  ident(NodeRect)operator(:) ident(TRect)operator(;)
reserved(begin)
  ident(CheckRegTVHotTrack)operator(;)

  reserved(if) reserved(not) ident(Active) reserved(then)
    ident(Exit)operator(;)

  ident(RelX) operator(:=) ident(RegTV)operator(.)ident(ScreenToClient)operator(()ident(Mouse)operator(.)ident(CursorPos)operator(\).)ident(X)operator(;)
  ident(RelY) operator(:=) ident(RegTV)operator(.)ident(ScreenToClient)operator(()ident(Mouse)operator(.)ident(CursorPos)operator(\).)ident(Y)operator(;)
  ident(Node) operator(:=) ident(RegTV)operator(.)ident(GetNodeAt)operator(()ident(RelX)operator(,) ident(RelY)operator(\);)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) reserved(not) ident(Node)operator(.)ident(Selected) reserved(then)
    ident(Node)operator(.)ident(Selected) operator(:=) ident(True)operator(;)

  reserved(if) ident(Button) operator(=) ident(mbLeft) reserved(then) reserved(begin)
    ident(NodeRect) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(.)ident(DisplayRect)operator(()ident(True)operator(\);)
    reserved(if) ident(RegTV)operator(.)ident(HotTrack)
     reserved(or) operator(()ident(RelX) operator(<) ident(NodeRect)operator(.)ident(Left)operator(\)) reserved(and) operator(()ident(RelX) operator(>) ident(NodeRect)operator(.)ident(Left) operator(-) integer(20)operator(\)) reserved(then) reserved(begin)
      comment(//4px more to the left (friendlier for the user\))
      reserved(if) reserved(not) ident(Node)operator(.)ident(HasChildren) reserved(then)
        ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(Node)operator(,) string<delimiter(')delimiter(')>operator(\);)
      ident(DoSmartExpand) operator(:=) ident(False)operator(;)
      reserved(with) ident(Node) reserved(do)
        reserved(if) reserved(not) ident(Expanded) reserved(then)
          ident(Expand)operator(()ident(False)operator(\))
        reserved(else)
          ident(Collapse)operator(()ident(False)operator(\);)
      ident(DoSmartExpand) operator(:=) ident(True)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVStartDrag)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(DragObject)operator(:) ident(TDragObject)operator(\);)
reserved(begin)
  ident(DragNode) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)
  reserved(if) ident(NodeInfo)operator(()ident(DragNode)operator(\).)ident(IsHost) reserved(then)
    ident(DragNode) operator(:=) reserved(nil)operator(;)
reserved(end)operator(;)

reserved(function) ident(OpenNodeError)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(;)
  reserved(out) ident(Mode)operator(:) ident(TOpenNodeMode)operator(\):) ident(Integer)operator(;)
reserved(var)
  ident(Key)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(ERROR_SUCCESS)operator(;)
  ident(Mode) operator(:=) ident(onNodeNil)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(Reg)operator(.)ident(CloseKey)operator(;)
  ident(Key) operator(:=) ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\);)
  ident(Reg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(ExRegRoot)operator(()ident(Key)operator(\)\);)
  ident(Result) operator(:=) ident(Reg)operator(.)ident(OpenKeyError)operator(()ident(ExRegKey)operator(()ident(Key)operator(\),) ident(False)operator(,) ident(True)operator(\);)
  reserved(if) ident(Success)operator(()ident(Result)operator(\)) reserved(then)
    reserved(if) ident(Reg)operator(.)ident(RootKey) operator(=) ident(HKDD) reserved(then)
      ident(Mode) operator(:=) ident(onReadOnly)
    reserved(else)
      ident(Mode) operator(:=) ident(onFull)
  reserved(else) reserved(if) ident(Reg)operator(.)ident(OpenKeyReadOnly)operator(()ident(ExRegKey)operator(()ident(Key)operator(\)\)) reserved(then)
    ident(Mode) operator(:=) ident(onReadOnly)
  reserved(else)
    ident(Mode) operator(:=) ident(onError)operator(;)
reserved(end)operator(;)

reserved(function) ident(OpenNode)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(TOpenNodeMode)operator(;)
reserved(begin)
  ident(OpenNodeError)operator(()ident(Reg)operator(,) ident(Node)operator(,) ident(Result)operator(\);)
reserved(end)operator(;)

reserved(function) ident(OpenNodeOK)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(OpenNode)operator(()ident(Reg)operator(,) ident(Node)operator(\)) reserved(in) ident(onOK)operator(;)
reserved(end)operator(;)

reserved(function) ident(OpenCurKey)operator(:) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(OpenNodeOK)operator(()ident(MainReg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);)
reserved(end)operator(;)

reserved(function) ident(OpenCurParent)operator(:) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(Assigned)operator(()ident(RegTV)operator(.)ident(Selected)operator(\))
    reserved(and) ident(OpenNodeOK)operator(()ident(MainReg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(.)ident(Parent)operator(\);)
reserved(end)operator(;)

reserved(function) ident(TTreeWin)operator(.)ident(CreateKey)operator(()ident(Subkey)operator(:) ident(Boolean)operator(\):) ident(Boolean)operator(;)
reserved(var)
  ident(Node)operator(,) ident(NewNode)operator(:) ident(TTreeNode)operator(;)
  ident(KeyName)operator(:) reserved(string)operator(;)
  ident(i)operator(:) ident(integer)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(False)operator(;)

  reserved(if) ident(CantWrite) reserved(then)
    ident(Exit)operator(;)

  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) reserved(not) ident(Subkey) reserved(then) reserved(begin)
  comment(//key shall be created on same level...)
    reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(0) reserved(then) reserved(begin)
      ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)
      reserved(if) ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\)) operator(<>) ident(PathOfNode)operator(()ident(Node)operator(\)) reserved(then)
      comment(//check for shortcut: shortcuts are unequal to their trace)
        reserved(if) ident(mrOK) operator(=) ident(MessageDlg)operator(()
                  string<delimiter(')content(You are trying to create a Key in the shortcut)char('')content(s level.)delimiter(')> operator(+) ident(EOL) operator(+)
                  string<delimiter(')content(Pluto needs to jump to the target of the shortcut to do this.)delimiter(')>operator(,)
                  ident(mtConfirmation)operator(,) operator([)ident(mbOK)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then) reserved(begin)
          ident(MainWin)operator(.)ident(GotoKey)operator(()ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\)\);)
          ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(.)ident(Parent)operator(;)
        reserved(end) reserved(else) ident(Exit)
      reserved(else) reserved(begin)
        ident(ShowMessage)operator(()string<delimiter(')content(Key is a HKEY.)delimiter(')> operator(+) ident(EOL) operator(+)
                    string<delimiter(')content(It is not possible to create Keys on HKEY level.)delimiter(')>operator(\);)
      ident(Exit)operator(;) reserved(end)operator(;)
    reserved(end) reserved(else)
      ident(Node) operator(:=) ident(Node)operator(.)ident(Parent)operator(;) comment(//set reference key to parent)
  reserved(end)operator(;)

  reserved(try)

    reserved(case) ident(OpenNode)operator(()ident(MainReg)operator(,) ident(Node)operator(\)) reserved(of)

    ident(onFull)operator(:) reserved(begin)
      ident(KeyName) operator(:=) string<delimiter(')content(New)delimiter(')>operator(;)  comment(//find best free name)
      ident(i) operator(:=) integer(0)operator(;)
      reserved(while) ident(MainReg)operator(.)ident(KeyExists)operator(()ident(KeyName)operator(\)) reserved(do) reserved(begin)
        ident(Inc)operator(()ident(i)operator(\);)
        ident(KeyName) operator(:=) string<delimiter(')content(New )delimiter(')> operator(+) ident(IntToStr)operator(()ident(i)operator(\);)
      reserved(end)operator(;)

      ident(Result) operator(:=) ident(MainReg)operator(.)ident(CreateKey)operator(()ident(KeyName)operator(\)) reserved(and) ident(MainReg)operator(.)ident(KeyExists)operator(()ident(KeyName)operator(\);)
      comment(// ^-- CREATE KEY)

      reserved(if) reserved(not) ident(Result) reserved(then) comment(// <-- FAILED)
        ident(ShowMessage)operator(()string<delimiter(')content(Could not create key!)delimiter(')>operator(\);)
    reserved(end)operator(;)

    ident(onReadOnly)operator(:) ident(ShowMessage)operator(()string<delimiter(')content(Key is read-only.)delimiter(')>operator(\);)

    reserved(else)
      ident(ShowMessage)operator(()string<delimiter(')content(Error: Couldn)char('')content(t open key.)delimiter(')>operator(\);)

    reserved(end)operator(;) comment(//case)

  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
  reserved(end)operator(;)

  reserved(if) reserved(not) ident(Result) reserved(then)
    ident(Exit)operator(;)

  reserved(if) reserved(not) ident(Node)operator(.)ident(Expanded) reserved(then) reserved(begin)   comment(//find the node, if Parent not Expanded)
    ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);)
    ident(DoSmartExpand) operator(:=) ident(False)operator(;)
    ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);)
    ident(DoSmartExpand) operator(:=) ident(True)operator(;)
    ident(NewNode) operator(:=) ident(FindNode)operator(()ident(Node)operator(,) ident(KeyName)operator(\);)
  reserved(end) reserved(else)
    ident(NewNode) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(Node)operator(,) ident(KeyName)operator(\);) comment(//else create a new node)

  ident(Result) operator(:=) ident(Assigned)operator(()ident(NewNode)operator(\);)
  reserved(if) reserved(not) ident(Result) reserved(then)
    ident(ShowMessage)operator(()string<delimiter(')content(Error: Could not find created key.)delimiter(')>operator(\);)

  reserved(if) ident(Result) reserved(then) reserved(begin)
    ident(RegTV)operator(.)ident(Selected) operator(:=) ident(NewNode)operator(;)
    ident(RegTV)operator(.)ident(Selected)operator(.)ident(EditText)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(CloneKey)operator(;)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
  ident(Full)operator(:) ident(TRegPath)operator(;)
  ident(MainKey)operator(,) ident(SubKey)operator(,) ident(NewKey)operator(,) ident(zKey)operator(:) reserved(string)operator(;)
  ident(i)operator(:) ident(integer)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)

  reserved(if) ident(CantWrite) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(NodeInfo)operator(()ident(Node)operator(\).)ident(IsHost) reserved(then)
    ident(Exit)operator(;)

  ident(Full) operator(:=) ident(CurKey)operator(()ident(uhNonSystemShortcuts)operator(\);)
  ident(MainKey) operator(:=) ident(LWPSolve)operator(()ident(Full)operator(.)ident(Key)operator(\);)
  ident(SubKey) operator(:=) ident(FromLastChar)operator(()ident(MainKey)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\);)
  ident(MainKey) operator(:=) ident(UntilLastChar)operator(()ident(MainKey)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\);)
  reserved(if) ident(SubKey) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin) comment(//Directly beyound HKEY)
    ident(SubKey) operator(:=) ident(MainKey)operator(;)
    ident(MainKey) operator(:=) string<delimiter(')delimiter(')>operator(;)
  reserved(end)operator(;)

  reserved(try)
    ident(MainReg)operator(.)ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(Full)operator(.)ident(Root)operator(\);)
    reserved(if) reserved(not) ident(MainReg)operator(.)ident(OpenKey)operator(()ident(MainKey)operator(,) ident(False)operator(\)) reserved(then) reserved(begin)
      ident(ShowMessage)operator(()string<delimiter(')content(Error: Couldn)char('')content(t not open Key: )delimiter(')> operator(+) ident(MainKey)operator(\);)
    ident(Exit) reserved(end)operator(;)
    reserved(if) ident(Copy)operator(()ident(SubKey)operator(,) integer(1)operator(,) integer(3)operator(\)) operator(<>) string<delimiter(')content(New)delimiter(')> reserved(then)
      ident(NewKey) operator(:=) string<delimiter(')content(New )delimiter(')> operator(+) ident(SubKey)
    reserved(else)
      ident(NewKey) operator(:=) ident(SubKey)operator(;)

    ident(zKey) operator(:=) ident(Trim)operator(()ident(FromLastChar)operator(()ident(NewKey)operator(,) char<delimiter(')content( )delimiter(')>operator(\)\);)

    ident(i) operator(:=) ident(StrToIntDef)operator(()ident(zKey)operator(,) integer(0)operator(\);)
    reserved(if) ident(IsValidInteger)operator(()ident(zKey)operator(\)) reserved(then)
      ident(zKey) operator(:=) ident(Trim)operator(()ident(UntilLastChar)operator(()ident(NewKey)operator(,) char<delimiter(')content( )delimiter(')>operator(\)\))
    reserved(else)
      ident(zKey) operator(:=) ident(NewKey)operator(;)
        
    reserved(while) ident(MainReg)operator(.)ident(KeyExists)operator(()ident(NewKey)operator(\)) reserved(do) reserved(begin)
      ident(Inc)operator(()ident(i)operator(\);)
      ident(NewKey) operator(:=) ident(zKey) operator(+) char<delimiter(')content( )delimiter(')> operator(+) ident(IntToStr)operator(()ident(i)operator(\);)
    reserved(end)operator(;)

    ident(MainReg)operator(.)ident(MoveKey)operator(()ident(SubKey)operator(,) ident(NewKey)operator(,) ident(False)operator(\);)
  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
  reserved(end)operator(;)

  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(Add)operator(()ident(Node)operator(,) ident(NewKey)operator(\);)
  ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node)operator(;)
  ident(Node)operator(.)ident(EditText)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(NewShortcut)operator(;)
reserved(var)
  ident(Node)operator(,) ident(ShortCutNode)operator(:) ident(TTreeNode)operator(;)
  ident(ScName)operator(,) ident(ScRealPath)operator(:) reserved(string)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(0) reserved(then)
    ident(ScName) operator(:=) string<delimiter(')content(new )delimiter(')> operator(+) ident(Node)operator(.)ident(Text)
  reserved(else)
    ident(ScName) operator(:=) string<delimiter(')delimiter(')> operator(+) ident(Node)operator(.)ident(Text)operator(;)

  ident(ScRealPath) operator(:=) ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\);)
  reserved(if) reserved(not) ident(InputQuery)operator(()string<delimiter(')content(New shortcut to )delimiter(')>operator(,) ident(ScRealPath)operator(,) ident(ScName)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(ShortCuts)operator(\)) reserved(do)
    reserved(if) ident(SameText)operator(()ident(ScName)operator(,) ident(ShortCuts)operator([)ident(i)operator(].)ident(Alias)operator(\)) reserved(then) reserved(begin)
      ident(ShowMessage)operator(()string<delimiter(')content(Name already in use.)delimiter(')>operator(\);)
      ident(NewShortcut)operator(;)
    ident(Exit)operator(;) reserved(end)operator(;)

  ident(ShortCutNode) operator(:=) ident(AddShortcut)operator(()ident(ScName)operator(,) ident(ScRealPath)operator(,) ident(iconShortcut)operator(,) ident(uhUserShortcut)operator(,)
    ident(True)operator(\);)
  ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);)
  ident(RegTV)operator(.)ident(Selected) operator(:=) ident(ShortCutNode)operator(;)
reserved(end)operator(;)

reserved(function) ident(AddShortcut)operator(()ident(Alias)operator(,) ident(RealPath)operator(:) reserved(string)operator(;) ident(Icon)operator(:) ident(Integer)operator(;)
  ident(AHostType)operator(:) ident(TUniHostType) operator(=) ident(uhUserShortcut)operator(;)
  ident(WriteIni)operator(:) ident(Boolean) operator(=) ident(False)operator(\):) ident(TTreeNode)operator(;)
reserved(var)
  ident(Last)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(RealPath) operator(:=) ident(TraceKey)operator(()ident(RealPath)operator(\);) comment(//Important: do this BEFORE adding a new,)
                                  comment(//empty shortcut to ShortCuts)

  ident(SetLength)operator(()ident(ShortCuts)operator(,) ident(Length)operator(()ident(ShortCuts)operator(\)) operator(+) integer(1)operator(\);)
  ident(Last) operator(:=) ident(High)operator(()ident(Shortcuts)operator(\);)
  ident(ShortCuts)operator([)ident(Last)operator(].)ident(Alias) operator(:=) ident(Alias)operator(;)
  ident(ShortCuts)operator([)ident(Last)operator(].)ident(RealPath) operator(:=) ident(RealPath)operator(;)

  ident(Result) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(Add)operator(()reserved(nil)operator(,) ident(Alias)operator(\);)
  ident(ShortCuts)operator([)ident(Last)operator(].)ident(Node) operator(:=) ident(Result)operator(;)

  reserved(if) ident(Alias) operator(=) string<delimiter(')content(HKEY_WindowsMachine)delimiter(')> reserved(then)
    ident(Icon) operator(:=) ident(iconHKWM)
  reserved(else) reserved(if) ident(Alias) operator(=) string<delimiter(')content(HKEY_WindowsUser)delimiter(')> reserved(then)
    ident(Icon) operator(:=) ident(iconHKWU)operator(;)
  ident(SetTNImage)operator(()ident(Result)operator(,) ident(Icon)operator(\);)

  ident(NodeInfo)operator(()ident(Result)operator(\).)ident(HostType) operator(:=) ident(AHostType)operator(;)

  reserved(if) ident(WriteIni) reserved(then)
    reserved(with) ident(TIniFile)operator(.)ident(Create)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(\)) reserved(do)
      reserved(try)
        ident(WriteString)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Alias)operator(,) ident(RealPath)operator(\);)
      reserved(finally)
        ident(Free)operator(;)
      reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(DeleteKey)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(Node)operator(,) ident(Node2)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)


  ident(i) operator(:=) ident(ShortcutIndex)operator(()ident(Node)operator(\);)
  reserved(if) operator(()ident(i) operator(>) operator(-)integer(1)operator(\)) reserved(then) reserved(begin)
    reserved(if) operator(()ident(mrYes) operator(=) ident(MessageDlg)operator(()string<delimiter(')content(This is a Pluto shortcut to a real key.)delimiter(')>char(#13)char(#10) operator(+)
     string<delimiter(')content(Do you really want to delete the shortcut?)delimiter(')>operator(,)
     ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)\)) reserved(then) reserved(begin)
      ident(SpyThread)operator(.)ident(Suspend)operator(;)
      ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;)
      reserved(with) ident(TIniFile)operator(.)ident(Create)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(\)) reserved(do)
        reserved(try)
          ident(DeleteKey)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Shortcuts)operator([)ident(i)operator(].)ident(Alias)operator(\);)
        reserved(finally)
          ident(Free)operator(;)
        reserved(end)operator(;)
      ident(Shortcuts)operator([)ident(i)operator(]) operator(:=) ident(Shortcuts)operator([)ident(High)operator(()ident(Shortcuts)operator(\)];)
      ident(SetLength)operator(()ident(Shortcuts)operator(,) ident(Length)operator(()ident(Shortcuts)operator(\)-)integer(1)operator(\);)
      ident(RegTV)operator(.)ident(Selected) operator(:=) ident(GetNextBest)operator(()ident(Node)operator(\);)
      ident(Node)operator(.)ident(Delete)operator(;)
      ident(RegTVChange)operator(()ident(Self)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);)
      ident(SpyThread)operator(.)ident(Resume)operator(;)
    reserved(end)operator(;)
  ident(Exit)operator(;) reserved(end)operator(;)

  reserved(if) ident(CantWrite) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(NodeInfo)operator(()ident(Node)operator(\).)ident(IsHost) reserved(then)
    ident(Exit)operator(;)

  ident(SpyThread)operator(.)ident(Suspend)operator(;)
  ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;)

  ident(Node2) operator(:=) ident(GetNextBest)operator(()ident(Node)operator(\);)

  reserved(if) ident(MessageDlg)operator(()string<delimiter(')content(Do you really want to delete this key?)delimiter(')>operator(,) ident(mtConfirmation)operator(,)
   operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) operator(=) ident(mrYes) reserved(then)
    reserved(try)
      reserved(if) ident(OpenCurParent) reserved(then) reserved(begin)
        reserved(if) reserved(not) ident(MainReg)operator(.)ident(DeleteKey)operator(()ident(Node)operator(.)ident(Text)operator(\)) reserved(then) comment(//<-- DELETE KEY)
          ident(ShowMessage)operator(()string<delimiter(')content(Key could not be deleted.)delimiter(')>operator(\))
        reserved(else) reserved(begin)
          ident(RegTV)operator(.)ident(Selected) operator(:=) ident(Node2)operator(;)
          reserved(if) ident(Assigned)operator(()ident(Node)operator(.)ident(Parent)operator(\)) reserved(and) operator(()ident(Node2) operator(=) ident(Node)operator(.)ident(Parent)operator(\)) reserved(then)
            ident(Node)operator(.)ident(Parent)operator(.)ident(Collapse)operator(()ident(False)operator(\);)
          ident(Node)operator(.)ident(Delete)operator(;)
        reserved(end)operator(;)
      reserved(end)operator(;)
    reserved(finally)
      ident(MainReg)operator(.)ident(CloseKey)operator(;)
    reserved(end)operator(;)

  ident(RegTVChange)operator(()ident(Self)operator(,) ident(Node2)operator(\);)

  ident(SpyThread)operator(.)ident(Resume)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(MoveKey)operator(()reserved(const) ident(Src)operator(,) ident(Trg)operator(:) ident(TRegPath)operator(;) ident(CopyWanted)operator(:) ident(Boolean)operator(\);)
reserved(var)
  ident(TrgReg)operator(:) ident(TXRegistry)operator(;)
reserved(begin)
  reserved(with) ident(MainReg) reserved(do) reserved(begin)
    ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(Src)operator(.)ident(Root)operator(\);)
    ident(OpenKey)operator(()string<delimiter(')delimiter(')>operator(\);)

    reserved(if) reserved(not) ident(KeyExists)operator(()ident(Src)operator(.)ident(Key)operator(\)) reserved(then) reserved(begin)
      ident(ShowMessage)operator(()string<delimiter(')content(Source not found.)delimiter(')>operator(\);)
    ident(Exit)operator(;) reserved(end)operator(;)
  reserved(end)operator(;)

  ident(TrgReg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  reserved(with) ident(TrgReg) reserved(do) reserved(begin)
    ident(RootKey) operator(:=) ident(HKEYOfStr)operator(()ident(Trg)operator(.)ident(Root)operator(\);)
    ident(OpenKey)operator(()string<delimiter(')delimiter(')>operator(\);)
    reserved(if) ident(KeyExists)operator(()ident(Trg)operator(.)ident(Key)operator(\)) reserved(then) reserved(begin)
      ident(ShowMessage)operator(()string<delimiter(')content(Target already existing.)delimiter(')>operator(\);)
      ident(TrgReg)operator(.)ident(Free)operator(;)
    ident(Exit)operator(;) reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(if) reserved(not) ident(CopyWanted) reserved(then)
    reserved(if) ident(mrYes) operator(<>) ident(MessageDlg)operator(()string<delimiter(')content(From source: )delimiter(')> operator(+) ident(StrOfRegPath)operator(()ident(Src)operator(\)) operator(+) ident(EOL) operator(+)
                           string<delimiter(')content(To target: )delimiter(')> operator(+) ident(StrOfRegPath)operator(()ident(Trg)operator(\)) operator(+) ident(EOL) operator(+)
                           string<delimiter(')content(Do you really want to move this key?)delimiter(')>operator(,)
                           ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\))
    reserved(then)
      ident(Exit)operator(;)

  reserved(try)
    ident(MainReg)operator(.)ident(MoveKey)operator(()ident(Src)operator(.)ident(Key)operator(,) ident(TrgReg)operator(,) ident(Trg)operator(.)ident(Key)operator(,) reserved(not) ident(CopyWanted)operator(\);) comment(//<-- MOVE KEY)
  reserved(except)
  reserved(end)operator(;)

  reserved(if) reserved(not) ident(TrgReg)operator(.)ident(OpenKey)operator(()ident(Trg)operator(.)ident(Key)operator(,) ident(False)operator(\)) reserved(then)
    ident(ShowMessage)operator(()string<delimiter(')content(Could not move key!)delimiter(')>operator(\))
  reserved(else)
    reserved(if) reserved(not) ident(CopyWanted) reserved(then)
      ident(DragNode)operator(.)ident(Delete)operator(;)


  ident(TrgReg)operator(.)ident(Free)operator(;)

  ident(MainReg)operator(.)ident(CloseKey)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(MoveValues)operator(()ident(SrcNode)operator(,) ident(TrgNode)operator(:) ident(TTreeNode)operator(;)
  ident(CopyWanted)operator(:) ident(Boolean)operator(\);)
reserved(var)
  ident(SrcReg)operator(,) ident(TrgReg)operator(:) ident(TXRegistry)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(ValueName)operator(:) reserved(string)operator(;)
  ident(AnswerToAll)operator(:) ident(Integer)operator(;)

  reserved(function) ident(AskForReplacing)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(\):) ident(Integer)operator(;)
  reserved(begin)
    reserved(if) ident(AnswerToAll) operator(=) operator(-)integer(1) reserved(then) reserved(begin)
      ident(Result) operator(:=) ident(MessageDlg)operator(()
        string<delimiter(')content(Value )delimiter(')> operator(+) ident(Quote)operator(()ident(ValueName)operator(\)) operator(+) string<delimiter(')content(already exists in target key.)delimiter(')> operator(+) ident(EOL) operator(+)
        string<delimiter(')content(Do you want to replace it?)delimiter(')>operator(,)
        ident(mtWarning)operator(,) operator([)ident(mbNo)operator(,) ident(mbYes)operator(,) ident(mbNoToAll)operator(,) ident(mbYesToAll)operator(,) ident(mbAbort)operator(],) integer(0)operator(\);)
      reserved(if) ident(Result) reserved(in) operator([)ident(mrNoToAll)operator(,) ident(mrYesToAll)operator(]) reserved(then) reserved(begin)
        reserved(if) ident(Result) operator(=) ident(mrYesToAll) reserved(then)
          ident(Result) operator(:=) ident(mrYes)
        reserved(else) reserved(if) ident(Result) operator(=) ident(mrNoToAll) reserved(then)
          ident(Result) operator(:=) ident(mrNo)operator(;)
        ident(AnswerToAll) operator(:=) ident(Result)operator(;)
      reserved(end)operator(;)
    reserved(end) reserved(else) ident(Result) operator(:=) ident(AnswerToAll)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(AnswerToAll) operator(:=) operator(-)integer(1)operator(;)

  reserved(if) reserved(not) ident(CopyWanted) reserved(then)
    reserved(if) ident(mrYes)operator(<>)ident(MessageDlg)operator(()
     ident(Format)operator(()
      string<delimiter(')content(Do you really want to move %s)delimiter(')> operator(+) ident(EOL) operator(+)
      string<delimiter(')content(from: %s)delimiter(')> operator(+) ident(EOL) operator(+)
      string<delimiter(')content(to: %s)delimiter(')>operator(,)
      operator([)ident(StrNumerus)operator(()ident(ValueList)operator(.)ident(SelCount)operator(,) string<delimiter(')content(value)delimiter(')>operator(,) string<delimiter(')content(values)delimiter(')>operator(\),)
       ident(PathOfNode)operator(()ident(SrcNode)operator(\),) ident(PathOfNode)operator(()ident(TrgNode)operator(\)])
     operator(\),) ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbAbort)operator(],) integer(0)operator(\)) reserved(then)
      ident(Exit)operator(;)

  ident(SrcReg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  reserved(try)
    reserved(if) reserved(not) operator(()ident(OpenNode)operator(()ident(SrcReg)operator(,) ident(SrcNode)operator(\)) reserved(in) ident(onOK)operator(\)) reserved(then)
      ident(MessageDlg)operator(()string<delimiter(')content(Couldn)char('')content(t open source key: )delimiter(')> operator(+) ident(PathOfNode)operator(()ident(SrcNode)operator(\),)
        ident(mtError)operator(,) operator([)ident(mbOK)operator(],) integer(0)operator(\);)

    ident(TrgReg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
    reserved(try)
      reserved(if) reserved(not) operator(()ident(OpenNode)operator(()ident(TrgReg)operator(,) ident(TrgNode)operator(\)) reserved(in) ident(onOK)operator(\)) reserved(then)
        ident(MessageDlg)operator(()string<delimiter(')content(Couldn)char('')content(t open target key: )delimiter(')> operator(+) ident(PathOfNode)operator(()ident(TrgNode)operator(\),)
          ident(mtError)operator(,) operator([)ident(mbOK)operator(],) integer(0)operator(\);)

      reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) reserved(begin)
        reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
          reserved(if) reserved(not) ident(Item)operator([)ident(i)operator(].)ident(Selected) reserved(then)
            ident(Continue)operator(;)
          ident(ValueName) operator(:=) ident(RealValueName)operator(()ident(Item)operator([)ident(i)operator(]\);)

          reserved(if) ident(TrgReg)operator(.)ident(ValueExists)operator(()ident(ValueName)operator(\)) reserved(then) reserved(begin)
            reserved(case) ident(AskForReplacing)operator(()ident(ValueName)operator(\)) reserved(of)
              ident(mrYes)operator(:) operator(;)
              ident(mrNo)operator(:) ident(Continue)operator(;)
              ident(mrAbort)operator(:) ident(Break)operator(;)
            reserved(end)operator(;)
          reserved(end)operator(;)

          ident(TrgReg)operator(.)ident(WriteContext)operator(()ident(ValueName)operator(,) ident(SrcReg)operator(.)ident(ReadContext)operator(()ident(ValueName)operator(\)\);)
          reserved(if) reserved(not) ident(CopyWanted) reserved(then)
            ident(SrcReg)operator(.)ident(DeleteValue)operator(()ident(ValueName)operator(\);)
        reserved(end)operator(;)
      reserved(end)operator(;)

    reserved(finally)
      ident(TrgReg)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)

  reserved(finally)
    ident(SrcReg)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)

  reserved(if) reserved(not) ident(CopyWanted) reserved(then)
    ident(ValuesWin)operator(.)ident(Reload)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(NewSubKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CreateKey)operator(()ident(True)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(NewKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CreateKey)operator(()ident(False)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(CreateShortcutMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(NewShortcut)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(TraceMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(NodeInfo)operator(()ident(RegTV)operator(.)ident(Selected)operator(\).)ident(IsShortcut) reserved(then)
    ident(MainWin)operator(.)ident(GotoKey)operator(()ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)\)\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(DeleteMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(RegTV)operator(.)ident(IsEditing) reserved(then)
    ident(DeleteKey)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(DublicateMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CloneKey)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(FindMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(FindWin)operator(.)ident(SfCurKeyRB)operator(.)ident(Checked) operator(:=) ident(True)operator(;)
  ident(FindWin)operator(.)ident(Show)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(RegTVChange)operator(()ident(Sender)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);)
  reserved(with) ident(NodeInfo)operator(()ident(RegTV)operator(.)ident(Selected)operator(\)) reserved(do) reserved(begin)
    ident(NewSubKeyMI)operator(.)ident(Enabled) operator(:=) reserved(not) ident(CantWrite)operator(;)
    ident(NewKeyMI)operator(.)ident(Enabled) operator(:=) reserved(not) ident(CantWrite) reserved(and) operator(()reserved(not) ident(IsHost) reserved(or) ident(IsShortcut)operator(\);)
    ident(DublicateMI)operator(.)ident(Enabled) operator(:=) reserved(not) ident(CantWrite) reserved(and) reserved(not) ident(IsHost)operator(;)

    reserved(with) ident(DeleteMI) reserved(do)
      reserved(if) ident(HostType) operator(=) ident(uhUserShortcut) reserved(then) reserved(begin)
        ident(Caption) operator(:=) string<delimiter(')content(&Delete Shortcut)delimiter(')>operator(;)
        ident(Enabled) operator(:=) ident(True)operator(;)
      reserved(end) reserved(else) reserved(begin)
        ident(Caption) operator(:=) string<delimiter(')content(&Delete)delimiter(')>operator(;)
        ident(Enabled) operator(:=) reserved(not) ident(CantWrite) reserved(and) reserved(not) ident(IsHost)operator(;)
      reserved(end)operator(;)

    ident(RenameMI)operator(.)ident(Enabled) operator(:=) reserved(not) ident(CantWrite) reserved(and) operator(()ident(HostType) reserved(in) operator([)ident(uhNone)operator(,) ident(uhUserShortcut)operator(]\);)
    ident(TraceMI)operator(.)ident(Visible) operator(:=) ident(IsShortcut)operator(;)
    ident(EditShortcutMI)operator(.)ident(Visible) operator(:=) ident(HostType) operator(=) ident(uhUserShortcut)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(CheckNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(;) ident(OnlyOnce)operator(:) ident(Boolean) operator(=) ident(True)operator(;)
  ident(TakeNodeSelected)operator(:) ident(Boolean) operator(=) ident(False)operator(\);)
reserved(var)
  ident(CurIcon)operator(,) ident(NewIcon)operator(:) ident(Integer)operator(;)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
  ident(OpenMode)operator(:) ident(TOpenNodeMode)operator(;)
  ident(Info)operator(:) ident(TNodeInfo)operator(;)
preprocessor({$IFDEF UNIKEY})
  ident(Uni)operator(:) ident(TUniKey)operator(;)
preprocessor({$ENDIF})
  ident(KeyHasChildren)operator(:) ident(Boolean)operator(;)

  reserved(procedure) ident(SetShortcutIcon)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)
  reserved(var)
    ident(Full)operator(:) reserved(string)operator(;)
    ident(i)operator(:) ident(Integer)operator(;)
  reserved(begin)
    ident(Full) operator(:=) ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\);)
    reserved(for) ident(i) operator(:=) ident(Low)operator(()ident(Shortcuts)operator(\)) reserved(to) ident(High)operator(()ident(Shortcuts)operator(\)) reserved(do)
      reserved(if) ident(Full) operator(=) ident(Shortcuts)operator([)ident(i)operator(].)ident(RealPath) reserved(then) reserved(begin)
        ident(CurIcon) operator(:=) ident(Shortcuts)operator([)ident(i)operator(].)ident(Node)operator(.)ident(ImageIndex)operator(;)
      ident(Exit)operator(;) reserved(end)operator(;)
    reserved(if) ident(Node)operator(.)ident(ImageIndex) reserved(in) operator([)ident(iconShortcut)operator(,) ident(iconShortcut) operator(+) integer(1)operator(]) reserved(then)
      ident(CurIcon) operator(:=) ident(iconKey) operator(+) operator(()ident(CurIcon) operator(-) ident(iconShortcut)operator(\);)
  reserved(end)operator(;)

reserved(begin)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(Info) operator(:=) ident(NodeInfo)operator(()ident(Node)operator(\);)
  reserved(if) ident(OnlyOnce) reserved(and) ident(Info)operator(.)ident(Checked) reserved(then)
    ident(Exit)operator(;)

  ident(CurIcon) operator(:=) ident(Node)operator(.)ident(ImageIndex)operator(;)
  reserved(if) operator(()ident(CurIcon) operator(>) ident(iconFirstType)operator(\)) reserved(then) reserved(begin)
preprocessor({$IFDEF UNIKEY})
    reserved(if) ident(RootOfNode)operator(()ident(Node)operator(\).)ident(ImageIndex) operator(<>) ident(iconHostUni) reserved(then) reserved(begin)
      ident(SetShortcutIcon)operator(()ident(Node)operator(\);)
      ident(CurIcon) operator(:=) operator(()ident(CurIcon) reserved(div) integer(2)operator(\)) operator(*) integer(2)operator(;)
    reserved(end)operator(;)
preprocessor({$ELSE})
    ident(Exit)operator(;)
preprocessor({$ENDIF})
  reserved(end) reserved(else) reserved(begin)
    ident(SetShortcutIcon)operator(()ident(Node)operator(\);)
    ident(CurIcon) operator(:=) operator(()ident(CurIcon) reserved(div) integer(2)operator(\)) operator(*) integer(2)operator(;)
  reserved(end)operator(;)
  ident(NewIcon) operator(:=) ident(CurIcon)operator(;)

  ident(Info)operator(.)ident(ExcludeFlag)operator(()ident(nfDefect)operator(\);)
  ident(Info)operator(.)ident(ExcludeFlag)operator(()ident(nfReadOnly)operator(\);)

preprocessor({$IFDEF UNIKEY})
  ident(KeyHasChildren) operator(:=) ident(False)operator(;)

  reserved(if) ident(RootOfNode)operator(()ident(Node)operator(\).)ident(ImageIndex) operator(=) ident(iconHostUni) reserved(then) reserved(begin)
    ident(Uni) operator(:=) ident(UniOfNode)operator(()ident(Node)operator(\);)
    reserved(if) ident(Assigned)operator(()ident(Uni)operator(\)) reserved(then)
      reserved(try)
        ident(KeyHasChildren) operator(:=) ident(Uni)operator(.)ident(HasKeys)operator(;)
        reserved(if) ident(usReadOnly) operator(>=) ident(Uni)operator(.)ident(Skills) reserved(then)
          ident(OpenMode) operator(:=) ident(onReadOnly)
        reserved(else)
          ident(OpenMode) operator(:=) ident(onFull)operator(;)
      reserved(finally)
        ident(Uni)operator(.)ident(Free)operator(;)
      reserved(end)
    reserved(else)
      ident(OpenMode) operator(:=) ident(onError)operator(;)
  reserved(end) reserved(else) reserved(begin)
preprocessor({$ENDIF})
  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  reserved(try)
    ident(OpenMode) operator(:=) ident(OpenNode)operator(()ident(Reg)operator(,) ident(Node)operator(\);)
    ident(KeyHasChildren) operator(:=) ident(Reg)operator(.)ident(HasSubKeys)operator(;)
  reserved(finally)
    ident(Reg)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)
preprocessor({$IFDEF UNIKEY})
  reserved(end)operator(;)
preprocessor({$ENDIF})

  reserved(if) ident(OpenMode) operator(=) ident(onReadOnly) reserved(then)
    ident(Info)operator(.)ident(IncludeFlag)operator(()ident(nfReadOnly)operator(\);)

  reserved(if) ident(OpenMode) reserved(in) ident(onOK) reserved(then) reserved(begin)
    comment(//OK, could open)
    reserved(if) reserved(not) ident(Node)operator(.)ident(Expanded) reserved(then) reserved(begin)  comment(//Collapsed)
      reserved(if) ident(KeyHasChildren) reserved(then) reserved(begin)  comment(//HasSubKeys)
        reserved(if) reserved(not) ident(Node)operator(.)ident(HasChildren) reserved(then) reserved(begin)
          comment(//Update: Ensure HasChildren)
          reserved(if) ident(TakeNodeSelected) reserved(or) ident(Node)operator(.)ident(Selected) reserved(then)
            ident(TreeWin)operator(.)ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(Node)operator(,) string<delimiter(')delimiter(')>operator(\);)
        reserved(end)operator(;)
        comment(//Ensure Plus-Icon)
        ident(NewIcon) operator(:=) ident(CurIcon) operator(+) integer(1)operator(;)
      reserved(end) reserved(else) reserved(begin)
        comment(//Has still Children?)
        reserved(if) ident(Node)operator(.)ident(HasChildren) reserved(then)
          ident(Node)operator(.)ident(DeleteChildren)operator(;)
      reserved(end)operator(;)

    reserved(end) reserved(else) reserved(begin)             comment(//Expanded)
      comment(//HasSubKeys?)
      reserved(if) ident(KeyHasChildren) reserved(then) reserved(begin)
        comment(//OK)
        ident(NewIcon) operator(:=) ident(CurIcon) operator(+) integer(1)operator(;)
      reserved(end) reserved(else) reserved(begin)
        comment(//not OK --> update)
        ident(Node)operator(.)ident(Collapse)operator(()ident(True)operator(\);)
        ident(Node)operator(.)ident(DeleteChildren)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

  comment(//not OK, couldn't open)
  reserved(end) reserved(else) reserved(begin) comment(//defect)
    reserved(if) ident(Node)operator(.)ident(HasChildren) reserved(then)
      ident(Node)operator(.)ident(DeleteChildren)operator(;)
    ident(Info)operator(.)ident(IncludeFlag)operator(()ident(nfDefect)operator(\);)
  reserved(end)operator(;)

  reserved(if) ident(Node)operator(.)ident(ImageIndex) operator(<>) ident(iconHostUni) reserved(then) comment(//don't change icon of UniHosts)
    ident(Node)operator(.)ident(ImageIndex) operator(:=) ident(NewIcon)operator(;)

  ident(Info)operator(.)ident(IncludeFlag)operator(()ident(nfChecked)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  ident(MainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(,) ident(Key)operator(,) ident(Shift)operator(\);)
reserved(end)operator(;)

reserved(function) ident(ShortcutIndex)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Integer)operator(;)
comment(//If Node is a Shortcut,)
comment(//S. returns its index in the Shortcuts array)
comment(//else -1)
reserved(begin)
  reserved(if) ident(Node)operator(.)ident(Level) operator(>) integer(0) reserved(then) reserved(begin)
    ident(Result) operator(:=) operator(-)integer(1)operator(;)
  ident(Exit)operator(;) reserved(end)operator(;)

  reserved(for) ident(Result) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(Shortcuts)operator(\)) reserved(do)
    reserved(if) ident(Shortcuts)operator([)ident(Result)operator(].)ident(Node) operator(=) ident(Node) reserved(then) reserved(begin)
      ident(Exit)operator(;)
    reserved(end)operator(;)

  ident(Result) operator(:=) operator(-)integer(1)operator(;)
reserved(end)operator(;)

reserved(function) ident(TraceKey)operator(()reserved(const) ident(Path)operator(:) reserved(string)operator(;) ident(AllowedShortcutTypes)operator(:) ident(TUniHostTypes) operator(=)
  ident(uhNonSystemShortcuts)operator(\):) reserved(string)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(isAim)operator(:) ident(Boolean)operator(;)

  reserved(function) ident(NodeOkForTracing)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\):) ident(Boolean)operator(;)
  reserved(begin)
    ident(Result) operator(:=) ident(Assigned)operator(()ident(Node)operator(\)) reserved(and)
      operator(()ident(NodeInfo)operator(()ident(Node)operator(\).)ident(HostType) reserved(in) ident(AllowedShortcutTypes)operator(\);)
  reserved(end)operator(;)

reserved(begin)
  ident(Result) operator(:=) ident(MakeLongHKEY)operator(()ident(Path)operator(\);)
  reserved(repeat)
    ident(isAim) operator(:=) ident(True)operator(;)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(ShortCuts)operator(\)) reserved(do) reserved(begin)
      reserved(with) ident(Shortcuts)operator([)ident(i)operator(]) reserved(do)
        reserved(if) ident(NodeOkForTracing)operator(()ident(Node)operator(\)) reserved(and)
         ident(SameText)operator(()ident(UntilChar)operator(()ident(Result)operator(,) char<delimiter(')content(\\)delimiter(')>operator(\),) ident(Alias)operator(\)) reserved(then) reserved(begin)
          reserved(if) ident(Alias) operator(=) ident(RealPath) reserved(then)
            ident(Break)operator(;)
          ident(Delete)operator(()ident(Result)operator(,) integer(1)operator(,) ident(Length)operator(()ident(Alias)operator(\)\);)
          ident(Result) operator(:=) ident(RealPath) operator(+) ident(Result)operator(;)
          ident(isAim) operator(:=) ident(False)operator(;)
        ident(Break)operator(;) reserved(end)operator(;)
    reserved(end)operator(;)
  reserved(until) ident(isAim)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVKeyPress)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Char)operator(\);)
reserved(begin)
  reserved(if) operator(()ident(Key) operator(=) char<delimiter(')content(*)delimiter(')>operator(\)) reserved(and) ident(NoAsterisk) reserved(then) reserved(begin)
    ident(Key) operator(:=) char(#0)operator(;)
    ident(NoAsterisk) operator(:=) ident(False)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVAdvancedCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;)
  ident(Node)operator(:) ident(TTreeNode)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) ident(Stage)operator(:) ident(TCustomDrawStage)operator(;)
  reserved(var) ident(PaintImages)operator(,) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);)
reserved(var)
  ident(Rect)operator(:) ident(TRect)operator(;)
  ident(MainValueName)operator(:) reserved(string)operator(;)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
  ident(Info)operator(:) ident(TRegKeyInfo)operator(;)
  ident(PreviewPosX)operator(:) ident(Integer)operator(;)

  reserved(procedure) ident(DefaultIconPreview)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(\);)
  reserved(var)
    ident(Icon)operator(:) ident(HICON)operator(;)
    ident(IconFile)operator(:) reserved(string)operator(;)
  reserved(begin)
    reserved(if) operator(()ident(Node)operator(.)ident(Level) operator(=) integer(0)operator(\)) reserved(and) reserved(not) ident(RegTV)operator(.)ident(ShowLines) reserved(then)
      ident(Exit)operator(;)

    ident(IconFile) operator(:=) ident(Reg)operator(.)ident(ReadDefaultIcon)operator(;)
    reserved(if) ident(IconFile) operator(=) string<delimiter(')delimiter(')> reserved(then)
      ident(Exit)operator(;)

    ident(Icon) operator(:=) ident(GetIconFromFile)operator(()ident(ExpandString)operator(()ident(IconFile)operator(\)\);)
    reserved(if) ident(Icon) operator(=) integer(0) reserved(then)
      ident(Exit)operator(;)

    reserved(with) ident(Rect) reserved(do) reserved(begin)
      ident(Dec)operator(()ident(Left)operator(,) ident(TTreeView)operator(()ident(Sender)operator(\).)ident(Indent) operator(+) integer(16)operator(\);)
      ident(DrawIconEx)operator(()ident(Sender)operator(.)ident(Canvas)operator(.)ident(Handle)operator(,) ident(Left)operator(,) ident(Top)operator(,)
                 ident(Icon)operator(,) integer(16)operator(,) integer(16)operator(,)
                 integer(0)operator(,) integer(0)operator(,) ident(DI_NORMAL)operator(\);)
      ident(DestroyIcon)operator(()ident(Icon)operator(\);)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(procedure) ident(AddPreview)operator(()reserved(const) ident(PreviewText)operator(:) reserved(string)operator(;) ident(Color)operator(:) ident(TColor)operator(\);)
  reserved(begin)
    reserved(with) ident(Sender)operator(.)ident(Canvas) reserved(do) reserved(begin)
      ident(SetTextColor)operator(()ident(Handle)operator(,) ident(Color)operator(\);)
      ident(ExtTextOut)operator(()ident(Handle)operator(,) ident(PreviewPosX)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(1)operator(,) ident(TextFlags)operator(,) reserved(nil)operator(,)
        ident(PChar)operator(()ident(PreviewText)operator(\),) ident(Length)operator(()ident(PreviewText)operator(\),) reserved(nil)operator(\);)
      ident(Inc)operator(()ident(PreviewPosX)operator(,) ident(TextWidth)operator(()ident(PreviewText)operator(\)\);)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  reserved(if) ident(Stage) operator(<>) ident(cdPostPaint) reserved(then)
    ident(Exit)operator(;)

  ident(MainValueName) operator(:=) ident(PrefWin)operator(.)ident(MainPreviewE)operator(.)ident(Text)operator(;)

  ident(Rect) operator(:=) ident(Node)operator(.)ident(DisplayRect)operator(()ident(True)operator(\);)
  ident(PreviewPosX) operator(:=) ident(Rect)operator(.)ident(Right) operator(+) integer(5)operator(;)

  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(()ident(KEY_READ)operator(\);)
  reserved(try)
    reserved(if) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(Node)operator(\)) reserved(then) reserved(begin)
comment(//      Sender.Canvas.Font.Style := [];)
      reserved(if) ident(PrefWin)operator(.)ident(KeyInfoPreviewCB)operator(.)ident(Checked) reserved(and) ident(Reg)operator(.)ident(GetKeyInfo)operator(()ident(Info)operator(\)) reserved(then)
        reserved(with) ident(Info) reserved(do) reserved(begin)
          reserved(if) ident(NumSubKeys) operator(>) integer(0) reserved(then)
            ident(AddPreview)operator(()ident(IntToStr)operator(()ident(NumSubKeys)operator(\)) operator(+) string<delimiter(')content(k  )delimiter(')>operator(,) ident(clCyan)operator(\);)
          reserved(if) ident(NumValues) operator(>) integer(0) reserved(then)
            ident(AddPreview)operator(()ident(IntToStr)operator(()ident(NumValues)operator(\)) operator(+) string<delimiter(')content(v  )delimiter(')>operator(,) ident(clBrightPurple)operator(\);)
        reserved(end)operator(;)

      reserved(if) ident(PrefWin)operator(.)ident(MainPreviewCB)operator(.)ident(Checked) reserved(then)
        reserved(if) ident(Reg)operator(.)ident(ValueReallyExists)operator(()ident(MainValueName)operator(\)) reserved(then)
          ident(AddPreview)operator(()ident(DataPreviewOfContext)operator(()ident(Reg)operator(.)ident(ReadContext)operator(()ident(MainValueName)operator(\)\),) hex($00AAFFFF)operator(\);)
                                                         comment({clBrightYellow})
      reserved(if) ident(PrefWin)operator(.)ident(DefaultIconPreviewCB)operator(.)ident(Checked) reserved(then)
        ident(DefaultIconPreview)operator(()ident(Reg)operator(\);)
    reserved(end)operator(;)
  reserved(finally)
    ident(Reg)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)

  comment({if nfCopy in NodeInfo(Node\).Flags then begin
    //Node.StateIndex := 2;
    Brush.Style := bsClear;
    with Font do begin
      Style := [fsItalic, fsBold];
      Color := clRed;
    end;
    //TextOut(Rect.Left - 10, Rect.Top + 3, 'c'\);
  end;})
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RenameMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(RegTV)operator(.)ident(Selected)operator(.)ident(EditText)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(CopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(UserCopyKeyFlag) operator(:=) ident(True)operator(;)
  ident(MainWin)operator(.)ident(CopyPathClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(InsertPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(MainWin)operator(.)ident(InsertPathClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(RegTVGetImageIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(NodeInfo)operator(()ident(Node)operator(\).)ident(Checked) reserved(then)
    ident(CheckNode)operator(()ident(Node)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(CheckRegTVHotTrack)operator(;)
reserved(const)
  ident(FindCursorOfSwitch)operator(:) reserved(array)operator([)ident(Boolean)operator(]) reserved(of) ident(TCursor) operator(=) operator(()ident(crArrow)operator(,) ident(crHandPoint)operator(\);)
reserved(var)
  ident(NewHotTrack)operator(:) ident(Boolean)operator(;)
reserved(begin)
  ident(NewHotTrack) operator(:=) ident(ScrollON) reserved(xor) ident(PrefWin)operator(.)ident(KeysSingleClickCB)operator(.)ident(Checked)operator(;)
  reserved(if) ident(NewHotTrack) operator(=) ident(RegTV)operator(.)ident(HotTrack) reserved(then) ident(Exit)operator(;)

  reserved(with) ident(RegTV) reserved(do) reserved(begin)
    ident(HotTrack) operator(:=) ident(NewHotTrack)operator(;)
    ident(Cursor) operator(:=) ident(FindCursorOfSwitch)operator([)ident(HotTrack)operator(];)
    ident(Mouse)operator(.)ident(CursorPos) operator(:=) ident(Mouse)operator(.)ident(CursorPos)operator(;) comment(//update cursor)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(PasteKeyMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Src)operator(,) ident(Trg)operator(:) ident(TRegPath)operator(;)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  ident(Src) operator(:=) ident(RegPathOfStr)operator(()ident(Clipboard)operator(.)ident(AsText)operator(\);)
  ident(Trg) operator(:=) ident(CurKey)operator(()ident(uhNonSystemShortcuts)operator(\);)
  ident(Trg)operator(.)ident(Key) operator(:=) ident(Trg)operator(.)ident(Key) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(FromLastChar)operator(()ident(Src)operator(.)ident(Key)operator(,) char<delimiter(')content(\\)delimiter(')>operator(,) ident(True)operator(\);)

  ident(MoveKey)operator(()ident(Src)operator(,) ident(Trg)operator(,) ident(UserCopyKeyFlag)operator(\);)

  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)
  reserved(if) ident(Node)operator(.)ident(Expanded) reserved(then)
    ident(Node)operator(.)ident(Collapse)operator(()ident(False)operator(\);)
  ident(Node)operator(.)ident(Expanded) operator(:=) ident(False)operator(;)
  ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(\);)
  ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\);)

  reserved(if) reserved(not) ident(UserCopyKeyFlag) reserved(then)
    ident(RegTV)operator(.)ident(Repaint)operator(;) comment(// CheckNode(Node, False\);)

  ident(UserCopyKeyFlag) operator(:=) ident(True)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(CutPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(UserCopyKeyFlag) operator(:=) ident(False)operator(;)
  ident(MainWin)operator(.)ident(CopyPathClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(OpenNextLevel)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)

  reserved(procedure) ident(ExpandKeys)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)
  reserved(begin)
    ident(CheckNode)operator(()ident(Node)operator(,) ident(False)operator(,) ident(True)operator(\);)
    reserved(if) reserved(not) ident(Node)operator(.)ident(HasChildren) reserved(then)
      ident(Exit)operator(;)
    reserved(if) reserved(not) ident(Node)operator(.)ident(Expanded) reserved(then)
      ident(Node)operator(.)ident(Expand)operator(()ident(False)operator(\))
    reserved(else) reserved(begin)
      ident(Node) operator(:=) ident(Node)operator(.)ident(GetFirstChild)operator(;)
      reserved(while) ident(Assigned)operator(()ident(Node)operator(\)) reserved(do) reserved(begin)
        ident(ExpandKeys)operator(()ident(Node)operator(\);)
      ident(Node) operator(:=) ident(Node)operator(.)ident(GetNextSibling)operator(;) reserved(end)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(DoSmartExpand) operator(:=) ident(False)operator(;)
  ident(ExpandKeys)operator(()ident(Node)operator(\);)
  ident(DoSmartExpand) operator(:=) ident(True)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(EditShortcutMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(NewPath)operator(:) reserved(string)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
  ident(Shortcut)operator(:) ident(PKeyShortcut)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)
  reserved(if) ident(NodeInfo)operator(()ident(Node)operator(\).)ident(HostType) operator(<>) ident(uhUserShortcut) reserved(then)
    ident(Exit)operator(;)

  ident(i) operator(:=) ident(ShortcutIndex)operator(()ident(Node)operator(\);)
  reserved(if) ident(i) operator(=) operator(-)integer(1) reserved(then)
    ident(Exit)operator(;)

  reserved(with) ident(TIniFile)operator(.)ident(Create)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(\)) reserved(do)
    reserved(try)
      ident(NewPath) operator(:=) ident(ReadString)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Shortcuts)operator([)ident(i)operator(].)ident(Alias)operator(,) string<delimiter(')delimiter(')>operator(\);)
    reserved(finally)
      ident(Free)operator(;)
    reserved(end)operator(;)

  reserved(if) reserved(not) ident(InputQuery)operator(()string<delimiter(')content(Edit Shortcut)delimiter(')>operator(,) string<delimiter(')content(Shortcut to...)delimiter(')>operator(,) ident(NewPath)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(Node)operator(.)ident(Collapse)operator(()ident(False)operator(\);)
  ident(Shortcut) operator(:=) operator(@)ident(Shortcuts)operator([)ident(i)operator(];)
  ident(Shortcut)operator(.)ident(RealPath) operator(:=) ident(TraceKey)operator(()ident(NewPath)operator(\);)
  reserved(with) ident(TIniFile)operator(.)ident(Create)operator(()ident(PlutoDir) operator(+) string<delimiter(')content(Shortcuts.ini)delimiter(')>operator(\)) reserved(do)
    reserved(try)
      ident(WriteString)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(Shortcut)operator(.)ident(Alias)operator(,) ident(Shortcut)operator(.)ident(RealPath)operator(\);)
    reserved(finally)
      ident(Free)operator(;)
    reserved(end)operator(;)

  ident(RegTVChange)operator(()ident(Self)operator(,) ident(Node)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(SubKeylist1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)
reserved(begin)
  ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
  reserved(if) ident(OpenCurKey) reserved(then)
  reserved(try)
    ident(MainReg)operator(.)ident(GetKeyNames)operator(()ident(SL)operator(\);)
    reserved(if) ident(PrefWin)operator(.)ident(SortKeysCB)operator(.)ident(Checked) reserved(then)
      ident(SL)operator(.)ident(Sort)operator(;)
    ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(SL)operator(.)ident(Text)operator(;)
  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
    ident(SL)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(ValueNameslist1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)
reserved(begin)
  ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
  reserved(if) ident(OpenCurKey) reserved(then)
  reserved(try)
    ident(MainReg)operator(.)ident(GetValueNames)operator(()ident(SL)operator(\);)
      reserved(if) ident(PrefWin)operator(.)ident(SortKeysCB)operator(.)ident(Checked) reserved(then)
        ident(SL)operator(.)ident(Sort)operator(;)
      ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(SL)operator(.)ident(Text)operator(;)
  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
    ident(SL)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(KeyInfosMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(MessageDlg)operator(()ident(GetKeyInfos)operator(,) ident(mtInformation)operator(,) operator([)ident(mbOK)operator(],) integer(0)operator(\);)
reserved(end)operator(;)

reserved(function) ident(TTreeWin)operator(.)ident(GetKeyInfos)operator(:) reserved(string)operator(;)
reserved(const)
  ident(sErrorMsg) operator(=) string<delimiter(')content(Error! No: %d Msg: %s)delimiter(')>operator(;)

reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
  ident(Mode)operator(:) ident(TOpenNodeMode)operator(;)
  ident(Error)operator(:) ident(Integer)operator(;)
  ident(Info)operator(:) ident(TNodeInfo)operator(;)
  ident(Flag)operator(:) ident(TNodeFlag)operator(;)

  reserved(procedure) ident(Add)operator(()reserved(const) ident(S)operator(:) reserved(string)operator(\);)
  reserved(begin)
    ident(Result) operator(:=) ident(Result) operator(+) ident(S)operator(;)
  reserved(end)operator(;)

  reserved(procedure) ident(AddLn)operator(()reserved(const) ident(S)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);)
  reserved(begin)
    ident(Add)operator(()ident(S) operator(+) ident(EOL)operator(\);)
  reserved(end)operator(;)

  reserved(procedure) ident(AddNodeInfo)operator(()ident(Key)operator(:) ident(HKEY)operator(\);)
  reserved(var)
    ident(KeyInfo)operator(:) ident(TRegKeyInfo)operator(;)
    ident(Res)operator(:) ident(Integer)operator(;)
    ident(KeyAge)operator(:) ident(TDateTime)operator(;)
  reserved(begin)
    ident(FillChar)operator(()ident(KeyInfo)operator(,) ident(SizeOf)operator(()ident(TRegKeyInfo)operator(\),) integer(0)operator(\);)
    reserved(with) ident(KeyInfo) reserved(do) reserved(begin)
      ident(Res) operator(:=) ident(RegQueryInfoKey)operator(()ident(Reg)operator(.)ident(CurrentKey)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) reserved(nil)operator(,) operator(@)ident(NumSubKeys)operator(,)
        operator(@)ident(MaxSubKeyLen)operator(,) reserved(nil)operator(,) operator(@)ident(NumValues)operator(,) operator(@)ident(MaxValueLen)operator(,)
        operator(@)ident(MaxDataLen)operator(,) reserved(nil)operator(,) operator(@)ident(LastWriteTime)operator(\);)

      reserved(if) ident(Res) operator(=) ident(ERROR_SUCCESS) reserved(then) reserved(begin)
        ident(Add)operator(()ident(Format)operator(()
          string<delimiter(')content(Subkeys: %0:d)delimiter(')> operator(+) ident(EOL) operator(+)
          string<delimiter(')content(Values: %2:d)delimiter(')> operator(+) ident(EOL) operator(+)
          string<delimiter(')content(Max subkeys length: %1:d)delimiter(')> operator(+) ident(EOL) operator(+)
          string<delimiter(')content(Max value name length: %3:d)delimiter(')> operator(+) ident(EOL) operator(+)
          string<delimiter(')content(Max data length: %4:d)delimiter(')> operator(+) ident(EOL) operator(+)
          string<delimiter(')delimiter(')>operator(,)
          operator([)ident(NumSubKeys)operator(,) ident(MaxSubKeyLen)operator(,) ident(NumValues)operator(,) ident(MaxValueLen)operator(,) ident(MaxDataLen)operator(]\)\);)
        ident(KeyAge) operator(:=) ident(DateTimeOfFileTime)operator(()ident(LastWriteTime)operator(\);)
        reserved(if) ident(KeyAge) operator(>) integer(0) reserved(then)
          ident(AddLn)operator(()string<delimiter(')content(Last write time: )delimiter(')> operator(+) ident(DateTimeToStr)operator(()ident(KeyAge)operator(\)\);)
      reserved(end) reserved(else)
        ident(AddLn)operator(()string<delimiter(')content(Couldn)char('')content(t get key info.)delimiter(')> operator(+) ident(EOL) operator(+)
          string<delimiter(')content(Error Code: )delimiter(')> operator(+) ident(IntToStr)operator(()ident(Res)operator(\)) operator(+) ident(EOL) operator(+)
          string<delimiter(')content(Message: )delimiter(')> operator(+) ident(SysErrorMessage)operator(()ident(Res)operator(\)\);)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;)
  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)

  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(()ident(KEY_READ)operator(\);)
  reserved(try)
    reserved(try)
      ident(Error) operator(:=) ident(OpenNodeError)operator(()ident(Reg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(,) ident(Mode)operator(\);)

      reserved(case) ident(Mode) reserved(of)
      ident(onFull)operator(:) ident(AddLn)operator(()string<delimiter(')content(Full Access)delimiter(')>operator(\);)
      ident(onReadOnly)operator(:) ident(AddLn)operator(()string<delimiter(')content(Read only)delimiter(')>operator(\);)
      ident(onError)operator(:)
        ident(AddLn)operator(()ident(Format)operator(()ident(sErrorMsg)operator(,) operator([)ident(Error)operator(,) ident(SysErrorMessage)operator(()ident(Error)operator(\)]\)\);)
      ident(onNodeNil)operator(:) ident(AddLn)operator(()string<delimiter(')content(Node is nil!)delimiter(')>operator(\);)

      reserved(else)
        ident(AddLn)operator(()string<delimiter(')content(Unknown Mode: )delimiter(')> operator(+) ident(IntToStr)operator(()ident(Integer)operator(()ident(Mode)operator(\)\)\);)
      reserved(end)operator(;)

      reserved(if) ident(Mode) reserved(in) ident(onOK) reserved(then)
        ident(AddNodeInfo)operator(()ident(Reg)operator(.)ident(CurrentKey)operator(\);)

    reserved(except)
      directive(on) ident(E)operator(:) ident(Exception) reserved(do) reserved(begin)
        ident(Error) operator(:=) ident(GetLastError)operator(;)
        reserved(if) ident(Error) operator(<>) ident(ERROR_SUCCESS) reserved(then)
          ident(AddLn)operator(()ident(Format)operator(()string<delimiter(')content(Error! No: %d Msg: %s)delimiter(')>operator(,) operator([)ident(Error)operator(,) ident(SysErrorMessage)operator(()ident(Error)operator(\)]\)\))
        reserved(else)
          ident(AddLn)operator(()ident(E)operator(.)ident(Message)operator(\);)
      reserved(end)operator(;)
    reserved(end)operator(;)
  reserved(finally)
    ident(Reg)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)

  reserved(if) ident(MurphyMode) reserved(then) reserved(begin)
    ident(AddLn)operator(()string<delimiter(')content([MM] ImageIndex: )delimiter(')> operator(+) ident(IntToStr)operator(()ident(Node)operator(.)ident(ImageIndex)operator(\)\);)
    ident(Info) operator(:=) ident(NodeInfo)operator(()ident(Node)operator(\);)

    reserved(if) ident(Info)operator(.)ident(HostType) reserved(in) operator([)ident(uhNone)operator(..)ident(High)operator(()ident(HostTypeStrings)operator(\)]) reserved(then)
      ident(AddLn)operator(()string<delimiter(')content([MM] HostType: )delimiter(')> operator(+) ident(HostTypeStrings)operator([)ident(Info)operator(.)ident(HostType)operator(]\))
    reserved(else)
      ident(AddLn)operator(()string<delimiter(')content([MM] Unknown HostType: )delimiter(')> operator(+) ident(IntToStr)operator(()ident(Integer)operator(()ident(Info)operator(.)ident(HostType)operator(\)\)\);)
    ident(Add)operator(()string<delimiter(')content([MM] Flags: )delimiter(')>operator(\);)
    reserved(for) ident(Flag) operator(:=) ident(Low)operator(()ident(TNodeFlag)operator(\)) reserved(to) ident(High)operator(()ident(TNodeFlag)operator(\)) reserved(do)
      reserved(if) ident(Flag) reserved(in) ident(Info)operator(.)ident(Flags) reserved(then)
        ident(Add)operator(()ident(NodeFlagStrings)operator([)ident(Flag)operator(]) operator(+) char<delimiter(')content( )delimiter(')>operator(\);)
    ident(AddLn)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(ExportAsRegClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)

  reserved(procedure) ident(ExportAsReg4)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(const) ident(FileName)operator(:) reserved(string)operator(\);)
  reserved(var)
    ident(Reg4Writer)operator(:) ident(TReg4Writer)operator(;)
  reserved(begin)
    ident(Reg4Writer) operator(:=) ident(TReg4Writer)operator(.)ident(Create)operator(()ident(tpNormal)operator(,) ident(FileName)operator(,)
     ident(TraceKey)operator(()ident(PathOfNode)operator(()ident(Node)operator(\)\),) ident(Reg)operator(.)ident(DeliverKey)operator(\);)
    reserved(with) ident(Reg4Writer) reserved(do) reserved(begin)
      ident(OnTerminate) operator(:=) ident(Reg4WriterTerminate)operator(;)
      reserved(try)
        ident(AddHint)operator(()ident(Format)operator(()string<delimiter(')content(starting .reg-export: %s...)delimiter(')>operator(,)
          operator([)ident(Root) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(Path)operator(]\)\);)
        ident(Resume)operator(;)
      reserved(except)
        ident(Free)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)
    ident(AddToLastHint)operator(()string<delimiter(')content(started.)delimiter(')>operator(\);)
  reserved(end)operator(;)


  reserved(procedure) ident(ExportAsHive)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(const) ident(FileName)operator(:) reserved(string)operator(\);)
  reserved(begin)
    reserved(if) ident(Reg)operator(.)ident(SaveKey)operator(()string<delimiter(')delimiter(')>operator(,) ident(FileName)operator(\)) reserved(then)
      ident(AddHint)operator(()string<delimiter(')content(hive export successfull.)delimiter(')>operator(\))
    reserved(else)
      ident(AddHint)operator(()ident(Format)operator(()string<delimiter(')content(hive export failed: %s)delimiter(')>operator(,)
        operator([)ident(SysErrorMessage)operator(()ident(LastSuccessRes)operator(\)]\)\);)
  reserved(end)operator(;)

reserved(begin)
  ident(Node) operator(:=) ident(RegTV)operator(.)ident(Selected)operator(;)
  reserved(with) ident(ExportD) reserved(do) reserved(begin)
    ident(FileName) operator(:=) ident(MakeValidFileName)operator(()ident(Node)operator(.)ident(Text)operator(,) string<delimiter(')content(key)delimiter(')>operator(\);)

    reserved(if) ident(Execute) reserved(then) reserved(begin)
      ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
      reserved(try)
        reserved(if) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(Node)operator(\)) reserved(then) reserved(begin)
          reserved(if) ident(FileExists)operator(()ident(FileName)operator(\)) reserved(and) operator(()ident(mrYes)operator(=)ident(MessageDlg)operator(()
           string<delimiter(')content(File already exists.)delimiter(')> operator(+) ident(EOL) operator(+)
           string<delimiter(')content(Delete existing file?)delimiter(')>operator(,)
           ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)\)) reserved(then) reserved(begin)
            ident(FileSetAttr)operator(()ident(FileName)operator(,) integer(0)operator(\);)
            ident(DeleteFile)operator(()ident(FileName)operator(\);)
          reserved(end)operator(;)
          reserved(case) ident(FilterIndex) reserved(of)
          integer(1)operator(:) ident(ExportAsReg4)operator(()ident(Reg)operator(,) ident(FileName)operator(\);)
          integer(2)operator(:) ident(ExportAsHive)operator(()ident(Reg)operator(,) ident(FileName)operator(\);)
          reserved(else)
            ident(ShowMessage)operator(()ident(Format)operator(()string<delimiter(')content(Wrong Filter: %d)delimiter(')>operator(,) operator([)ident(FilterIndex)operator(]\)\);)
          reserved(end)operator(;)
        reserved(end)operator(;)
      reserved(finally)
        ident(Reg)operator(.)ident(Free)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);)
reserved(begin)
comment(//  Action := caNone;)
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(Load)operator(;)
reserved(var)
  ident(NodeHKLM)operator(,) ident(NodeHKU)operator(,) ident(NodeHKDD)operator(,) ident(NodeHKPD)operator(:) ident(TTreeNode)operator(;)
  ident(NodeHostReg)operator(:) ident(TTreeNode)operator(;)

  reserved(procedure) ident(LoadShortcuts)operator(()ident(FileName)operator(:) reserved(string)operator(;) ident(HostType)operator(:) ident(TUniHostType)operator(\);)
  reserved(var)
    ident(i)operator(:) ident(Integer)operator(;)
    ident(SL)operator(:) ident(TStringList)operator(;)
    ident(ShortcutIni)operator(:) ident(TIniFile)operator(;)
  reserved(begin)
    reserved(if) reserved(not) ident(FileEx)operator(()ident(FileName)operator(\)) reserved(then) reserved(begin)
      ident(AddToLastHint)operator(()string<delimiter(')content(not found:)delimiter(')>operator(\);)
      ident(AddHint)operator(()ident(FileName)operator(\);)
    ident(Exit) reserved(end)operator(;)

    ident(ShortcutIni) operator(:=) ident(TIniFile)operator(.)ident(Create)operator(()ident(FileName)operator(\);)
    ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)

    reserved(try)
      ident(ShortcutIni)operator(.)ident(ReadSectionValues)operator(()string<delimiter(')content(Shortcuts)delimiter(')>operator(,) ident(SL)operator(\);)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do)
        ident(AddShortcut)operator(()ident(SL)operator(.)ident(Names)operator([)ident(i)operator(],) ident(SL)operator(.)ident(Values)operator([)ident(SL)operator(.)ident(Names)operator([)ident(i)operator(]],) ident(iconShortcut)operator(,)
          ident(HostType)operator(\);)
      ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);)
    reserved(finally)
      ident(SL)operator(.)ident(Free)operator(;)
      ident(ShortcutIni)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(NodeHostReg) operator(:=) reserved(nil)operator(;)

  ident(AddHint)operator(()string<delimiter(')content(Creating Hosts...)delimiter(')>operator(\);)
  ident(RootNodes) operator(:=) ident(TList)operator(.)ident(Create)operator(;)
  ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_LOCAL_MACHINE)delimiter(')>operator(\);)
  ident(NodeHKLM) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(NodeHostReg)operator(,) string<delimiter(')content(HKEY_LOCAL_MACHINE)delimiter(')>operator(\);)
  ident(SetTNImage)operator(()ident(NodeHKLM)operator(,) ident(iconHKLM)operator(\);)
  ident(NodeInfo)operator(()ident(NodeHKLM)operator(\).)ident(HostType) operator(:=) ident(uhReg)operator(;)
  ident(RootNodes)operator(.)ident(Add)operator(()ident(NodeHKLM)operator(\);)

  ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_USERS)delimiter(')>operator(\);)
  ident(NodeHKU) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()ident(NodeHostReg)operator(,) string<delimiter(')content(HKEY_USERS)delimiter(')>operator(\);)
  ident(SetTNImage)operator(()ident(NodeHKU)operator(,) ident(iconHKU)operator(\);)
  ident(NodeInfo)operator(()ident(NodeHKU)operator(\).)ident(HostType) operator(:=) ident(uhReg)operator(;)
  ident(RootNodes)operator(.)ident(Add)operator(()ident(NodeHKU)operator(\);)

  ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_CURRENT_USER)delimiter(')>operator(\);)
  reserved(if) ident(RegRealPath)operator(()string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')>operator(\)) operator(=) string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')> reserved(then)
  comment(//could not dereference hkcu)
    ident(AddShortcut)operator(()string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')>operator(,) string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')>operator(,)
      ident(iconHKCU)operator(,) ident(uhReg)operator(\))
  reserved(else)
    ident(AddShortcut)operator(()string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')>operator(,) ident(RegRealPath)operator(()string<delimiter(')content(HKEY_CURRENT_USER)delimiter(')>operator(\),)
      ident(iconHKCU)operator(,) ident(uhSystemShortcut)operator(\);)

  ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_CURRENT_CONFIG)delimiter(')>operator(\);)
  ident(AddShortcut)operator(()string<delimiter(')content(HKEY_CURRENT_CONFIG)delimiter(')>operator(,) ident(RegRealPath)operator(()string<delimiter(')content(HKEY_CURRENT_CONFIG)delimiter(')>operator(\),)
    ident(iconHKCC)operator(,) ident(uhSystemShortcut)operator(\);)

  ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_CLASSES_ROOT)delimiter(')>operator(\);)
  ident(AddShortcut)operator(()string<delimiter(')content(HKEY_CLASSES_ROOT)delimiter(')>operator(,) ident(RegRealPath)operator(()string<delimiter(')content(HKEY_CLASSES_ROOT)delimiter(')>operator(\),)
    ident(iconHKCR)operator(,) ident(uhSystemShortcut)operator(\);)

  ident(MainReg)operator(.)ident(RootKey) operator(:=) ident(HKEY_DYN_DATA)operator(;)
  reserved(if) ident(MainReg)operator(.)ident(OpenKeyReadOnly)operator(()string<delimiter(')delimiter(')>operator(\)) reserved(then) reserved(begin)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
    ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_DYN_DATA)delimiter(')>operator(\);)
    ident(NodeHKDD) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()reserved(nil)operator(,) string<delimiter(')content(HKEY_DYN_DATA)delimiter(')>operator(\);)
    ident(NodeInfo)operator(()ident(NodeHKDD)operator(\).)ident(HostType) operator(:=) ident(uhReg)operator(;)
    ident(NodeInfo)operator(()ident(NodeHKDD)operator(\).)ident(IncludeFlag)operator(()ident(nfReadOnly)operator(\);)
    ident(SetTNImage)operator(()ident(NodeHKDD)operator(,) ident(iconHKDD)operator(\);)
    ident(RootNodes)operator(.)ident(Add)operator(()ident(NodeHKDD)operator(\);)
  reserved(end)operator(;)

  ident(MainReg)operator(.)ident(RootKey) operator(:=) ident(HKEY_PERFORMANCE_DATA)operator(;)
  reserved(if) ident(MainReg)operator(.)ident(OpenKeyReadOnly)operator(()string<delimiter(')delimiter(')>operator(\)) reserved(then) reserved(begin)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
    ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Hosts...HKEY_PERFORMANCE_DATA)delimiter(')>operator(\);)
    ident(NodeHKPD) operator(:=) ident(RegTV)operator(.)ident(Items)operator(.)ident(AddChild)operator(()reserved(nil)operator(,) string<delimiter(')content(HKEY_PERFORMANCE_DATA)delimiter(')>operator(\);)
    ident(NodeInfo)operator(()ident(NodeHKPD)operator(\).)ident(HostType) operator(:=) ident(uhReg)operator(;)
    ident(SetTNImage)operator(()ident(NodeHKPD)operator(,) ident(iconHKPD)operator(\);)
    ident(RootNodes)operator(.)ident(Add)operator(()ident(NodeHKPD)operator(\);)
  reserved(end)operator(;)

  ident(ChangeLastHint)operator(()string<delimiter(')content(Creating Host...OK)delimiter(')>operator(\);)

  ident(AddHint)operator(()string<delimiter(')content(Loading Standard Shortcuts...)delimiter(')>operator(\);)
  ident(LoadShortcuts)operator(()ident(PlutoDir) operator(+) ident(StandardShortcutsFileName)operator(,) ident(uhStandardShortcut)operator(\);)

  ident(AddHint)operator(()string<delimiter(')content(Loading User Shortcuts...)delimiter(')>operator(\);)
  ident(LoadShortcuts)operator(()ident(PlutoDir) operator(+) ident(ShortcutsFileName)operator(,) ident(uhUserShortcut)operator(\);)

preprocessor({$IFDEF UNIKEY})
  ident(AddShortcut)operator(()string<delimiter(')content(Uni)delimiter(')>operator(,) string<delimiter(')delimiter(')>operator(,) ident(iconHostUni)operator(\);)
preprocessor({$ENDIF})
reserved(end)operator(;)

reserved(procedure) ident(TTreeWin)operator(.)ident(Reg4WriterTerminate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(Sender) reserved(as) ident(TRegFileWriter) reserved(do)
    ident(AddHint)operator(()ident(Format)operator(()string<delimiter(')content(.reg-export finished (%0.2f s\): %s)delimiter(')>operator(,)
      operator([)ident(Clk)operator(.)ident(SecsPassed)operator(,) ident(Root) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(Path)operator(]\)\);)
reserved(end)operator(;)

reserved(end)operator(.)
reserved(unit) ident(valuesU)operator(;)

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Variants)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,)
  ident(ComCtrls)operator(,) ident(Menus)operator(,) ident(Clipbrd)operator(,) ident(XReg)operator(,) ident(CompEx)operator(,) ident(Math)operator(,) ident(YTools)operator(,) ident(Dialogs)operator(,) ident(YTypes)operator(,)
  ident(PlutoConst)operator(,) ident(keybrd)operator(,) ident(ImgList)operator(,) ident(clock)operator(;)

reserved(type)
  ident(TValuesWin) operator(=) reserved(class)operator(()ident(TForm)operator(\))
    ident(ValueListPU)operator(:) ident(TPopupMenu)operator(;)
    ident(NewStringMI)operator(:) ident(TMenuItem)operator(;)
    ident(NewDWORDMI)operator(:) ident(TMenuItem)operator(;)
    ident(NewBinaryMI)operator(:) ident(TMenuItem)operator(;)
    ident(ConvertToMI)operator(:) ident(TMenuItem)operator(;)
    ident(ConvStringMI)operator(:) ident(TMenuItem)operator(;)
    ident(ConvDWORDMI)operator(:) ident(TMenuItem)operator(;)
    ident(ConvBinaryMI)operator(:) ident(TMenuItem)operator(;)
    ident(ValueList)operator(:) ident(TListView)operator(;)
    ident(DeleteMI)operator(:) ident(TMenuItem)operator(;)
    ident(N1)operator(:) ident(TMenuItem)operator(;)
    ident(RenameMI)operator(:) ident(TMenuItem)operator(;)
    ident(NewElseMI)operator(:) ident(TMenuItem)operator(;)
    ident(NewMultiStringMI)operator(:) ident(TMenuItem)operator(;)
    ident(REGNONE1)operator(:) ident(TMenuItem)operator(;)
    ident(LINK1)operator(:) ident(TMenuItem)operator(;)
    ident(NewExpandStringMI)operator(:) ident(TMenuItem)operator(;)
    ident(N3BINARY1)operator(:) ident(TMenuItem)operator(;)
    ident(N4DWORD1)operator(:) ident(TMenuItem)operator(;)
    ident(N4DWORDLITTLEEDIAN1)operator(:) ident(TMenuItem)operator(;)
    ident(NewBigEndianMI)operator(:) ident(TMenuItem)operator(;)
    ident(N6LINK1)operator(:) ident(TMenuItem)operator(;)
    ident(N7MULTISZ1)operator(:) ident(TMenuItem)operator(;)
    ident(RESOURCELIST1)operator(:) ident(TMenuItem)operator(;)
    ident(N9FULLRESOURCEDESCRIPTOR1)operator(:) ident(TMenuItem)operator(;)
    ident(ARESOURCEREQUIREMENTSLIST1)operator(:) ident(TMenuItem)operator(;)
    ident(NewDefaultValueMI)operator(:) ident(TMenuItem)operator(;)
    ident(EditMI)operator(:) ident(TMenuItem)operator(;)
    ident(EditBinaryMI)operator(:) ident(TMenuItem)operator(;)
    ident(N3)operator(:) ident(TMenuItem)operator(;)
    ident(CopyDataPreviewMI)operator(:) ident(TMenuItem)operator(;)
    ident(DublicateMI)operator(:) ident(TMenuItem)operator(;)
    ident(MultiString1)operator(:) ident(TMenuItem)operator(;)
    ident(ZeromizeMI)operator(:) ident(TMenuItem)operator(;)
    ident(N4)operator(:) ident(TMenuItem)operator(;)
    ident(CopyPathMI)operator(:) ident(TMenuItem)operator(;)
    ident(TakeAsMainValueMI)operator(:) ident(TMenuItem)operator(;)
    ident(SelectAllMI)operator(:) ident(TMenuItem)operator(;)
    ident(InvertSelectionMI)operator(:) ident(TMenuItem)operator(;)
    reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(InitListColumnTags)operator(;)

    reserved(procedure) ident(NewStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(NewDWORDMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(NewBinaryMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ConvertValue)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(procedure) ident(CreateValue)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\);)
    reserved(procedure) ident(ZeromizeValue)operator(;)
    reserved(procedure) ident(DeleteValue)operator(;)
    reserved(procedure) ident(CloneValue)operator(;)
    reserved(function) ident(TryRenameValue)operator(()ident(OldName)operator(:) reserved(string)operator(;) reserved(var) ident(NewName)operator(:) reserved(string)operator(\):) ident(Boolean)operator(;)

    reserved(procedure) ident(ValueListChange)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) ident(Change)operator(:) ident(TItemChange)operator(\);)
    reserved(procedure) ident(ValueListCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomListView)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(ValueListDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ValueListEditing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) reserved(var) ident(AllowEdit)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(ValueListEdited)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) reserved(var) ident(S)operator(:) ident(String)operator(\);)
    reserved(procedure) ident(ValueListKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(ValueListResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(function) ident(UpdateValue)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;)
    reserved(procedure) ident(UpdateValues)operator(()ident(SelectedOnly)operator(:) ident(Boolean) operator(=) ident(False)operator(\);)
    reserved(procedure) ident(Reload)operator(()ident(JumpToNewValue)operator(:) ident(Boolean) operator(=) ident(False)operator(;) ident(ValueName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);)
    reserved(procedure) ident(LoadValues)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(\);)

    reserved(function) ident(AddValue)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) ident(AppendInfos)operator(:) ident(Boolean) operator(=) ident(True)operator(\):) ident(TListItem)operator(;)
    reserved(procedure) ident(ValueListPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(ValueListDeletion)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(\);)
    reserved(procedure) ident(DeleteMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(RenameMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(NewBigEndianMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(NewExpandStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(NewMultiStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(NewStrangeTypeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(NewDefaultValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ValueListChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) ident(Change)operator(:) ident(TItemChange)operator(;) reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(ValueListMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
    reserved(procedure) ident(EditBinaryMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(EditMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ValueListCustomDrawSubItem)operator(()ident(Sender)operator(:) ident(TCustomListView)operator(;) ident(Item)operator(:) ident(TListItem)operator(;) ident(SubItem)operator(:) ident(Integer)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(ValueListCompare)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item1)operator(,) ident(Item2)operator(:) ident(TListItem)operator(;) ident(Data)operator(:) ident(Integer)operator(;) reserved(var) ident(Compare)operator(:) ident(Integer)operator(\);)
    reserved(procedure) ident(ValueListColumnClick)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Column)operator(:) ident(TListColumn)operator(\);)
    reserved(procedure) ident(DublicateMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CopyDataPreviewMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CopyDataPreview)operator(;)
    reserved(procedure) ident(ZeromizeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(function) ident(FindItemByRealName)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(\):) ident(Integer)operator(;)

    reserved(function) ident(FocusItem)operator(()ident(ARealValueName)operator(:) reserved(string)operator(;)
      ident(FocusValueList)operator(:) ident(Boolean) operator(=) ident(False)operator(\):) ident(Boolean)operator(;)
    reserved(procedure) ident(TakeAsMainValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);)
    reserved(procedure) ident(ValueListClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CheckValueListHotTrack)operator(;)
    reserved(procedure) ident(SelectAllMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(InvertSelectionMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormDestroy)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
  directive(private)
    ident(ValueLabelClicked)operator(:) ident(Boolean)operator(;)
    ident(SortBy)operator(:) ident(TValueListColumn)operator(;)
    ident(SortByColumn)operator(:) ident(TListColumn)operator(;)
    ident(SubItemIndex)operator(:) reserved(array)operator([)ident(TValueListColumn)operator(]) reserved(of) ident(Integer)operator(;)
  directive(public)
    ident(ValueNames)operator(:) ident(TStringList)operator(;)
    ident(ValuesCommon)operator(:) ident(Boolean)operator(;)
    ident(ValueCommonType)operator(:) ident(TRegDataType)operator(;)
 reserved(end)operator(;)

reserved(var)
  ident(ValuesWin)operator(:) ident(TValuesWin)operator(;)
  ident(ValueList)operator(:) ident(TListView)operator(;)

  ident(DefaultValueCaption)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(;)

reserved(function) ident(ItemIsDefaultValue)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;)
reserved(function) ident(RealValueName)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) reserved(string)operator(;)
reserved(procedure) ident(SetRealValueName)operator(()ident(Item)operator(:) ident(TListItem)operator(;) ident(Caption)operator(:) reserved(string)operator(\);)
reserved(function) ident(IconOfDataType)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\):) ident(Integer)operator(;)
reserved(function) ident(IsMainValue)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;)

reserved(function) ident(ColorOfDataType)operator(()ident(DataType)operator(:) ident(TRegDataType)operator(;)
  ident(DefaultColor)operator(:) ident(TColor) operator(=) ident(clWhite)operator(\):) ident(TColor)operator(;)
reserved(function) ident(DataPreviewOfContext)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)

reserved(function) ident(ValueDataSize)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)
reserved(function) ident(ValueDataType)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)
reserved(function) ident(ValueDataPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)
reserved(function) ident(ValueTypeIcon)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) ident(Integer)operator(;)

reserved(function) ident(StrOfRegDataType)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\):) reserved(string)operator(;)

reserved(implementation)

reserved(uses) ident(PlutoMain)operator(,) ident(TreeU)operator(,) ident(WorkU)operator(,) ident(PrefU)operator(;)

preprocessor({$R *.dfm})

reserved(function) ident(ItemIsDefaultValue)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(Item)operator(.)ident(Data) operator(=) ident(Pointer)operator(()ident(DefaultValueFlag)operator(\);)
reserved(end)operator(;)

reserved(function) ident(RealValueName)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) reserved(string)operator(;)
reserved(begin)
  reserved(if) ident(ItemIsDefaultValue)operator(()ident(Item)operator(\)) reserved(then)
    ident(Result) operator(:=) string<delimiter(')delimiter(')>
  reserved(else)
    ident(Result) operator(:=) ident(Item)operator(.)ident(Caption)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(SetRealValueName)operator(()ident(Item)operator(:) ident(TListItem)operator(;) ident(Caption)operator(:) reserved(string)operator(\);)
reserved(begin)
  reserved(if) ident(Caption) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin)
    ident(Item)operator(.)ident(Caption) operator(:=) ident(DefaultValueCaption)operator(;)
    ident(Item)operator(.)ident(Data) operator(:=) ident(Pointer)operator(()ident(DefaultValueFlag)operator(\);)
  reserved(end) reserved(else) reserved(begin)
    ident(Item)operator(.)ident(Caption) operator(:=) ident(Caption)operator(;)
    ident(Item)operator(.)ident(Data) operator(:=) reserved(nil)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(IsMainValue)operator(()ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(False)operator(;)
  reserved(if) ident(csDestroying) reserved(in) ident(PrefWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)
    
  ident(Result) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\)) operator(=) ident(PrefWin)operator(.)ident(MainPreviewE)operator(.)ident(Text)operator(;)
reserved(end)operator(;)

reserved(function) ident(ColorOfDataType)operator(()ident(DataType)operator(:) ident(TRegDataType)operator(;)
  ident(DefaultColor)operator(:) ident(TColor) operator(=) ident(clWhite)operator(\):) ident(TColor)operator(;)
reserved(begin)
       reserved(if) ident(DataType) reserved(in) ident(rdStringTypes) reserved(then) ident(Result) operator(:=) ident(clBrightRed)
  reserved(else) reserved(if) ident(DataType) operator(=)  ident(rdMultiString) reserved(then) ident(Result) operator(:=) ident(clBrightPurple)
  reserved(else) reserved(if) ident(DataType) reserved(in) ident(rdCardTypes)   reserved(then) ident(Result) operator(:=) ident(clBrightBlue)
  reserved(else) reserved(if) ident(DataType) operator(=)  ident(rdBinary)      reserved(then) ident(Result) operator(:=) ident(clBrightGreen)
  reserved(else) ident(Result) operator(:=) ident(DefaultColor)operator(;)
reserved(end)operator(;)

reserved(function) ident(StrOfRegDataType)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\):) reserved(string)operator(;)
reserved(const)
  ident(RegDataTypeStrings)operator(:) reserved(array)operator([)ident(rdNone)operator(..)ident(rdLastType)operator(]) reserved(of) reserved(string) operator(=) operator(()
    string<delimiter(')content(NONE)delimiter(')>operator(,)
    string<delimiter(')content(SZ)delimiter(')>operator(,)
    string<delimiter(')content(EXPAND_SZ)delimiter(')>operator(,)
    string<delimiter(')content(BINARY)delimiter(')>operator(,)
    string<delimiter(')content(DWORD)delimiter(')>operator(,)
    string<delimiter(')content(DWORD_BIG_ENDIAN)delimiter(')>operator(,)
    string<delimiter(')content(LINK)delimiter(')>operator(,)
    string<delimiter(')content(MULTI_SZ)delimiter(')>operator(,)
    string<delimiter(')content(RESOURCE_LIST)delimiter(')>operator(,)
    string<delimiter(')content(FULL_RESOURCE_DESCRIPTOR)delimiter(')>operator(,)
    string<delimiter(')content(RESOURCE_REQUIREMENTS_LIST)delimiter(')>operator(,)
    string<delimiter(')content(QUAD_WORD)delimiter(')>
  operator(\);)
reserved(begin)
  reserved(if) ident(Typ) reserved(in) operator([)ident(rdNone)operator(..)ident(rdLastType)operator(]) reserved(then)
    ident(Result) operator(:=) ident(RegDataTypeStrings)operator([)ident(Typ)operator(])
  reserved(else)
    ident(Result) operator(:=) ident(IntToStr)operator(()ident(Typ)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(NewStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CreateValue)operator(()ident(rdString)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(NewDWORDMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CreateValue)operator(()ident(rdCardinal)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(NewBinaryMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CreateValue)operator(()ident(rdBinary)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(CreateValue)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\);)
reserved(var)
  ident(Item)operator(:) ident(TListItem)operator(;)
  ident(ValueName)operator(:) reserved(string)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(SL)operator(:) ident(TStringList)operator(;)
reserved(begin)
  reserved(if) ident(csDestroying) reserved(in) operator(()ident(TreeWin)operator(.)ident(ComponentState) operator(+) ident(MainWin)operator(.)ident(ComponentState)operator(\)) reserved(then)
    ident(Exit)operator(;)
    
  reserved(if) ident(TreeWin)operator(.)ident(CantWrite) reserved(then)
    ident(Exit)operator(;)

  reserved(with) ident(MainReg) reserved(do) reserved(begin)
    reserved(try)
      ident(OpenCurKey)operator(;)

      ident(ValueName) operator(:=) string<delimiter(')content(New)delimiter(')>operator(;) comment(// find free name)
      ident(i) operator(:=) integer(0)operator(;)
      reserved(while) ident(ValueExists)operator(()ident(ValueName)operator(\)) reserved(do) reserved(begin)
        ident(Inc)operator(()ident(i)operator(\);)
        ident(ValueName) operator(:=) string<delimiter(')content(New )delimiter(')> operator(+) ident(IntToStr)operator(()ident(i)operator(\);)
      reserved(end)operator(;)

      reserved(case) ident(Typ) reserved(of)
        ident(rdString)operator(:) reserved(begin)
            ident(WriteString)operator(()ident(ValueName)operator(,) string<delimiter(')delimiter(')>operator(\);)
          reserved(end)operator(;)
        ident(rdExpandString)operator(:) reserved(begin)
            ident(WriteExpandString)operator(()ident(ValueName)operator(,) string<delimiter(')delimiter(')>operator(\);)
          reserved(end)operator(;)
        ident(rdCardinal)operator(:) reserved(begin)
            ident(WriteCardinal)operator(()ident(ValueName)operator(,) integer(0)operator(\);)
          reserved(end)operator(;)
        ident(rdCardBigEndian)operator(:) reserved(begin)
            ident(WriteCardinal)operator(()ident(ValueName)operator(,) integer(0)operator(,) ident(True)operator(\);)
          reserved(end)operator(;)
        ident(rdMultiString)operator(:) reserved(begin)
            ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
            ident(WriteMultiString)operator(()ident(ValueName)operator(,) ident(SL)operator(\);)
            ident(SL)operator(.)ident(Free)operator(;)
          reserved(end)operator(;)
        ident(rdBinary)operator(:) reserved(begin)
            ident(WriteBin)operator(()ident(ValueName)operator(,) reserved(nil)operator(\);)
          reserved(end)operator(;)
        reserved(else)
          ident(WriteBinType)operator(()ident(ValueName)operator(,) reserved(nil)operator(,) ident(Typ)operator(\);)
      reserved(end)operator(;)

      reserved(if) reserved(not) ident(ValueExists)operator(()ident(ValueName)operator(\)) reserved(then) reserved(begin)
        ident(ShowMessage)operator(()string<delimiter(')content(Could not create Value.)delimiter(')>operator(\);)
        ident(CloseKey)operator(;)
      ident(Exit)operator(;) reserved(end)operator(;)

      ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(MainReg)operator(,) ident(ValueName)operator(\);)
    reserved(finally)
      ident(CloseKey)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  ident(Item) operator(:=) ident(FindItem)operator(()ident(ValueList)operator(,) ident(ValueName)operator(\);)

  reserved(if) reserved(not) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then) reserved(begin)
    ident(ShowMessage)operator(()string<delimiter(')content(Error, Value not found: )delimiter(')> operator(+) ident(ValueName)operator(\);)
  ident(Exit)operator(;) reserved(end)operator(;)

  ident(SelectItemOnly)operator(()ident(ValueList)operator(,) ident(Item)operator(\);)
  ident(MainWin)operator(.)ident(StatusBarUpdate)operator(;)
  ident(ValueLabelClicked) operator(:=) ident(True)operator(;)
  ident(Item)operator(.)ident(EditCaption)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ValuesU)operator(.)ident(ValueList) operator(:=) ident(ValueList)operator(;)

  ident(DefaultValueCaption) operator(:=) ident(PrefWin)operator(.)ident(DefaultValueNameE)operator(.)ident(Text)operator(;)
  ident(ValueLabelClicked) operator(:=) ident(False)operator(;)
  ident(SortBy) operator(:=) ident(vlcName)operator(;)
  ident(SortByColumn) operator(:=) reserved(nil)operator(;)

  ident(ValueListResize)operator(()ident(Sender)operator(\);)
  ident(ValueList)operator(.)ident(Items)operator(.)ident(Clear)operator(;)
  ident(CheckValueListHotTrack)operator(;)

  ident(ValueNames) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
  ident(ValuesCommon) operator(:=) ident(False)operator(;)
  ident(ValueCommonType) operator(:=) integer(0)operator(;)

  ident(NewDefaultValueMI)operator(.)ident(ImageIndex) operator(:=) ident(iconMainValue)operator(;)
  ident(NewStringMI)operator(.)ident(ImageIndex) operator(:=) ident(iconString)operator(;)
  ident(NewDWORDMI)operator(.)ident(ImageIndex) operator(:=) ident(iconCardinal)operator(;)
  ident(NewBinaryMI)operator(.)ident(ImageIndex) operator(:=) ident(iconBinary)operator(;)
  ident(NewMultiStringMI)operator(.)ident(ImageIndex) operator(:=) ident(iconMultiString)operator(;)
  ident(NewElseMI)operator(.)ident(ImageIndex) operator(:=) ident(iconValueElse)operator(;)

  ident(DublicateMI)operator(.)ident(ImageIndex) operator(:=) ident(iconValueDublicate)operator(;)
  ident(DeleteMI)operator(.)ident(ImageIndex) operator(:=) ident(iconDelete)operator(;)
  ident(ZeromizeMI)operator(.)ident(ImageIndex) operator(:=) ident(iconValueZeromize)operator(;)

  ident(EditMI)operator(.)ident(ImageIndex) operator(:=) ident(iconValueEdit)operator(;)
  ident(EditBinaryMI)operator(.)ident(ImageIndex) operator(:=) ident(iconValueEditBinary)operator(;)
  ident(RenameMI)operator(.)ident(ImageIndex) operator(:=) ident(iconRename)operator(;)

  ident(TakeAsMainValueMI)operator(.)ident(ImageIndex) operator(:=) ident(iconTakeAsMainValue)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ConvertValue)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
comment({var
  Allow: Boolean;
  OldActive: Integer;  })
reserved(begin)
comment({  TargetPage := ShowPC.Pages[TMenuItem(Sender\).Tag];

  OldActive := ShowPC.ActivePageIndex;
  ShowPC.ActivePageIndex := TMenuItem(Sender\).Tag;
  WorkWin.ShowPCChanging(Sender, Allow\);
  if not Allow then
    ShowPC.ActivePageIndex := OldActive; })
reserved(end)operator(;)

reserved(function) ident(ValueDataSize)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)
reserved(var)
  ident(Typ)operator(:) ident(TRegDataType)operator(;)
  ident(Size)operator(:) ident(Integer)operator(;)
comment(//  ValueName: string;)
comment(//  SL: TStringList;)
reserved(begin)
  ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;)

  reserved(if) ident(csDestroying) reserved(in) ident(PrefWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

comment(//  ValueName := RealValueName(Item\);)
  ident(Typ) operator(:=) ident(Context)operator(.)ident(Typ)operator(;)
  ident(Size) operator(:=) ident(Length)operator(()ident(Context)operator(.)ident(Data)operator(\);)

  reserved(if) ident(Typ) reserved(in) ident(rdStringTypes) reserved(then)
    reserved(if) reserved(not) ident(PrefWin)operator(.)ident(CountZeroByteCB)operator(.)ident(Checked) reserved(then)
      ident(Dec)operator(()ident(Size)operator(\);)
      
  reserved(if) ident(Typ) operator(=) ident(rdMultiString) reserved(then)
    reserved(if) ident(PrefWin)operator(.)ident(ShowLineCountCB)operator(.)ident(Checked) reserved(then) reserved(begin)
      ident(Size) operator(:=) ident(CharCount)operator(()ident(StrOfByteA)operator(()ident(Context)operator(.)ident(Data)operator(\),) char(#0)operator(\)) operator(-) integer(2)operator(;)
comment({      SL := TStringList.Create;
      try
        Reg.ReadMultiString(ValueName, SL, PrefWin.UseExtendedModelCB.Checked\);
        Size := SL.Count;
      finally
        SL.Free;
      end;    })
      ident(Result) operator(:=) char<delimiter(')content(#)delimiter(')>operator(;)
    reserved(end)operator(;)

  ident(Result) operator(:=) ident(Result) operator(+) ident(IntToStr)operator(()ident(Size)operator(\);)
reserved(end)operator(;)

reserved(function) ident(ValueDataType)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(StrOfRegDataType)operator(()ident(Context)operator(.)ident(Typ)operator(\);)
reserved(end)operator(;)

reserved(function) ident(DataPreviewOfContext)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)

  reserved(function) ident(DWORDPreview)operator(()ident(Value)operator(:) ident(Integer)operator(\):) reserved(string)operator(;)
  reserved(begin)
    reserved(if) ident(PrefWin)operator(.)ident(ShowDwordAsHex)operator(.)ident(Checked) reserved(then)
      ident(Result) operator(:=) ident(IntToStr)operator(()ident(Value)operator(\)) operator(+) string<delimiter(')content( = $)delimiter(')> operator(+) ident(IntToHex)operator(()ident(Value)operator(,) integer(8)operator(\))
    reserved(else)
      ident(Result) operator(:=) ident(IntToStr)operator(()ident(Value)operator(\))
  reserved(end)operator(;)

  reserved(function) ident(BinaryPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)
  reserved(var)
    ident(z)operator(:) reserved(string)operator(;)

    reserved(function) ident(DWORDStringOfByteA)operator(()ident(a)operator(:) ident(TByteA)operator(;) ident(AddBinary)operator(:) ident(Boolean) operator(=) ident(False)operator(\):) reserved(string)operator(;)
    reserved(var)
      ident(piece)operator(:) ident(TByteA)operator(;)
      ident(i)operator(:) ident(Integer)operator(;)
    reserved(begin)
      ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;)

      ident(i) operator(:=) integer(0)operator(;)
      reserved(while) operator(()ident(i) operator(<=) ident(High)operator(()ident(a)operator(\)\)) reserved(and) operator(()ident(Length)operator(()ident(Result)operator(\)) operator(<) ident(MaxPreviewLen)operator(\)) reserved(do) reserved(begin)
        ident(piece) operator(:=) ident(Copy)operator(()ident(a)operator(,) ident(i)operator(,) integer(4)operator(\);)
        reserved(if) ident(AddBinary) reserved(then)
          ident(Result) operator(:=) ident(Result) operator(+) ident(FriendlyStr)operator(()ident(piece)operator(\)) operator(+) char<delimiter(')content(=)delimiter(')>operator(;)
        ident(SetLength)operator(()ident(piece)operator(,) integer(4)operator(\);)
        ident(Result) operator(:=) ident(Result) operator(+) ident(IntToStr)operator(()ident(PInteger)operator(()ident(piece)operator(\)^\)) operator(+) string<delimiter(')content(  )delimiter(')>operator(;)
        ident(Inc)operator(()ident(i)operator(,) ident(SizeOf)operator(()ident(Integer)operator(\)\);)
      reserved(end)operator(;)
    reserved(end)operator(;)

  reserved(begin)
    reserved(with) ident(Context) reserved(do) reserved(begin)
      ident(Data) operator(:=) ident(Copy)operator(()ident(Data)operator(,) integer(0)operator(,) ident(MaxPreviewLen)operator(\);)
      reserved(case) ident(PrefWin)operator(.)ident(ShowBinaryAsRG)operator(.)ident(ItemIndex) reserved(of)
        integer(0)operator(:) ident(z) operator(:=) ident(FriendlyStr)operator(()ident(Data)operator(\);)
        integer(1)operator(:) ident(z) operator(:=) ident(DWORDStringOfByteA)operator(()ident(Data)operator(\);)
        integer(2)operator(:) ident(z) operator(:=) ident(DWORDStringOfByteA)operator(()ident(Data)operator(,) ident(True)operator(\);)
        integer(3)operator(:) ident(z) operator(:=) ident(BinOfByteA)operator(()ident(Data)operator(,) integer(8)operator(,) string<delimiter(')content(  )delimiter(')>operator(\);)
        integer(4)operator(:) ident(z) operator(:=) ident(HexOfByteA)operator(()ident(Data)operator(,) integer(0)operator(\);)
        integer(5)operator(:) ident(z) operator(:=) ident(HexOfByteA)operator(()ident(Data)operator(,) integer(1)operator(\);)
        integer(6)operator(:) ident(z) operator(:=) ident(HexOfByteA)operator(()ident(Data)operator(,) integer(2)operator(\);)
        integer(7)operator(:) ident(z) operator(:=) ident(HexOfByteA)operator(()ident(Data)operator(,) integer(4)operator(\);)
      reserved(end)operator(;)
    reserved(end)operator(;)

    ident(Result) operator(:=) ident(Copy)operator(()ident(z)operator(,) integer(1)operator(,) ident(MaxPreviewLen)operator(\);)
  reserved(end)operator(;)

  reserved(function) ident(StringPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)
  reserved(var)
    ident(s)operator(:) reserved(string)operator(;)
    ident(Expanded)operator(:) reserved(string)operator(;)
    ident(DoExpand)operator(:) ident(Boolean)operator(;)
  reserved(begin)
    ident(s) operator(:=) ident(PChar)operator(()ident(Context)operator(.)ident(Data)operator(\);)
    reserved(with) ident(PrefWin) reserved(do)
      ident(Result) operator(:=) ident(StringQuoterBegin) operator(+) ident(FriendlyStr)operator(()ident(s)operator(\)) operator(+) ident(StringQuoterEnd)operator(;)
    reserved(if) ident(s) operator(=) string<delimiter(')delimiter(')> reserved(then)
      ident(Exit)operator(;)

    reserved(case) ident(PrefWin)operator(.)ident(ExpandStringsRG)operator(.)ident(ItemIndex) reserved(of)
      integer(0)operator(:) ident(DoExpand) operator(:=) ident(False)operator(;)
      integer(1)operator(:) ident(DoExpand) operator(:=) operator(()ident(Context)operator(.)ident(Typ) operator(=) ident(rdExpandString)operator(\)) reserved(and) operator(()ident(CharCount)operator(()ident(s)operator(,) char<delimiter(')content(%)delimiter(')>operator(\)) operator(>=) integer(2)operator(\);)
      integer(2)operator(:) ident(DoExpand) operator(:=) ident(True)operator(;)
    reserved(else)
      ident(ShowMessage)operator(()string<delimiter(')content(Error: Unknown PrefWin.ExpandStringsRG.ItemIndex!)delimiter(')>operator(\);)
      ident(PrefWin)operator(.)ident(ExpandStringsRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;)
      ident(Exit)operator(;)
    reserved(end)operator(;)

    reserved(if) ident(DoExpand) reserved(then) reserved(begin)
      ident(Expanded) operator(:=) ident(ExpandString)operator(()ident(s)operator(\);)
      reserved(if) ident(s) operator(<>) ident(Expanded) reserved(then)
        ident(Result) operator(:=) ident(Result) operator(+) string<delimiter(')content(   <)delimiter(')> operator(+) ident(Expanded) operator(+) char<delimiter(')content(>)delimiter(')>operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(function) ident(IntegerPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)
  reserved(begin)
    reserved(if) ident(Length)operator(()ident(Context)operator(.)ident(Data)operator(\)) operator(>=) ident(SizeOf)operator(()ident(Cardinal)operator(\)) reserved(then) reserved(begin)
      ident(Result) operator(:=) ident(DWORDPreview)operator(()ident(PInteger)operator(()ident(Context)operator(.)ident(Data)operator(\)^\);)
    reserved(end) reserved(else)
      ident(Result) operator(:=) ident(BinaryPreview)operator(()ident(Context)operator(\);)
  reserved(end)operator(;)

  reserved(function) ident(MultiStringPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)
  reserved(var)
    ident(z)operator(:) reserved(string)operator(;)
    ident(SL)operator(:) ident(TStringList)operator(;)
    ident(i)operator(:) ident(Integer)operator(;)
  reserved(begin)
    ident(z) operator(:=) string<delimiter(')delimiter(')>operator(;)

    ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
    reserved(try)
      ident(RegMultiStringOfByteA)operator(()ident(Context)operator(.)ident(Data)operator(,) ident(SL)operator(,) ident(PrefWin)operator(.)ident(UseExtendedModelCB)operator(.)ident(Checked)operator(\);)

      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do)
        ident(z) operator(:=) ident(z) operator(+) ident(SL)operator([)ident(i)operator(]) operator(+) string<delimiter(')content(   )delimiter(')>operator(;)
    reserved(finally)
      ident(SL)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)

    ident(Result) operator(:=) ident(Copy)operator(()ident(FriendlyStr)operator(()ident(z)operator(\),) integer(1)operator(,) ident(MaxPreviewLen)operator(\);)
  reserved(end)operator(;)

reserved(begin)
  ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;)

  reserved(if) ident(csDestroying) reserved(in) ident(PrefWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  reserved(if) operator(()ident(Context)operator(.)ident(Data) operator(=) reserved(nil)operator(\)) reserved(or) operator(()ident(Length)operator(()ident(Context)operator(.)ident(Data)operator(\)) operator(>) ident(RegMaxDataSize)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(Length)operator(()ident(Context)operator(.)ident(Data)operator(\)) operator(>) ident(MaxPreviewLen) reserved(then)
    ident(SetLength)operator(()ident(Context)operator(.)ident(Data)operator(,) ident(MaxPreviewLen)operator(\);)

  reserved(if) ident(PrefWin)operator(.)ident(ShowAsBinaryCB)operator(.)ident(Checked) reserved(then) reserved(begin)
    ident(Result) operator(:=) ident(BinaryPreview)operator(()ident(Context)operator(\);)
  ident(Exit)operator(;) reserved(end)operator(;)

  reserved(case) ident(Context)operator(.)ident(Typ) reserved(of)
    ident(rdExpandString)operator(,) ident(rdString)operator(:) ident(Result) operator(:=) ident(StringPreview)operator(()ident(Context)operator(\);)
    ident(rdCardinal)operator(,) ident(rdCardBigEndian)operator(:) ident(Result) operator(:=) ident(IntegerPreview)operator(()ident(Context)operator(\);)
    ident(rdMultiString)operator(:) ident(Result) operator(:=) ident(MultiStringPreview)operator(()ident(Context)operator(\);)
  reserved(else)
    reserved(if) ident(PrefWin)operator(.)ident(Smart4BBCB)operator(.)ident(Checked) reserved(and) operator(()ident(Length)operator(()ident(Context)operator(.)ident(Data)operator(\)) operator(=) integer(4)operator(\)) reserved(then)
      ident(Result) operator(:=) ident(IntegerPreview)operator(()ident(Context)operator(\))
    reserved(else)
      ident(Result) operator(:=) ident(BinaryPreview)operator(()ident(Context)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(ValueDataPreview)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) reserved(string)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(DataPreviewOfContext)operator(()ident(Context)operator(\);)
reserved(end)operator(;)

reserved(function) ident(IconOfDataType)operator(()ident(Typ)operator(:) ident(TRegDataType)operator(\):) ident(Integer)operator(;)
reserved(begin)
  reserved(if) ident(Typ) reserved(in) operator([)ident(rdNone)operator(..)ident(rdLastType)operator(]) reserved(then)
    ident(Result) operator(:=) ident(iconFirstType) operator(+) ident(Ord)operator(()ident(Typ)operator(\))
  reserved(else)
    ident(Result) operator(:=) ident(iconUnknownType)operator(;)
reserved(end)operator(;)

reserved(function) ident(ValueTypeIcon)operator(()ident(Context)operator(:) ident(TRegContext)operator(\):) ident(Integer)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(IconOfDataType)operator(()ident(Context)operator(.)ident(Typ)operator(\);)
reserved(end)operator(;)

reserved(function) ident(TValuesWin)operator(.)ident(UpdateValue)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) ident(Item)operator(:) ident(TListItem)operator(\):) ident(Boolean)operator(;)
comment(//Return Value: True if something has changed)
reserved(var)
  ident(Size)operator(,) ident(Typ)operator(,) ident(Data)operator(:) reserved(string)operator(;)
  ident(Icon)operator(:) ident(Integer)operator(;)
  ident(Context)operator(:) ident(TRegContext)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(False)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(Context) operator(:=) ident(Reg)operator(.)ident(ReadContext)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\);)
  ident(Data) operator(:=) ident(ValueDataPreview)operator(()ident(Context)operator(\);)
  ident(Size) operator(:=) ident(ValueDataSize)operator(()ident(Context)operator(\);)
  ident(Typ) operator(:=) ident(ValueDataType)operator(()ident(Context)operator(\);)
  ident(Icon) operator(:=) ident(ValueTypeIcon)operator(()ident(Context)operator(\);)

  reserved(if) ident(Icon) operator(<>) ident(Item)operator(.)ident(ImageIndex) reserved(then) reserved(begin)
    ident(Item)operator(.)ident(ImageIndex) operator(:=) ident(Icon)operator(;)
    ident(Result) operator(:=) ident(True)operator(;)
  reserved(end)operator(;)

  reserved(while) ident(Item)operator(.)ident(SubItems)operator(.)ident(Count) operator(<) ident(Integer)operator(()ident(High)operator(()ident(TValueListColumn)operator(\)\)) reserved(do)
    ident(Item)operator(.)ident(SubItems)operator(.)ident(Add)operator(()string<delimiter(')delimiter(')>operator(\);)

  reserved(if) ident(Size) operator(<>) ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcSize)operator(]]) reserved(then) reserved(begin)
    ident(Result) operator(:=) ident(True)operator(;)
    ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcSize)operator(]]) operator(:=) ident(Size)operator(;)
  reserved(end)operator(;)

  reserved(if) ident(Typ) operator(<>) ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcType)operator(]]) reserved(then) reserved(begin)
    ident(Result) operator(:=) ident(True)operator(;)
    ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcType)operator(]]) operator(:=) ident(Typ)operator(;)
  reserved(end)operator(;)

  reserved(if) operator(()ident(Data) operator(<>) ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcData)operator(]]\)) reserved(then) reserved(begin)
    ident(Result) operator(:=) ident(True)operator(;)
    ident(Item)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcData)operator(]]) operator(:=) ident(Data)operator(;)
    reserved(if) ident(IsMainValue)operator(()ident(Item)operator(\)) reserved(then)
      ident(RegTV)operator(.)ident(Repaint)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(AppendNewValueInfos)operator(()ident(Item)operator(:) ident(TListItem)operator(;) ident(Context)operator(:) ident(TRegContext)operator(\);)
reserved(begin)
  ident(Item)operator(.)ident(ImageIndex) operator(:=) ident(ValueTypeIcon)operator(()ident(Context)operator(\);)
  reserved(with) ident(Item)operator(.)ident(SubItems) reserved(do) reserved(begin)
    ident(Append)operator(()ident(ValueDataSize)operator(()ident(Context)operator(\)\);)
    ident(Append)operator(()ident(ValueDataType)operator(()ident(Context)operator(\)\);)
    ident(Append)operator(()ident(ValueDataPreview)operator(()ident(Context)operator(\)\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(TValuesWin)operator(.)ident(AddValue)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(const) ident(ValueName)operator(:) reserved(string)operator(;)
  ident(AppendInfos)operator(:) ident(Boolean) operator(=) ident(True)operator(\):) ident(TListItem)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(ValueList)operator(.)ident(Items)operator(.)ident(AddItem)operator(()reserved(nil)operator(,) operator(-)integer(1)operator(\);)
  ident(Result)operator(.)ident(Indent) operator(:=) operator(-)integer(1)operator(;)
  ident(SetRealValueName)operator(()ident(Result)operator(,) ident(ValueName)operator(\);)
  reserved(if) ident(AppendInfos) reserved(then)
    ident(AppendNewValueInfos)operator(()ident(Result)operator(,) ident(Reg)operator(.)ident(ReadContext)operator(()ident(ValueName)operator(\)\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListChange)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;)
  ident(Change)operator(:) ident(TItemChange)operator(\);)
reserved(var)
  ident(ValueName)operator(:) reserved(string)operator(;)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)

  reserved(function) ident(ComputeValuesCommon)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(var) ident(DataType)operator(:) ident(TRegDataType)operator(\):) ident(Boolean)operator(;)
  reserved(var)
    ident(i)operator(:) ident(Integer)operator(;)
    ident(ItemType)operator(:) ident(TRegDataType)operator(;)
  reserved(begin)
    ident(Result) operator(:=) ident(False)operator(;)

    ident(i) operator(:=) integer(0)operator(;)
    ident(DataType) operator(:=) integer(0)operator(;)
    reserved(while) ident(i) operator(<) ident(ValueList)operator(.)ident(Items)operator(.)ident(Count) reserved(do) reserved(begin)
      ident(Item) operator(:=) ident(ValueList)operator(.)ident(Items)operator([)ident(i)operator(];)
      reserved(if) reserved(not) ident(Item)operator(.)ident(Selected) reserved(then) reserved(begin)
        ident(Inc)operator(()ident(i)operator(\);)
      ident(Continue)operator(;) reserved(end)operator(;)

      ident(ValueName) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\);)
      reserved(if) ident(Reg)operator(.)ident(ValueReallyExists)operator(()ident(ValueName)operator(\)) reserved(then) reserved(begin)

        ident(ItemType) operator(:=) ident(Reg)operator(.)ident(GetDataType)operator(()ident(ValueName)operator(\);)
        reserved(if) reserved(not) ident(Result) reserved(then) reserved(begin)
          ident(DataType) operator(:=) ident(ItemType)operator(;)
          ident(Result) operator(:=) ident(True)operator(;)
        reserved(end) reserved(else) reserved(if) ident(ItemType) operator(<>) ident(DataType) reserved(then) reserved(begin)
          ident(Result) operator(:=) ident(False)operator(;)
          ident(DataType) operator(:=) integer(0)operator(;)
        ident(Break)operator(;) reserved(end)operator(;)

        reserved(with) ident(ValueNames) reserved(do)
          reserved(if) ident(Item)operator(.)ident(Focused) reserved(then)
            ident(Insert)operator(()integer(0)operator(,) ident(ValueName)operator(\))
          reserved(else)
            ident(Add)operator(()ident(ValueName)operator(\);)

      reserved(end) reserved(else) reserved(begin)
        ident(ShowMessage)operator(()string<delimiter(')content(Value has been deleted!)delimiter(')>operator(\);)
        ident(DataType) operator(:=) integer(0)operator(;)
        ident(Result) operator(:=) ident(False)operator(;)
        ident(Reload)operator(;)
      ident(Break)operator(;) reserved(end)operator(;)

      ident(Inc)operator(()ident(i)operator(\);)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Item)operator(\)) reserved(or) ident(ValueList)operator(.)ident(IsEditing) reserved(or) reserved(not) ident(ValueList)operator(.)ident(Enabled) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(Change) operator(<>) ident(ctState) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(csDestroying) reserved(in) ident(WorkWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  reserved(if) operator(()ident(ValueList)operator(.)ident(SelCount) operator(=) integer(0)operator(\)) reserved(then) reserved(begin)
    ident(ValueNames)operator(.)ident(Clear)operator(;)
    ident(WorkWin)operator(.)ident(ReInitShowPC)operator(;)
  ident(Exit)operator(;) reserved(end)operator(;)

  reserved(if) reserved(not) ident(Item)operator(.)ident(Focused) reserved(then)
    ident(Exit)operator(;)

  ident(WorkWin)operator(.)ident(ReInitShowPC)operator(;)

  ident(ValueNames)operator(.)ident(Clear)operator(;)
  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  reserved(try)
    reserved(if) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\)) reserved(then) reserved(begin)
      ident(ValuesCommon) operator(:=) ident(ComputeValuesCommon)operator(()ident(Reg)operator(,) ident(ValueCommonType)operator(\);)
      reserved(if) ident(ValuesCommon) reserved(then)
        ident(WorkWin)operator(.)ident(ShowValues)operator(()ident(Reg)operator(\);)
    reserved(end)operator(;)
  reserved(finally)
    ident(Reg)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)

  reserved(if) ident(csDestroying) reserved(in) ident(MainWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(ActiveControl) operator(=) ident(ValueList) reserved(then)
    ident(MainWin)operator(.)ident(SetStatus)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomListView)operator(;)
  ident(Item)operator(:) ident(TListItem)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);)
reserved(begin)
  reserved(with) ident(ValueList)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin)
    reserved(if) ident(Item)operator(.)ident(Focused) reserved(then)
      ident(Style) operator(:=) ident(Style) operator(+) operator([)ident(fsBold)operator(];)
    reserved(if) ident(ItemIsDefaultValue)operator(()ident(Item)operator(\)) reserved(then)
      ident(Color) operator(:=) ident(clBrightYellow)
    reserved(else)
      ident(Color) operator(:=) ident(ColorOfDataType)operator(()ident(TRegDataType)operator(()ident(Item)operator(.)ident(ImageIndex) operator(-) ident(iconFirstType)operator(\)\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ValueListChange)operator(()ident(Sender)operator(,) ident(ValueList)operator(.)ident(ItemFocused)operator(,) ident(ctState)operator(\);)
  ident(MainPC)operator(.)ident(ActivePage) operator(:=) ident(WorkWin)operator(.)ident(WorkPage)operator(;)

  reserved(if) reserved(not) ident(Assigned)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(csDestroying) reserved(in) ident(WorkWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  ident(WorkWin)operator(.)ident(EditData)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListEditing)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;)
  reserved(var) ident(AllowEdit)operator(:) ident(Boolean)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(ValueLabelClicked) reserved(then) reserved(begin)
    ident(AllowEdit) operator(:=) ident(False)operator(;)
  ident(Exit)operator(;) reserved(end)operator(;)

  reserved(if) ident(ItemIsDefaultValue)operator(()ident(Item)operator(\)) reserved(then) comment(//unschön, aber beste Lösung bisher)
    ident(Keyboard)operator(.)ident(SimKey)operator(()ident(VK_DELETE)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListEdited)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;)
  reserved(var) ident(S)operator(:) reserved(string)operator(\);)
reserved(var)
  ident(Old)operator(:) reserved(string)operator(;)
  ident(OldCaption)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(OldCaption) operator(:=) ident(Item)operator(.)ident(Caption)operator(;)
  ident(Old) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\);)

  reserved(if) ident(s) operator(=) ident(Old) reserved(then) reserved(begin)
    reserved(if) ident(ItemIsDefaultValue)operator(()ident(Item)operator(\)) reserved(then)
      ident(s) operator(:=) ident(DefaultValueCaption)operator(;)
  ident(Exit)operator(;) reserved(end)operator(;)

  ident(SpyThread)operator(.)ident(Suspend)operator(;)
  reserved(try)
    ident(Item)operator(.)ident(Caption) operator(:=) ident(s)operator(;)

    reserved(if) ident(TryRenameValue)operator(()ident(Old)operator(,) ident(s)operator(\)) reserved(then) reserved(begin)
      ident(SetRealValueName)operator(()ident(Item)operator(,) ident(s)operator(\);) comment(//Sichere Zuweisung des Standard-Flags)
      ident(s) operator(:=) ident(Item)operator(.)ident(Caption)operator(;) comment(//Anschließend externer Aufruf "Item.Caption := s"!)
    reserved(end) reserved(else) reserved(begin)
      ident(s) operator(:=) ident(OldCaption)operator(;)
    reserved(end)operator(;)

  reserved(finally)
    ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;)
    ident(SpyThread)operator(.)ident(Resume)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(var)
  ident(T)operator(:) reserved(string)operator(;)
  ident(Item)operator(:) ident(TListItem)operator(;)
reserved(begin)
  reserved(if) ident(ValueList)operator(.)ident(IsEditing) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(csDestroying) reserved(in) ident(TreeWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)
    
  ident(Item) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;)

  reserved(case) ident(Key) reserved(of)
    ident(VK_SPACE)operator(:) ident(JumpToSel)operator(()ident(ValueList)operator(\);)

    ident(VK_F9)operator(:) ident(SwapFonts)operator(()ident(ValueList)operator(\);)

    ident(VK_F5)operator(:) ident(Reload)operator(;)

    ident(VK_F12)operator(:) reserved(begin) comment(//Sort)
        reserved(if) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then)
          ident(T) operator(:=) ident(Item)operator(.)ident(Caption)operator(;)
        ident(ValueList)operator(.)ident(SortType) operator(:=) ident(TSortType)operator(()integer(2) operator(-) operator(()ident(Integer)operator(()ident(ValueList)operator(.)ident(SortType)operator(\)\)\);)
        reserved(if) ident(ValueList)operator(.)ident(SortType) operator(=) ident(stNone) reserved(then)
          ident(TreeWin)operator(.)ident(RegTVChange)operator(()ident(Sender)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);)
        ident(ValueList)operator(.)ident(ItemFocused) operator(:=) ident(FindItem)operator(()ident(ValueList)operator(,) ident(T)operator(\);)
        reserved(if) ident(Assigned)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\)) reserved(then)
          ident(ValueList)operator(.)ident(ItemFocused)operator(.)ident(MakeVisible)operator(()ident(True)operator(\);)
      reserved(end)operator(;)

    ident(VK_DELETE)operator(:) ident(DeleteMIClick)operator(()ident(Sender)operator(\);)

    ident(VK_RETURN)operator(:) ident(ValueListDblCLick)operator(()ident(Sender)operator(\);)

    ident(Ord)operator(()char<delimiter(')content(C)delimiter(')>operator(\):)
      reserved(if) reserved(not) ident(ValueList)operator(.)ident(IsEditing) reserved(then)
        ident(CopyPathMIClick)operator(()ident(Sender)operator(\);)

    ident(VK_SCROLL)operator(:) ident(CheckValueListHotTrack)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(ValueList) reserved(do)
    ident(Columns)operator([)integer(3)operator(].)ident(Width) operator(:=) ident(ClientWidth) operator(-) operator(()integer(0) operator(+)
      ident(Columns)operator([)integer(0)operator(].)ident(Width) operator(+) ident(Columns)operator([)integer(1)operator(].)ident(Width) operator(+) ident(Columns)operator([)integer(2)operator(].)ident(Width)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(DeleteValue)operator(;)
reserved(var)
  ident(Item)operator(,) ident(NewSel)operator(:) ident(TListItem)operator(;)
  ident(YesToAll)operator(:) ident(Boolean)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)

  reserved(procedure) ident(DeleteIt)operator(()ident(Item)operator(:) ident(TListItem)operator(\);)
  reserved(begin)
    ident(OpenCurKey)operator(;)
    reserved(if) ident(MainReg)operator(.)ident(DeleteValue)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\))
     reserved(and) reserved(not) ident(MainReg)operator(.)ident(ValueReallyExists)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)) reserved(then) reserved(begin)
      ident(Item)operator(.)ident(Delete)operator(;)
    reserved(end) reserved(else) reserved(begin)
      ident(ShowMessage)operator(()string<delimiter(')content(Could not delete Value )delimiter(')> operator(+) ident(Quote)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)\);)
      ident(Inc)operator(()ident(i)operator(\);)
    reserved(end)operator(;)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)

    reserved(if) ident(IsMainValue)operator(()ident(Item)operator(\)) reserved(then)
      ident(RegTV)operator(.)ident(Repaint)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(SpyThread)operator(.)ident(Suspend)operator(;)

  ident(NewSel) operator(:=) ident(GetNextBestNotSelected)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\);)

  ident(YesToAll) operator(:=) ident(False)operator(;)
  ident(i) operator(:=) integer(0)operator(;)
  reserved(while) ident(i) operator(<) ident(ValueList)operator(.)ident(Items)operator(.)ident(Count) reserved(do) reserved(begin)
    ident(Item) operator(:=) ident(ValueList)operator(.)ident(Items)operator([)ident(i)operator(];)
    reserved(if) reserved(not) ident(Item)operator(.)ident(Selected) reserved(then) reserved(begin)
      ident(Inc)operator(()ident(i)operator(\);)
    ident(Continue)operator(;) reserved(end)operator(;)

    reserved(if) ident(YesToAll) reserved(then)
      ident(DeleteIt)operator(()ident(Item)operator(\))
    reserved(else) reserved(begin)
      reserved(case) ident(MessageDlg)operator(()string<delimiter(')content(Do you really want to delete the Value )delimiter(')> operator(+)
        ident(Quote)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)) operator(+) char<delimiter(')content(?)delimiter(')>operator(,)
           ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbYesToAll)operator(,) ident(mbNo)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(of)
        ident(mrYes)operator(:) ident(DeleteIt)operator(()ident(Item)operator(\);)
        ident(mrYesToAll)operator(:) ident(YesToAll) operator(:=) ident(True)operator(;)
        ident(mrCancel)operator(:) ident(Exit)operator(;)
        ident(mrNo)operator(:) reserved(begin)
          ident(Item)operator(.)ident(Selected) operator(:=) ident(False)operator(;)
          ident(NewSel) operator(:=) ident(Item)operator(;)
        reserved(end)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(if) ident(Assigned)operator(()ident(NewSel)operator(\)) reserved(then) reserved(begin)
    ident(ValueList)operator(.)ident(ItemFocused) operator(:=) ident(NewSel)operator(;)
    ident(NewSel)operator(.)ident(Selected) operator(:=) ident(True)operator(;)
  reserved(end) reserved(else)
    ident(WorkWin)operator(.)ident(ReInitShowPC)operator(;)

  ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;)
  ident(SpyThread)operator(.)ident(Resume)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ZeromizeValue)operator(;)
reserved(var)
  ident(Item)operator(:) ident(TListItem)operator(;)
  ident(YesToAll)operator(:) ident(Boolean)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)

  reserved(procedure) ident(ZeromizeIt)operator(()ident(Item)operator(:) ident(TListItem)operator(\);)
  reserved(begin)
    reserved(with) ident(MainReg) reserved(do) reserved(begin)
      ident(OpenCurKey)operator(;)
      ident(ZeromizeValue)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\);)
      ident(UpdateValue)operator(()ident(MainReg)operator(,) ident(Item)operator(\);)
      ident(CloseKey)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  ident(SpyThread)operator(.)ident(Suspend)operator(;)

  ident(YesToAll) operator(:=) ident(False)operator(;)
  ident(i) operator(:=) integer(0)operator(;)
  reserved(while) ident(i) operator(<) ident(ValueList)operator(.)ident(Items)operator(.)ident(Count) reserved(do) reserved(begin)
    ident(Item) operator(:=) ident(ValueList)operator(.)ident(Items)operator([)ident(i)operator(];)
    reserved(if) reserved(not) ident(Item)operator(.)ident(Selected) reserved(then) reserved(begin)
      ident(Inc)operator(()ident(i)operator(\);)
    ident(Continue)operator(;) reserved(end)operator(;)

    reserved(if) ident(YesToAll) reserved(then)
      ident(ZeromizeIt)operator(()ident(Item)operator(\))
    reserved(else)
      reserved(case) ident(MessageDlg)operator(()string<delimiter(')content(Do you really want to zeromize ValueData of )delimiter(')> operator(+)
        ident(Quote)operator(()ident(RealValueName)operator(()ident(Item)operator(\)\)) operator(+) string<delimiter(')content( ?)delimiter(')>operator(,)
        ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbYesToAll)operator(,) ident(mbNo)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(of)

      ident(mrYes)operator(:) reserved(begin)
        ident(ZeromizeIt)operator(()ident(Item)operator(\);)
        ident(Inc)operator(()ident(i)operator(\);)
      reserved(end)operator(;)

      ident(mrYesToAll)operator(:) reserved(begin)
                    ident(YesToAll) operator(:=) ident(True)operator(;)
                    ident(ZeromizeIt)operator(()ident(Item)operator(\);)
                  reserved(end)operator(;)
      ident(mrCancel)operator(:) ident(Exit)operator(;)
      reserved(end)operator(;)
      
    reserved(if) ident(IsMainValue)operator(()ident(Item)operator(\)) reserved(then)
      ident(RegTV)operator(.)ident(Repaint)operator(;)
  reserved(end)operator(;)


  ident(SpyThread)operator(.)ident(Resume)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Writable)operator(,) ident(ValueOK)operator(,) ident(OnlyOneValue)operator(,) ident(OneValueOK)operator(:) ident(Boolean)operator(;)
  ident(Item)operator(:) ident(TListItem)operator(;)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\)) reserved(then)
    ident(ValueList)operator(.)ident(ItemFocused)operator(.)ident(Selected) operator(:=) ident(True)operator(;)

  reserved(if) ident(csDestroying) reserved(in) operator(()ident(TreeWin)operator(.)ident(ComponentState) operator(+) ident(PrefWin)operator(.)ident(ComponentState)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(Writable) operator(:=) reserved(not) ident(TreeWin)operator(.)ident(CantWrite)operator(;)
  ident(NewDefaultValueMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;)
  ident(NewStringMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;)
  ident(NewDWORDMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;)
  ident(NewBinaryMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;)
  ident(NewMultiStringMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;)
  ident(NewElseMI)operator(.)ident(Visible) operator(:=) ident(Writable)operator(;)

  ident(ValueOK) operator(:=) ident(Writable) reserved(and) operator(()ident(ValueList)operator(.)ident(ItemFocused) operator(<>) reserved(nil)operator(\);)
  ident(OnlyOneValue) operator(:=) ident(ValueList)operator(.)ident(SelCount) operator(=) integer(1)operator(;)
  ident(OneValueOK) operator(:=) ident(OnlyOneValue) reserved(and) ident(ValueOK)operator(;)

  ident(EditMI)operator(.)ident(Visible) operator(:=) ident(ValueOK)operator(;)
  ident(EditBinaryMI)operator(.)ident(Visible) operator(:=) ident(ValueOK)operator(;)
  ident(DublicateMI)operator(.)ident(Visible) operator(:=) ident(OneValueOK)operator(;)
  ident(CopyPathMI)operator(.)ident(Visible) operator(:=) ident(OnlyOneValue)operator(;)
  ident(CopyDataPreviewMI)operator(.)ident(Visible) operator(:=) ident(OnlyOneValue)operator(;)
  ident(TakeAsMainValueMI)operator(.)ident(Visible) operator(:=) ident(OnlyOneValue)operator(;)
  ident(RenameMI)operator(.)ident(Visible) operator(:=) ident(OneValueOK)operator(;)
  ident(DeleteMI)operator(.)ident(Visible) operator(:=) ident(ValueOK)operator(;)
  ident(ZeromizeMI)operator(.)ident(Visible) operator(:=) ident(ValueOK)operator(;)

  ident(Item) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(TakeAsMainValueMI)operator(.)ident(Checked) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\)) operator(=) ident(PrefWin)operator(.)ident(MainPreviewE)operator(.)ident(Text)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) ident(ValueList)operator(.)ident(IsEditing) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(csDestroying) reserved(in) ident(MainWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)
  ident(MainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(,) ident(Key)operator(,) ident(Shift)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListDeletion)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(SpyThread)operator(\)) reserved(then)
    ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;)

  reserved(if) ident(csDestroying) reserved(in) ident(WorkWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(Assigned)operator(()ident(ShowPC)operator(.)ident(ActivePage)operator(\))
   reserved(and) ident(Item)operator(.)ident(Selected) reserved(and) ident(Item)operator(.)ident(Focused) reserved(then) reserved(begin)
    ident(ValueList)operator(.)ident(ItemFocused) operator(:=) ident(GetNextBest)operator(()ident(Item)operator(\);)
    ident(WorkWin)operator(.)ident(ReInitShowPC)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(DeleteMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(ValueList)operator(.)ident(IsEditing) reserved(then)
    ident(Exit)operator(;)

  ident(DeleteValue)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(RenameMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\)) reserved(then) reserved(begin)
    ident(ValueLabelClicked) operator(:=) ident(True)operator(;)
    ident(ValueList)operator(.)ident(ItemFocused)operator(.)ident(EditCaption)operator(;)
    ident(ValueLabelClicked) operator(:=) ident(False)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(NewBigEndianMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CreateValue)operator(()ident(rdCardBigEndian)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(NewExpandStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CreateValue)operator(()ident(rdExpandString)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(NewMultiStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CreateValue)operator(()ident(rdMultiString)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(NewStrangeTypeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CreateValue)operator(()ident(TRegDataType)operator(()ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(Tag)operator(\)\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(NewDefaultValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(DefaultItem)operator(:) ident(TListItem)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(if) ident(csDestroying) reserved(in) operator(()ident(TreeWin)operator(.)ident(ComponentState) operator(+) ident(MainWin)operator(.)ident(ComponentState)operator(\)) reserved(then)
    ident(Exit)operator(;)
  reserved(if) ident(TreeWin)operator(.)ident(CantWrite) reserved(then)
    ident(Exit)operator(;)

  reserved(with) ident(MainReg) reserved(do) reserved(begin)
    reserved(try)
      ident(OpenCurKey)operator(;)

      reserved(if) ident(StandardValueExists) reserved(then) reserved(begin)
        ident(ShowMessage)operator(()string<delimiter(')content(Default Value already exists.)delimiter(')>operator(\);)
        ident(CloseKey)operator(;)
      ident(Exit)operator(;) reserved(end)operator(;)

      ident(WriteString)operator(()string<delimiter(')delimiter(')>operator(,) string<delimiter(')delimiter(')>operator(\);)

      reserved(if) reserved(not) ident(StandardValueExists) reserved(then) reserved(begin)
        ident(ShowMessage)operator(()string<delimiter(')content(Could not create Default Value.)delimiter(')>operator(\);)
        ident(CloseKey)operator(;)
      ident(Exit)operator(;) reserved(end)operator(;)

      ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(MainReg)operator(,) string<delimiter(')delimiter(')>operator(\);)
    reserved(finally)
      ident(CloseKey)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) reserved(begin)
    ident(DefaultItem) operator(:=) reserved(nil)operator(;)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do)
      reserved(if) ident(ItemIsDefaultValue)operator(()ident(Item)operator([)ident(i)operator(]\)) reserved(then)
        ident(Break)operator(;)

    reserved(if) ident(i) operator(<) ident(Count) reserved(then)
      ident(DefaultItem) operator(:=) ident(Item)operator([)ident(i)operator(];)
  reserved(end)operator(;)

  reserved(if) reserved(not) ident(Assigned)operator(()ident(DefaultItem)operator(\)) reserved(then)
    ident(ShowMessage)operator(()string<delimiter(')content(Error: Lost Default Value!)delimiter(')>operator(\))
  reserved(else) reserved(begin)
    ident(SelectItemOnly)operator(()ident(ValueList)operator(,) ident(DefaultItem)operator(\);)
    ident(MainWin)operator(.)ident(StatusBarUpdate)operator(;)
    ident(ValueListDblClick)operator(()ident(Sender)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item)operator(:) ident(TListItem)operator(;)
  ident(Change)operator(:) ident(TItemChange)operator(;) reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);)
reserved(begin)
  reserved(if) ident(Item) operator(=) reserved(nil) reserved(then)
    ident(AllowChange) operator(:=) ident(False)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
reserved(begin)
  ident(ValueLabelClicked) operator(:=) ident(False)operator(;)
  reserved(with) ident(ValueList) reserved(do)
    reserved(if) operator(([)ident(htOnIcon)operator(,) ident(htOnLabel)operator(]) operator(*) ident(GetHitTestInfoAt)operator(()ident(X)operator(,) ident(Y)operator(\)\)) operator(<>) operator([]) reserved(then)
      ident(ValueLabelClicked) operator(:=) ident(True)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(EditBinaryMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(csDestroying) reserved(in) ident(WorkWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  ident(WorkWin)operator(.)ident(ShowAsBinary) operator(:=) ident(True)operator(;)
  ident(ValueListChange)operator(()ident(Sender)operator(,) ident(ValueList)operator(.)ident(ItemFocused)operator(,) ident(ctState)operator(\);)
  ident(ValueListDblClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(EditMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ValueListDblClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListCustomDrawSubItem)operator(()ident(Sender)operator(:) ident(TCustomListView)operator(;)
  ident(Item)operator(:) ident(TListItem)operator(;) ident(SubItem)operator(:) ident(Integer)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;)
  reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);)
reserved(begin)
  reserved(with) ident(ValueList)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin)
    ident(Style) operator(:=) operator([];)
    reserved(if) ident(SubItem) operator(=) integer(1) reserved(then)
      ident(Color) operator(:=) ident(clSilver)
    reserved(else)
      ident(Color) operator(:=) ident(ColorOfDataType)operator(()ident(TRegDataType)operator(()ident(Item)operator(.)ident(ImageIndex) operator(-) ident(iconFirstType)operator(\)\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListCompare)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Item1)operator(,) ident(Item2)operator(:) ident(TListItem)operator(;)
  ident(Data)operator(:) ident(Integer)operator(;) reserved(var) ident(Compare)operator(:) ident(Integer)operator(\);)
reserved(begin)
  reserved(case) ident(SortBy) reserved(of)
    ident(vlcName)operator(:) ident(Compare) operator(:=) ident(AnsiCompareText)operator(()ident(RealValueName)operator(()ident(Item1)operator(\),) ident(RealValueName)operator(()ident(Item2)operator(\)\);)
    ident(vlcSize)operator(:) ident(Compare) operator(:=) ident(Integer)operator(()
      ident(StrToIntDef)operator(()ident(Item1)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcSize)operator(]],) operator(-)integer(1)operator(\)) operator(>)
      ident(StrToIntDef)operator(()ident(Item2)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcSize)operator(]],) operator(-)integer(1)operator(\)\);)
    ident(vlcData)operator(:) ident(Compare) operator(:=) ident(Integer)operator(()ident(Item1)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcData)operator(]]) operator(>)
      ident(Item2)operator(.)ident(SubItems)operator([)ident(SubItemIndex)operator([)ident(vlcData)operator(]]\);)
    ident(vlcType)operator(:) ident(Compare) operator(:=) ident(Integer)operator(()ident(Item1)operator(.)ident(ImageIndex) operator(>) ident(Item2)operator(.)ident(ImageIndex)operator(\);)
  reserved(end)operator(;)

  reserved(if) ident(Assigned)operator(()ident(SortByColumn)operator(\))
   reserved(and) operator(()ident(SortByColumn)operator(.)ident(ImageIndex) operator(=) ident(iconSortArrowDesc)operator(\)) reserved(then)
    ident(Compare) operator(:=) integer(1) operator(-) ident(Compare)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListColumnClick)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Column)operator(:) ident(TListColumn)operator(\);)
reserved(begin)
  reserved(case) ident(Column)operator(.)ident(ImageIndex) reserved(of)
    ident(iconSortArrowAsc)operator(:) ident(Column)operator(.)ident(ImageIndex) operator(:=) ident(iconSortArrowDesc)operator(;)
    ident(iconSortArrowDesc)operator(:) ident(Column)operator(.)ident(ImageIndex) operator(:=) operator(-)integer(1)operator(;)
  reserved(else)
    reserved(if) ident(Assigned)operator(()ident(SortByColumn)operator(\)) reserved(then)
      ident(SortByColumn)operator(.)ident(ImageIndex) operator(:=) operator(-)integer(1)operator(;)
    reserved(if) ident(TValueListColumn)operator(()ident(Column)operator(.)ident(Tag)operator(\)) reserved(in) ident(ValueListColumnRange) reserved(then)
      ident(SortBy) operator(:=) ident(TValueListColumn)operator(()ident(Column)operator(.)ident(Tag)operator(\))
    reserved(else)
      ident(ShowMessage)operator(()string<delimiter(')content(Unknown Column Tag)delimiter(')>operator(\);)
    ident(Column)operator(.)ident(ImageIndex) operator(:=) ident(iconSortArrowAsc)operator(;)
  reserved(end)operator(;)

  reserved(if) ident(Column)operator(.)ident(ImageIndex) operator(=) operator(-)integer(1) reserved(then)
    ident(ValueList)operator(.)ident(SortType) operator(:=) ident(stNone)
  reserved(else) reserved(begin)
    ident(ValueList)operator(.)ident(SortType) operator(:=) ident(stData)operator(;)
    ident(SortByColumn) operator(:=) ident(Column)operator(;)
  reserved(end)operator(;)

  ident(Update)operator(;)
  ident(ValueList)operator(.)ident(AlphaSort)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(CloneValue)operator(;)
reserved(var)
  ident(OldName)operator(,) ident(NewName)operator(:) reserved(string)operator(;)

  reserved(function) ident(GetNewName)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(;) reserved(const) ident(OldName)operator(:) reserved(string)operator(\):) reserved(string)operator(;)
  reserved(var)
    ident(i)operator(:) ident(Integer)operator(;)
    ident(Prefix)operator(:) reserved(string)operator(;)
  reserved(begin)
    reserved(if) ident(OldName) operator(=) string<delimiter(')delimiter(')> reserved(then)
      ident(Result) operator(:=) string<delimiter(')content(New Default Value)delimiter(')>
    reserved(else) reserved(if) ident(Copy)operator(()ident(OldName)operator(,) integer(1)operator(,) integer(4)operator(\)) operator(<>) string<delimiter(')content(New )delimiter(')> reserved(then)
      ident(Result) operator(:=) string<delimiter(')content(New )delimiter(')> operator(+) ident(OldName)
    reserved(else)
      ident(Result) operator(:=) ident(OldName)operator(;)

    ident(Prefix) operator(:=) ident(Result)operator(;)
    ident(i) operator(:=) integer(1)operator(;)
    reserved(while) ident(Reg)operator(.)ident(ValueExists)operator(()ident(Result)operator(\)) reserved(do) reserved(begin)
      ident(Result) operator(:=) ident(Prefix) operator(+) char<delimiter(')content( )delimiter(')> operator(+) ident(IntToStr)operator(()ident(i)operator(\);)
      ident(Inc)operator(()ident(i)operator(\);)
    reserved(end)operator(;)
  reserved(end)operator(;)

reserved(begin)
  reserved(if) ident(csDestroying) reserved(in) ident(TreeWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(TreeWin)operator(.)ident(CantWrite) reserved(then)
    ident(Exit)operator(;)

  ident(OldName) operator(:=) ident(RealValueName)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\);)

  reserved(try)
    ident(OpenCurKey)operator(;)

    ident(NewName) operator(:=) ident(GetNewName)operator(()ident(MainReg)operator(,) ident(OldName)operator(\);)
    ident(MainReg)operator(.)ident(CopyValue)operator(()ident(OldName)operator(,) ident(NewName)operator(\);)
    ident(AddValue)operator(()ident(MainReg)operator(,) ident(NewName)operator(\);)
  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(DublicateMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CloneValue)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(CopyDataPreviewMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(ValueList)operator(.)ident(IsEditing) reserved(then)
    ident(Exit)operator(;)

  ident(CopyDataPreview)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(CopyDataPreview)operator(;)
reserved(begin)
  ident(OpenCurKey)operator(;)
  ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(DataPreviewOfContext)operator(()ident(MainReg)operator(.)ident(ReadContext)operator(()
    ident(RealValueName)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\)\)\);)
  ident(MainReg)operator(.)ident(CloseKey)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(UpdateValues)operator(()ident(SelectedOnly)operator(:) ident(Boolean) operator(=) ident(False)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(Reg)operator(:) ident(TXRegistry)operator(;)
reserved(begin)
  reserved(if) reserved(not) ident(Started) reserved(then)
    ident(Exit)operator(;)

  ident(SpyThread)operator(.)ident(Suspend)operator(;)

  ident(Reg) operator(:=) ident(TXRegistry)operator(.)ident(Create)operator(;)
  reserved(try)
    reserved(if) ident(OpenNodeOK)operator(()ident(Reg)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\)) reserved(then)
      reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) reserved(begin)
        reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
          reserved(if) ident(SelectedOnly) reserved(and) reserved(not) ident(Item)operator([)ident(i)operator(].)ident(Selected) reserved(then)
            ident(Continue)operator(;)
          ident(UpdateValue)operator(()ident(Reg)operator(,) ident(Item)operator([)ident(i)operator(]\);)
        reserved(end)operator(;)
      reserved(end)operator(;)
  reserved(finally)
    ident(Reg)operator(.)ident(Free)operator(;)
  reserved(end)operator(;)

  ident(SpyThread)operator(.)ident(Resume)operator(;)
reserved(end)operator(;)

reserved(function) ident(TValuesWin)operator(.)ident(TryRenameValue)operator(()ident(OldName)operator(:) reserved(string)operator(;)
  reserved(var) ident(NewName)operator(:) reserved(string)operator(\):) ident(Boolean)operator(;)
reserved(var)
  ident(x)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(False)operator(;)
  reserved(if) ident(OldName) operator(=) ident(NewName) reserved(then)
    ident(Exit)operator(;)

  reserved(if) operator(()ident(Length)operator(()ident(NewName)operator(\)) operator(>) ident(RegMaxValueNameLen)operator(\)) reserved(then) reserved(begin)
    ident(NewName) operator(:=) ident(Copy)operator(()ident(NewName)operator(,) integer(1)operator(,) ident(RegMaxValueNameLen)operator(\);)
    reserved(if) ident(MessageDlg)operator(()
     string<delimiter(')content(The maximum size of a value name is )delimiter(')> operator(+) ident(IntToStr)operator(()ident(RegMaxValueNameLen)operator(\)) operator(+) string<delimiter(')content( characters.)delimiter(')> operator(+) ident(EOL) operator(+)
     string<delimiter(')content(Shorten the value name to:)delimiter(')> operator(+) ident(EOL) operator(+)
     ident(Quote)operator(()ident(StringWrap)operator(()ident(NewName)operator(,) integer(80)operator(\)\),)
     ident(mtConfirmation)operator(,) operator([)ident(mbOK)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) operator(<>) ident(mrOK) reserved(then)
      ident(Exit)operator(;)
  reserved(end)operator(;)

  reserved(if) ident(CharIn)operator(()ident(NewName)operator(,) operator([)char(#0)operator(..)char(#31)operator(]\)) reserved(then) reserved(begin)
    ident(NewName) operator(:=) ident(ReplaceChars)operator(()ident(NewName)operator(,) operator([)char(#0)operator(..)char(#31)operator(],) char<delimiter(')content(#)delimiter(')>operator(\);)
    reserved(if) ident(MessageDlg)operator(()string<delimiter(')content(The following chars are not allowed in ValueNames:)delimiter(')> operator(+) ident(EOL) operator(+)
     string<delimiter(')content(- Control chars (#0..#31\))delimiter(')> operator(+) ident(EOL) operator(+)
     string<delimiter(')content(The following name is allowed:)delimiter(')> operator(+) ident(EOL) operator(+)
     ident(NewName) operator(+) ident(EOL) operator(+)
     string<delimiter(')content(Use this name instead?)delimiter(')>operator(,)
     ident(mtConfirmation)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(],) integer(0)operator(\)) operator(<>) ident(mrYes) reserved(then)
      ident(Exit)operator(;)
  reserved(end)operator(;)

  reserved(if) reserved(not) ident(OpenCurKey) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(SameText)operator(()ident(OldName)operator(,) ident(NewName)operator(\)) reserved(then) reserved(begin) comment(//CharCase ändern)
    ident(x) operator(:=) ident(MainReg)operator(.)ident(GetFreeValueName)operator(;)
    ident(MainReg)operator(.)ident(RenameValue)operator(()ident(OldName)operator(,) ident(x)operator(\);)
    ident(MainReg)operator(.)ident(RenameValue)operator(()ident(x)operator(,) ident(NewName)operator(\);)
  reserved(end) reserved(else) reserved(begin)
    reserved(if) reserved(not) ident(MainReg)operator(.)ident(ValueReallyExists)operator(()ident(NewName)operator(\)) reserved(then) reserved(begin)
      ident(MainReg)operator(.)ident(RenameValue)operator(()ident(OldName)operator(,) ident(NewName)operator(\);)
    reserved(end) reserved(else) reserved(begin)
      reserved(if) ident(NewName) operator(=) string<delimiter(')delimiter(')> reserved(then)
        ident(ShowMessage)operator(()string<delimiter(')content(Default value already exists.)delimiter(')>operator(\))
      reserved(else)
        ident(ShowMessage)operator(()string<delimiter(')content(Value )delimiter(')> operator(+) ident(Quote)operator(()ident(NewName)operator(\)) operator(+) string<delimiter(')content( already exists.)delimiter(')>operator(\);)
    ident(Exit)operator(;) reserved(end)operator(;)
  reserved(end)operator(;)
  ident(MainReg)operator(.)ident(CloseKey)operator(;)

  reserved(if) ident(TextIn)operator(()ident(NewName)operator(,) string<delimiter(')content(default)delimiter(')>operator(\)) reserved(then)
    ident(AddHint)operator(()string<delimiter(')content(You can create default values by empty string ValueNames.)delimiter(')>operator(\);)
    
  ident(Result) operator(:=) ident(True)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ZeromizeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ZeromizeValue)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(CopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(ValueList)operator(.)ident(IsEditing) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(csDestroying) reserved(in) ident(MainWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  ident(MainWin)operator(.)ident(CopyPathClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(function) ident(TValuesWin)operator(.)ident(FindItemByRealName)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(\):) ident(Integer)operator(;)
reserved(begin)
  reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) reserved(begin)
    reserved(for) ident(Result) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do)
      reserved(if) ident(SameText)operator(()ident(RealValueName)operator(()ident(Item)operator([)ident(Result)operator(]\),) ident(ValueName)operator(\)) reserved(then)
        ident(Exit)operator(;)
  reserved(end)operator(;)
  ident(Result) operator(:=) operator(-)integer(1)operator(;)
reserved(end)operator(;)

reserved(function) ident(TValuesWin)operator(.)ident(FocusItem)operator(()ident(ARealValueName)operator(:) reserved(string)operator(;)
  ident(FocusValueList)operator(:) ident(Boolean) operator(=) ident(False)operator(\):) ident(Boolean)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(with) ident(ValueList) reserved(do) reserved(begin)
    ident(i) operator(:=) ident(FindItemByRealName)operator(()ident(ARealValueName)operator(\);)

    reserved(if) operator(()ident(i) operator(>) operator(-)integer(1)operator(\)) reserved(and) operator(()ident(i) operator(<) ident(Items)operator(.)ident(Count)operator(\)) reserved(then)
      ident(Selected) operator(:=) ident(Items)operator([)ident(i)operator(])
    reserved(else)
      ident(Selected) operator(:=) reserved(nil)operator(;)

    ident(ItemFocused) operator(:=) ident(Selected)operator(;)

    ident(Result) operator(:=) ident(Assigned)operator(()ident(Selected)operator(\);)
    reserved(if) ident(Result) reserved(then)
      ident(JumpToSel)operator(()ident(ValueList)operator(\);)

    reserved(if) ident(FocusValueList) reserved(then)
      ident(FocusControl)operator(()ident(ValueList)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(TakeAsMainValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Item)operator(:) ident(TListItem)operator(;)
  ident(ValueName)operator(:) reserved(string)operator(;)
reserved(begin)
  reserved(if) ident(csDestroying) reserved(in) ident(PrefWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  ident(Item) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Item)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(ValueName) operator(:=) ident(RealValueName)operator(()ident(Item)operator(\);)
  reserved(with) ident(PrefWin)operator(.)ident(MainPreviewE) reserved(do)
    reserved(if) ident(ValueName) operator(=) ident(Text) reserved(then)
      ident(Text) operator(:=) string<delimiter(')delimiter(')>
    reserved(else)
      ident(Text) operator(:=) ident(ValueName)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(InitListColumnTags)operator(;)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(ValueList)operator(.)ident(Columns)operator(.)ident(Count)operator(-)integer(1) reserved(do)
    reserved(with) ident(ValueList)operator(.)ident(Columns)operator(.)ident(Items)operator([)ident(i)operator(]) reserved(do) reserved(begin)
      ident(Tag) operator(:=) operator(-)integer(1)operator(;)
      reserved(if) ident(Caption) operator(=) string<delimiter(')content(Name)delimiter(')> reserved(then)
        ident(Tag) operator(:=) ident(Integer)operator(()ident(vlcName)operator(\))
      reserved(else) reserved(if) ident(Caption) operator(=) string<delimiter(')content(Size)delimiter(')> reserved(then)
        ident(Tag) operator(:=) ident(Integer)operator(()ident(vlcSize)operator(\))
      reserved(else) reserved(if) ident(Caption) operator(=) string<delimiter(')content(Type)delimiter(')> reserved(then)
        ident(Tag) operator(:=) ident(Integer)operator(()ident(vlcType)operator(\))
      reserved(else) reserved(if) ident(Caption) operator(=) string<delimiter(')content(Data)delimiter(')> reserved(then)
        ident(Tag) operator(:=) ident(Integer)operator(()ident(vlcData)operator(\))
      reserved(else)
        ident(ShowMessage)operator(()ident(Format)operator(()string<delimiter(')content(Error: Unknown ValueList.Columns[%d].Caption = "%s")delimiter(')>operator(,)
          operator([)ident(Index)operator(,) ident(Caption)operator(]\)\);)
      reserved(if) ident(Tag) operator(>) operator(-)integer(1) reserved(then)
        ident(SubItemIndex)operator([)ident(TValueListColumn)operator(()ident(Tag)operator(\)]) operator(:=) ident(Index) operator(-) integer(1)operator(;)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(FormShow)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(InitListColumnTags)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(Reload)operator(()ident(JumpToNewValue)operator(:) ident(Boolean) operator(=) ident(False)operator(;)
  ident(ValueName)operator(:) reserved(string) operator(=) string<delimiter(')delimiter(')>operator(\);)
reserved(var)
  ident(Sel)operator(:) ident(TListItem)operator(;)
  ident(SelIndex)operator(:) ident(Integer)operator(;)
  ident(SelRealValueName)operator(:) reserved(string)operator(;)
reserved(begin)
  reserved(if) ident(csDestroying) reserved(in) ident(TreeWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  ident(SelIndex) operator(:=) operator(-)integer(1)operator(;)
  reserved(if) ident(JumpToNewValue) reserved(then)
    ident(SelRealValueName) operator(:=) ident(ValueName)
  reserved(else) reserved(begin)
    ident(Sel) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;)
    reserved(if) ident(Assigned)operator(()ident(Sel)operator(\)) reserved(then)
      ident(SelIndex) operator(:=) ident(Sel)operator(.)ident(Index)operator(;)

    reserved(if) ident(SelIndex) operator(>) operator(-)integer(1) reserved(then)
      ident(SelRealValueName) operator(:=) ident(RealValueName)operator(()ident(ValueList)operator(.)ident(Items)operator([)ident(SelIndex)operator(]\);)
  reserved(end)operator(;)

  ident(TreeWin)operator(.)ident(RegTVChange)operator(()ident(Self)operator(,) ident(RegTV)operator(.)ident(Selected)operator(\);)

  reserved(if) ident(SelIndex) operator(>) operator(-)integer(1) reserved(then)
    reserved(if) reserved(not) ident(FocusItem)operator(()ident(SelRealValueName)operator(,) ident(True)operator(\)) reserved(then) reserved(begin)
      ident(SelIndex) operator(:=) ident(GetBestIndex)operator(()ident(ValueList)operator(,) ident(SelIndex)operator(\);)
      reserved(if) ident(SelIndex) operator(>) operator(-)integer(1) reserved(then)
        reserved(with) ident(ValueList) reserved(do) reserved(begin)
          ident(Selected) operator(:=) ident(Items)operator([)ident(SelIndex)operator(];)
          ident(ItemFocused) operator(:=) ident(Selected)operator(;)
        reserved(end)operator(;)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(LoadValues)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(\);)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(Clock)operator(:) ident(TClock)operator(;)
reserved(begin)
  reserved(if) ident(csDestroying) reserved(in) ident(WorkWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do) reserved(begin)
    ident(Clock) operator(:=) ident(TClock)operator(.)ident(Create)operator(()integer(1)operator(,) ident(tfSecs)operator(\);)
    ident(ValueList)operator(.)ident(Enabled) operator(:=) ident(False)operator(;)
    ident(BeginUpdate)operator(;)
    reserved(try)
      ident(Clear)operator(;)
      ident(WorkWin)operator(.)ident(ReInitShowPC)operator(;)

      ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
      reserved(try)
        ident(Reg)operator(.)ident(GetValueNames)operator(()ident(SL)operator(\);)
        reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do)
          ident(ValuesWin)operator(.)ident(AddValue)operator(()ident(Reg)operator(,) ident(SL)operator([)ident(i)operator(]\);)
      reserved(finally)
        ident(SL)operator(.)ident(Free)operator(;)
      reserved(end)operator(;)

    reserved(finally)
      ident(EndUpdate)operator(;)
      ident(ValueList)operator(.)ident(Enabled) operator(:=) ident(True)operator(;)
      ident(Clock)operator(.)ident(Stop)operator(;)
      reserved(if) ident(MurphyMode) reserved(then)
        ident(AddHint)operator(()ident(Format)operator(()string<delimiter(')content(Values loaded after %0.2f secs.)delimiter(')>operator(,) operator([)ident(Clock)operator(.)ident(SecsPassed)operator(]\)\);)
      ident(Clock)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);)
reserved(begin)
comment(//  Action := caNone;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(ValueListClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CheckValueListHotTrack)operator(;)
  reserved(if) ident(ValueList)operator(.)ident(HotTrack) reserved(then)
    ident(ValueListDblClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(CheckValueListHotTrack)operator(;)
reserved(const)
  ident(StyleOfSwitch)operator(:) reserved(array)operator([)ident(Boolean)operator(]) reserved(of) ident(TListHotTrackStyles) operator(=) operator(()
    operator([],) operator([)ident(htHandPoint)operator(,) ident(htUnderlineHot)operator(]) operator(\);)
reserved(var)
  ident(NewHotTrack)operator(:) ident(Boolean)operator(;)
reserved(begin)
  reserved(if) ident(csDestroying) reserved(in) ident(PrefWin)operator(.)ident(ComponentState) reserved(then)
    ident(Exit)operator(;)

  ident(NewHotTrack) operator(:=) ident(ScrollON) reserved(xor) ident(PrefWin)operator(.)ident(ValuesSingleClickCB)operator(.)ident(Checked)operator(;)
  reserved(if) ident(NewHotTrack) operator(=) ident(ValueList)operator(.)ident(HotTrack) reserved(then) ident(Exit)operator(;)
  
  reserved(with) ident(ValueList) reserved(do) reserved(begin)
    ident(HotTrack) operator(:=) ident(NewHotTrack)operator(;)
    ident(HotTrackStyles) operator(:=) ident(StyleOfSwitch)operator([)ident(HotTrack)operator(];)
    ident(Mouse)operator(.)ident(CursorPos) operator(:=) ident(Mouse)operator(.)ident(CursorPos)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(SelectAllMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do)
      ident(Item)operator([)ident(i)operator(].)ident(Selected) operator(:=) ident(True)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(InvertSelectionMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(with) ident(ValueList)operator(.)ident(Items) reserved(do)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do)
      ident(Item)operator([)ident(i)operator(].)ident(Selected) operator(:=) reserved(not) ident(Item)operator([)ident(i)operator(].)ident(Selected)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TValuesWin)operator(.)ident(FormDestroy)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ValueNames)operator(.)ident(Free)operator(;)
reserved(end)operator(;)

reserved(end)operator(.)
reserved(unit) ident(WorkU)operator(;)

reserved(interface)

reserved(uses)
  ident(Windows)operator(,) ident(Messages)operator(,) ident(SysUtils)operator(,) ident(Variants)operator(,) ident(Classes)operator(,) ident(Graphics)operator(,) ident(Controls)operator(,) ident(Forms)operator(,)
  ident(Dialogs)operator(,) ident(StdCtrls)operator(,) ident(ComCtrls)operator(,) ident(NewPanels)operator(,) ident(Grids)operator(,) ident(Clipbrd)operator(,)
  ident(IntEdit)operator(,) ident(ExtCtrls)operator(,) ident(Menus)operator(,) ident(YTools)operator(,) ident(CompEx)operator(,) ident(PlutoConst)operator(,)
  ident(XReg)operator(,) ident(Clock)operator(,) ident(Colors)operator(,) ident(ShellAPI)operator(,) ident(IniFiles)operator(,) ident(Math)operator(,)
  ident(keybrd)operator(,) ident(Buttons)operator(,) ident(YTypes)operator(,) ident(LinkLabel)operator(,) ident(start)operator(,)
  ident(PrefTools)operator(,) ident(ImgList)operator(,) ident(PHexMemo)operator(,) ident(PipelineTh)operator(,) ident(DropSource)operator(,) ident(DropTarget)operator(,)
  ident(CrackTools)operator(;)

reserved(type)
  ident(TColorStringFmt) operator(=) operator(()ident(csfThreeSpacedDecimals)operator(\);)

  ident(TWorkWin) operator(=) reserved(class)operator(()ident(TForm)operator(\))
    ident(StringPU)operator(:) ident(TPopupMenu)operator(;)
    ident(SpaceMI)operator(:) ident(TMenuItem)operator(;)
    ident(FileMI)operator(:) ident(TMenuItem)operator(;)
    ident(FileOpenD)operator(:) ident(TOpenDialog)operator(;)
    ident(MainPC)operator(:) ident(TPageControl)operator(;)
    ident(HintPage)operator(:) ident(TTabSheet)operator(;)
    ident(Splitter1)operator(:) ident(TSplitter)operator(;)
    ident(HintLB)operator(:) ident(TListBox)operator(;)
    ident(InfoMemo)operator(:) ident(TMemo)operator(;)
    ident(WorkPage)operator(:) ident(TTabSheet)operator(;)
    ident(WorkP)operator(:) ident(TPanel)operator(;)
    ident(ShowPC)operator(:) ident(TPageControl)operator(;)
    ident(StringPage)operator(:) ident(TTabSheet)operator(;)
    ident(BorderPanel1)operator(:) ident(TBorderPanel)operator(;)
    ident(StringE)operator(:) ident(TEdit)operator(;)
    ident(OKStringB)operator(:) ident(TButton)operator(;)
    ident(BoolStrCB)operator(:) ident(TCheckBox)operator(;)
    ident(CancelStringB)operator(:) ident(TButton)operator(;)
    ident(StringAsColorP)operator(:) ident(TPanel)operator(;)
    ident(StringAsFileP)operator(:) ident(TBorderPanel)operator(;)
    ident(IconImage)operator(:) ident(TImage)operator(;)
    ident(IntPage)operator(:) ident(TTabSheet)operator(;)
    ident(BorderPanel5)operator(:) ident(TBorderPanel)operator(;)
    ident(OKIntB)operator(:) ident(TButton)operator(;)
    ident(CardBoolCB)operator(:) ident(TCheckBox)operator(;)
    ident(CancelIntB)operator(:) ident(TButton)operator(;)
    ident(BinaryPage)operator(:) ident(TTabSheet)operator(;)
    ident(BorderPanel6)operator(:) ident(TBorderPanel)operator(;)
    ident(Panel2)operator(:) ident(TPanel)operator(;)
    ident(Label5)operator(:) ident(TLabel)operator(;)
    ident(OffsetHE)operator(:) ident(THexEdit)operator(;)
    ident(OKBinaryB)operator(:) ident(TButton)operator(;)
    ident(CancelBinaryB)operator(:) ident(TButton)operator(;)
    ident(StringTypeRG)operator(:) ident(TRadioGroup)operator(;)
    ident(SpyPage)operator(:) ident(TTabSheet)operator(;)
    ident(BorderPanel2)operator(:) ident(TBorderPanel)operator(;)
    ident(SpyResumeB)operator(:) ident(TButton)operator(;)
    ident(SpySuspendB)operator(:) ident(TButton)operator(;)
    ident(SpyLB)operator(:) ident(TListBox)operator(;)
    ident(Label4)operator(:) ident(TLabel)operator(;)
    ident(Label7)operator(:) ident(TLabel)operator(;)
    ident(CardTypeRG)operator(:) ident(TRadioGroup)operator(;)
    ident(MultiStringPage)operator(:) ident(TTabSheet)operator(;)
    ident(BorderPanel7)operator(:) ident(TBorderPanel)operator(;)
    ident(OKMultiStringB)operator(:) ident(TButton)operator(;)
    ident(CancelMultiStringB)operator(:) ident(TButton)operator(;)
    ident(MultiStringM)operator(:) ident(TMemo)operator(;)
    ident(DataTypeComB)operator(:) ident(TComboBox)operator(;)
    ident(CardinalE)operator(:) ident(TCardEdit)operator(;)
    ident(ColorDlg)operator(:) ident(TColorDialog)operator(;)
    ident(MultiStringOpenD)operator(:) ident(TOpenDialog)operator(;)
    ident(MultiStringSaveD)operator(:) ident(TSaveDialog)operator(;)
    ident(MultiStringPU)operator(:) ident(TPopupMenu)operator(;)
    ident(LadenMI)operator(:) ident(TMenuItem)operator(;)
    ident(SpeichernMI)operator(:) ident(TMenuItem)operator(;)
    ident(Hinzufgen1)operator(:) ident(TMenuItem)operator(;)
    ident(N1)operator(:) ident(TMenuItem)operator(;)
    ident(SisyPage)operator(:) ident(TTabSheet)operator(;)
    ident(SpyClearTracesB)operator(:) ident(TButton)operator(;)
    ident(Label11)operator(:) ident(TLabel)operator(;)
    ident(HexEdit1)operator(:) ident(THexEdit)operator(;)
    ident(Label12)operator(:) ident(TLabel)operator(;)
    ident(Label13)operator(:) ident(TLabel)operator(;)
    ident(SortMultiStringMI)operator(:) ident(TMenuItem)operator(;)
    ident(SpyTestL)operator(:) ident(TLabel)operator(;)
    ident(Panel3)operator(:) ident(TPanel)operator(;)
    ident(CurValueE)operator(:) ident(TEdit)operator(;)
    ident(BorderPanel8)operator(:) ident(TBorderPanel)operator(;)
    ident(BorderPanel9)operator(:) ident(TBorderPanel)operator(;)
    ident(SisyTV)operator(:) ident(TTreeView)operator(;)
    ident(TabImages)operator(:) ident(TImageList)operator(;)
    ident(ChangeImages)operator(:) ident(TImageList)operator(;)
    ident(Panel7)operator(:) ident(TPanel)operator(;)
    ident(ColorPanel1)operator(:) ident(TColorPanel)operator(;)
    ident(Splitter2)operator(:) ident(TSplitter)operator(;)
    ident(SpyDelayIE)operator(:) ident(TPrefIntEdit)operator(;)
    ident(ListTracesCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(Panel5)operator(:) ident(TPanel)operator(;)
    ident(Panel8)operator(:) ident(TPanel)operator(;)
    ident(SisyExpandGroupsCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(ClearChangesB)operator(:) ident(TButton)operator(;)
    ident(FilterChangesB)operator(:) ident(TButton)operator(;)
    ident(SisyTVPU)operator(:) ident(TPopupMenu)operator(;)
    ident(SisyGotoKeyMI)operator(:) ident(TMenuItem)operator(;)
    ident(SisyDeleteChangeMI)operator(:) ident(TMenuItem)operator(;)
    ident(SisyActivateChangeMI)operator(:) ident(TMenuItem)operator(;)
    ident(N3)operator(:) ident(TMenuItem)operator(;)
    ident(SisyCopyPathMI)operator(:) ident(TMenuItem)operator(;)
    ident(N4)operator(:) ident(TMenuItem)operator(;)
    ident(Panel9)operator(:) ident(TPanel)operator(;)
    ident(ExternalEditB)operator(:) ident(TButton)operator(;)
    ident(LoadExternalB)operator(:) ident(TButton)operator(;)
    ident(ReloadStringB)operator(:) ident(TButton)operator(;)
    ident(BinaryHM)operator(:) ident(TPHexMemo)operator(;)
    ident(PipelineCB)operator(:) ident(TCheckBox)operator(;)
    ident(ReloadDWordB)operator(:) ident(TButton)operator(;)
    ident(ReloadBinaryB)operator(:) ident(TButton)operator(;)
    ident(ReloadMultiStringB)operator(:) ident(TButton)operator(;)
    ident(DescL)operator(:) ident(TLabel)operator(;)
    ident(SisyHKUCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(SisyHKLMCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(SisyHKUL)operator(:) ident(TLabel)operator(;)
    ident(SisyHKLML)operator(:) ident(TLabel)operator(;)
    ident(SisyListCB)operator(:) ident(TPrefCheckBox)operator(;)
    ident(CardSpecial0B)operator(:) ident(TButton)operator(;)
    ident(CardSpecial1B)operator(:) ident(TButton)operator(;)
    ident(CardSpecial_1B)operator(:) ident(TButton)operator(;)
    ident(CardSpecial7FB)operator(:) ident(TButton)operator(;)
    ident(SisyPU)operator(:) ident(TPopupMenu)operator(;)
    ident(Idle1)operator(:) ident(TMenuItem)operator(;)
    ident(Lowest1)operator(:) ident(TMenuItem)operator(;)
    ident(Lower1)operator(:) ident(TMenuItem)operator(;)
    ident(Normal1)operator(:) ident(TMenuItem)operator(;)
    ident(Higher1)operator(:) ident(TMenuItem)operator(;)
    ident(Highes1)operator(:) ident(TMenuItem)operator(;)
    ident(SisyShowCurrentPathMI)operator(:) ident(TMenuItem)operator(;)
    ident(N5)operator(:) ident(TMenuItem)operator(;)
    ident(MultiStringTypeRG)operator(:) ident(TRadioGroup)operator(;)
    ident(SeparatorE)operator(:) ident(TEdit)operator(;)
    ident(Label1)operator(:) ident(TLabel)operator(;)
    ident(MultiStringCountL)operator(:) ident(TLabel)operator(;)
    ident(DropFileTarget)operator(:) ident(TDropFileTarget)operator(;)
    ident(CryptoPage)operator(:) ident(TTabSheet)operator(;)
    ident(BorderPanel3)operator(:) ident(TBorderPanel)operator(;)
    ident(CryptoE)operator(:) ident(TEdit)operator(;)
    ident(OKCryptoB)operator(:) ident(TButton)operator(;)
    ident(CancelCryptoB)operator(:) ident(TButton)operator(;)
    ident(ReloadCryptoB)operator(:) ident(TButton)operator(;)
    ident(CryptoTypeRG)operator(:) ident(TRadioGroup)operator(;)
    ident(Label2)operator(:) ident(TLabel)operator(;)
    ident(LinkLabel2)operator(:) ident(TLinkLabel)operator(;)
    reserved(procedure) ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(SpyResumeBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SpySuspendBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ArrPlutoBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ArrRegEdBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ArrFreeBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ArrBigValBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(procedure) ident(SpaceMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FileMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(HintLBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(MainPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(ValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(StringEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(StringEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(OKStringBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(BoolStrCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CardinalEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CardBoolCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CardinalEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(OKIntBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ShowPCChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ShowPCChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(ShowPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) ident(TabIndex)operator(:) ident(Integer)operator(;) reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(ShowPCMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
    reserved(procedure) ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(OKBinaryBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(HexGrid1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(HexGrid1KeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(BoolStrPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(StringPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(IntPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(BinaryPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ReInitShowPC)operator(;)
    reserved(procedure) ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(MultiStringMChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(OKMultiStringBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(StringAsColorPDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(MultiStringMEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(LadenMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SpeichernMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(Hinzufgen1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CancelBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(HexGrid1Enter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SpyClearTracesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SpyLBKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    comment(//procedure BinLMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer\);)
    reserved(procedure) ident(BinLClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(HexGrid1KeyUp)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(ValueViewChanged)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(HexEdit1Change)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SortMultiStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SpyTestLClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FocusForEditing)operator(;)
    reserved(procedure) ident(CurValueEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(CurValueEEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)

    reserved(procedure) ident(AddAHint)operator(()reserved(const) ident(Hint)operator(:) reserved(string)operator(\);)
    reserved(procedure) ident(SisyTVGetSelectedIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(SisyTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(SisyCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(BinaryHMLineChange)operator(()ident(NewLine)operator(:) ident(Cardinal)operator(\);)
    reserved(procedure) ident(OffsetHEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SpyDelayIEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyTVExpanded)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(ClearChangesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(FilterChangesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyTVPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyActivateChangeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyDeleteChangeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyCopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ExternalEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(LoadExternalBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(ReloadBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(PipelineCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(BinaryHMEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(xUseExtendedModelCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SeparatorEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(HintLBKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;) ident(Shift)operator(:) ident(TShiftState)operator(\);)
    reserved(procedure) ident(DWORDSpecialBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(Button1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyPriorityMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyShowCurrentPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(DropFileTargetDrop)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(ShiftState)operator(:) ident(TShiftState)operator(;)
      ident(Point)operator(:) ident(TPoint)operator(;) reserved(var) ident(Effect)operator(:) ident(Integer)operator(\);)
    reserved(procedure) ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);)
    reserved(procedure) ident(FormResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(IconImageDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(SisyTVCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;)
      ident(Node)operator(:) ident(TTreeNode)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);)
    reserved(procedure) ident(SisyTVMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;)
      ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
    reserved(procedure) ident(OKCryptoBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
    reserved(procedure) ident(CryptoEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
      ident(Shift)operator(:) ident(TShiftState)operator(\);)
  directive(private)
    ident(PipelineThread)operator(:) ident(TPipelineThread)operator(;)
    ident(BoolStr)operator(:) reserved(array) reserved(of) reserved(array)operator([)ident(Boolean)operator(]) reserved(of) reserved(string)operator(;)
    ident(HexEditAutoChange)operator(:) ident(Boolean)operator(;)
    ident(TargetPage)operator(:) ident(TTabSheet)operator(;)
    reserved(procedure) ident(DeleteChange)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(DeactivateChange)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)
    reserved(procedure) ident(CopySelectedChangeName)operator(;)
    reserved(procedure) ident(ClearChanges)operator(;)
  directive(public)
    ident(ShowAsBinary)operator(:) ident(Boolean)operator(;)
    reserved(function) ident(LastHint)operator(:) reserved(string)operator(;)
    reserved(function) ident(LoadBoolStr)operator(:) ident(Boolean)operator(;)
    reserved(function) ident(LoadSisyFilter)operator(:) ident(Boolean)operator(;)
    reserved(procedure) ident(ShowValues)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(\);)
    reserved(procedure) ident(UpdateWriteButtons)operator(;)
    reserved(procedure) ident(EditData)operator(;)
  reserved(end)operator(;)

reserved(var)
  ident(WorkWin)operator(:) ident(TWorkWin)operator(;)
  ident(ShowPC)operator(:) ident(TPageControl)operator(;)
  ident(MainPC)operator(:) ident(TPageControl)operator(;)

reserved(implementation)

reserved(uses) ident(TreeU)operator(,) ident(ValuesU)operator(,) ident(plutomain)operator(,) ident(splash)operator(,) ident(SisyphusTH)operator(,) ident(PrefU)operator(,) ident(ShellEx)operator(;)

preprocessor({$R *.dfm})

reserved(function) ident(ColorOfString)operator(()ident(s)operator(:) reserved(string)operator(;) ident(Format)operator(:) ident(TColorStringFmt)operator(;)
  ident(Default)operator(:) ident(TColor) operator(=) ident(clBlack)operator(\):) ident(TColor)operator(;)
reserved(var)
  ident(SA)operator(:) ident(TStrA)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(Default)operator(;)
  ident(SA) operator(:=) reserved(nil)operator(;)

  reserved(case) ident(Format) reserved(of)
    ident(csfThreeSpacedDecimals)operator(:) reserved(begin)
      ident(SA) operator(:=) ident(Split)operator(()ident(s)operator(,) char<delimiter(')content( )delimiter(')>operator(\);)
      reserved(if) ident(Length)operator(()ident(SA)operator(\)) operator(<>) integer(3) reserved(then)
        ident(Exit)operator(;)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) integer(2) reserved(do)
        reserved(if) reserved(not) operator(()ident(IsValidInteger)operator(()ident(SA)operator([)ident(i)operator(]\)) reserved(and) operator(()ident(StrToIntDef)operator(()ident(SA)operator([)ident(i)operator(],) operator(-)integer(1)operator(\)) reserved(in) operator([)integer(0)operator(..)integer(255)operator(]\)\)) reserved(then)
          ident(Exit)operator(;)
      ident(Result) operator(:=) ident(ColorOfRGB)operator(()ident(StrToIntDef)operator(()ident(SA)operator([)integer(0)operator(],) integer(0)operator(\),)
                           ident(StrToIntDef)operator(()ident(SA)operator([)integer(1)operator(],) integer(0)operator(\),)
                           ident(StrToIntDef)operator(()ident(SA)operator([)integer(2)operator(],) integer(0)operator(\)\);)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(StringOfColor)operator(()ident(Color)operator(:) ident(TColor)operator(;) ident(Format)operator(:) ident(TColorStringFmt)operator(\):) reserved(string)operator(;)
reserved(var)
  ident(RGB)operator(:) ident(TRGB)operator(;)
reserved(begin)
  ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;)

  ident(RGB) operator(:=) ident(RGBOfColor)operator(()ident(Color)operator(\);)
  reserved(case) ident(Format) reserved(of)
    ident(csfThreeSpacedDecimals)operator(:) reserved(begin)
      reserved(with) ident(RGB) reserved(do)
        ident(Result) operator(:=) ident(IntToStr)operator(()ident(R)operator(\)) operator(+) char<delimiter(')content( )delimiter(')> operator(+) ident(IntToStr)operator(()ident(G)operator(\)) operator(+) char<delimiter(')content( )delimiter(')> operator(+) ident(IntToStr)operator(()ident(B)operator(\);)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(TWorkWin)operator(.)ident(LastHint)operator(:) reserved(string)operator(;)
reserved(begin)
  reserved(with) ident(HintLB)operator(.)ident(Items) reserved(do)
    reserved(if) ident(Count) operator(>) integer(0) reserved(then)
      ident(Result) operator(:=) ident(Strings)operator([)ident(Count)operator(-)integer(1)operator(])
    reserved(else)
      ident(Result) operator(:=) string<delimiter(')delimiter(')>operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(AddAHint)operator(()reserved(const) ident(Hint)operator(:) reserved(string)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(HintLB)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(with) ident(HintLB)operator(.)ident(Items) reserved(do) reserved(begin)
    reserved(if) ident(Count) operator(>) integer(0) reserved(then) reserved(begin)
      reserved(if) ident(StrAtBegin)operator(()ident(LastHint)operator(,) ident(Hint)operator(\)) reserved(then) reserved(begin) comment(//same hint again)
        reserved(with) ident(HintLB) reserved(do)
          ident(Tag) operator(:=) ident(Tag) operator(+) integer(1)operator(;)
        ident(Strings)operator([)ident(Count)operator(-)integer(1)operator(]) operator(:=) ident(Format)operator(()string<delimiter(')content(%s (%d\))delimiter(')>operator(,) operator([)ident(Hint)operator(,) ident(HintLB)operator(.)ident(Tag)operator(]\);)
      ident(Exit) reserved(end) reserved(else)
        ident(HintLB)operator(.)ident(Tag) operator(:=) integer(1)operator(;)
    reserved(end)operator(;)
    ident(Add)operator(()ident(Hint)operator(\);)
  reserved(end)operator(;)
  ident(Application)operator(.)ident(ProcessMessages)operator(;) comment(//draw)
comment(//  Sleep(1000\); //wait to read hints)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ReInitShowPC)operator(;)
reserved(begin)
  reserved(with) ident(CurValueE) reserved(do) reserved(begin)
    ident(Text) operator(:=) ident(NoValueCaption)operator(;)
    ident(Font)operator(.)ident(Color) operator(:=) ident(clSilver)operator(;)
    ident(Enabled) operator(:=) ident(False)operator(;)
  reserved(end)operator(;)

  ident(ShowPC)operator(.)ident(ActivePage) operator(:=) reserved(nil)operator(;)

  ident(StringE)operator(.)ident(Text) operator(:=) string<delimiter(')delimiter(')>operator(;)
  ident(StringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;)

  ident(MultiStringTypeRG)operator(.)ident(Buttons)operator([)integer(1)operator(].)ident(Enabled) operator(:=) ident(False)operator(;)

  ident(CardinalE)operator(.)ident(Value) operator(:=) integer(0)operator(;)
  ident(CardTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;)

  ident(BinaryHM)operator(.)ident(Data) operator(:=) reserved(nil)operator(;)
  ident(PipelineCB)operator(.)ident(Checked) operator(:=) ident(False)operator(;)

  ident(DataTypeComB)operator(.)ident(ItemIndex) operator(:=) ident(Integer)operator(()ident(rdBinary)operator(\);)

  ident(MultiStringM)operator(.)ident(Clear)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  ident(MainWin)operator(.)ident(FormKeyDown)operator(()ident(Sender)operator(,) ident(Key)operator(,) ident(Shift)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SpyResumeBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(SpyThread)operator(.)ident(Resume)operator(;)
  ident(SpyTestLClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SpySuspendBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(SpyThread)operator(.)ident(Suspend)operator(;)
  ident(SpyTestLClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ArrPlutoBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ArrangePlutoStyle)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ArrRegEdBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ArrangeRegEdStyle)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ArrFreeBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ArrangeFreeStyle)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ArrBigValBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ArrangeBigValStyle)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SpaceMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(StringE)operator(.)ident(Text) operator(:=) string<delimiter(')delimiter(')>operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(HintLBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text) operator(:=) ident(GetSel)operator(()ident(HintLB)operator(\);)
  ident(WorkWin)operator(.)ident(InfoMemo)operator(.)ident(Text) operator(:=) ident(StatusBar)operator(.)ident(Panels)operator([)integer(0)operator(].)ident(Text)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(MainPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) ident(TabIndex)operator(:) ident(Integer)operator(;)
  reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);)
reserved(var)
  ident(PC)operator(:) ident(TPageControl)operator(;)
  ident(Page)operator(:) ident(TTabSheet)operator(;)
reserved(begin)
  ident(PC) operator(:=) ident(TPageControl)operator(()ident(Control)operator(\);)
  ident(Page) operator(:=) ident(PC)operator(.)ident(Pages)operator([)ident(TabIndex)operator(];)
  reserved(with) ident(PC)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin)
    reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Hint)delimiter(')> reserved(then)
      ident(Color) operator(:=) ident(clBrightRed)
    reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Edit)delimiter(')> reserved(then)
      ident(Color) operator(:=) ident(clBrightGreen)
    reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Spy)delimiter(')> reserved(then)
      ident(Color) operator(:=) ident(clBrightBlue)
    reserved(else) reserved(if) ident(Page)operator(.)ident(Caption) operator(=) string<delimiter(')content(Sisyphus)delimiter(')> reserved(then)
      ident(Color) operator(:=) ident(clBrightCyan)
    reserved(else)
      ident(Color) operator(:=) ident(clWhite)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(PC)operator(.)ident(Canvas) reserved(do)
    reserved(if) ident(Active) reserved(then) reserved(begin)
      ident(Font)operator(.)ident(Style) operator(:=) operator([)ident(fsBold)operator(];)
      ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;)
      ident(FillRect)operator(()ident(Rect)operator(\);)
      ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(18) operator(+) integer(5)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(3)operator(,) ident(Page)operator(.)ident(Caption)operator(\);)
      ident(PC)operator(.)ident(Images)operator(.)ident(Draw)operator(()ident(PC)operator(.)ident(Canvas)operator(,) ident(Rect)operator(.)ident(Left) operator(+) integer(4)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(2)operator(,) ident(Page)operator(.)ident(ImageIndex)operator(\);)
    reserved(end) reserved(else) reserved(begin)
      ident(Font)operator(.)ident(Style) operator(:=) operator([];)
      ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;)
      ident(FillRect)operator(()ident(Rect)operator(\);)
      ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(18) operator(+) integer(3)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(2)operator(,) ident(Page)operator(.)ident(Caption)operator(\);)
      ident(PC)operator(.)ident(Images)operator(.)ident(Draw)operator(()ident(PC)operator(.)ident(Canvas)operator(,) ident(Rect)operator(.)ident(Left) operator(+) integer(1)operator(,) ident(Rect)operator(.)ident(Top) operator(+) integer(1)operator(,) ident(Page)operator(.)ident(ImageIndex)operator(\);)
    reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ValueMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(StringE)operator(.)ident(Text) operator(:=) ident(UntilStr)operator(()ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(Caption)operator(,)string<delimiter(')content( = )delimiter(')>operator(\);)
  ident(OKStringBClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(StringEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) ident(key) operator(=) ident(VK_RETURN) reserved(then) reserved(begin)
    ident(OKStringBClick)operator(()ident(Sender)operator(\);)
    ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);)
  reserved(end)operator(;)
  reserved(if) ident(key) operator(=) ident(VK_ESCAPE) reserved(then)
    ident(CancelBClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(StringEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(State)operator(:) ident(TCheckBoxState)operator(;)
  ident(Desc)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(IconImage)operator(.)ident(Picture) operator(:=) reserved(nil)operator(;)

  reserved(with) ident(StringAsColorP) reserved(do) reserved(begin)
    ident(Color) operator(:=) ident(ColorOfString)operator(()ident(StringE)operator(.)ident(Text)operator(,) ident(csfThreeSpacedDecimals)operator(,) operator(-)integer(1)operator(\);)
    ident(Visible) operator(:=) ident(Color) operator(<>) operator(-)integer(1)operator(;)
  reserved(end)operator(;)

  reserved(try)
    reserved(with) ident(IconImage)operator(.)ident(Picture)operator(.)ident(Icon) reserved(do) reserved(begin)
      ident(ReleaseHandle)operator(;)
      ident(Handle) operator(:=) ident(GetIconFromFile)operator(()ident(StringE)operator(.)ident(Text)operator(\);)
      ident(StringAsFileP)operator(.)ident(Visible) operator(:=) ident(Handle) operator(<>) integer(0)operator(;)
    reserved(end)operator(;)
  reserved(except)
  reserved(end)operator(;)

  ident(State) operator(:=) ident(cbGrayed)operator(;)
  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(BoolStr)operator(\)) reserved(do) reserved(begin)
    reserved(if) ident(StringE)operator(.)ident(Text) operator(=) ident(BoolStr)operator([)ident(i)operator(][)ident(False)operator(]) reserved(then)
      ident(State) operator(:=) ident(cbUnchecked)
    reserved(else) reserved(if) ident(StringE)operator(.)ident(Text) operator(=) ident(BoolStr)operator([)ident(i)operator(][)ident(True)operator(]) reserved(then)
      ident(State) operator(:=) ident(cbChecked)
    reserved(else)
      ident(Continue)operator(;)
    ident(Break)operator(;)
  reserved(end)operator(;)

  ident(BoolStrCB)operator(.)ident(Visible) operator(:=) ident(State) reserved(in) operator([)ident(cbChecked)operator(,) ident(cbUnchecked)operator(];)
  ident(BoolStrCB)operator(.)ident(State) operator(:=) ident(State)operator(;)

  ident(Desc) operator(:=) ident(StringE)operator(.)ident(Text)operator(;)
  ident(Desc) operator(:=) ident(RegNameOfCLSID)operator(()ident(Desc)operator(\);)
  reserved(with) ident(DescL) reserved(do) reserved(begin)
    ident(Visible) operator(:=) operator(()ident(Desc) operator(<>) string<delimiter(')delimiter(')>operator(\);)
    reserved(if) ident(Visible) reserved(then)
      ident(Caption) operator(:=) string<delimiter(')content(CLSID is: )delimiter(')> operator(+) ident(Desc)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(OKStringBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(try)
    ident(OpenCurKey)operator(;)
    reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
        reserved(case) ident(StringTypeRG)operator(.)ident(ItemIndex) reserved(of)
          integer(0)operator(:) ident(MainReg)operator(.)ident(WriteString)operator(()ident(Strings)operator([)ident(i)operator(],) ident(StringE)operator(.)ident(Text)operator(\);)
          integer(1)operator(:) ident(MainReg)operator(.)ident(WriteExpandString)operator(()ident(Strings)operator([)ident(i)operator(],) ident(StringE)operator(.)ident(Text)operator(\);)
        reserved(end)operator(;)
      reserved(end)operator(;)
    ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);)
  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
  reserved(end)operator(;)
  ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(BoolStrCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(BoolStr)operator(\)) reserved(do) reserved(begin)
    reserved(if) operator(()ident(BoolStr)operator([)ident(i)operator(,) ident(False)operator(]) operator(=) ident(StringE)operator(.)ident(Text)operator(\))
     reserved(or) operator(()ident(BoolStr)operator([)ident(i)operator(,) ident(True)operator(]) operator(=) ident(StringE)operator(.)ident(Text)operator(\)) reserved(then)
      ident(Break)operator(;)
  reserved(end)operator(;)
  
  reserved(if) ident(i) operator(>) ident(High)operator(()ident(BoolStr)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(StringE)operator(.)ident(Text) operator(:=) ident(BoolStr)operator([)ident(i)operator(][)ident(BoolStrCB)operator(.)ident(Checked)operator(];)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(CardinalEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(HexEditAutoChange) operator(:=) ident(True)operator(;)
  reserved(with) ident(CardBoolCB) reserved(do) reserved(begin)
    ident(Enabled) operator(:=) ident(True)operator(;)
    reserved(case) ident(CardinalE)operator(.)ident(Value) reserved(of)
      integer(1)operator(:) ident(Checked) operator(:=) ident(True)operator(;)
      integer(0)operator(:) ident(Checked) operator(:=) ident(False)operator(;)
    reserved(else)
      ident(Enabled) operator(:=) ident(False)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)
  ident(HexEdit1)operator(.)ident(Value) operator(:=) ident(CardinalE)operator(.)ident(Value)operator(;)
  ident(HexEditAutoChange) operator(:=) ident(False)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(CardBoolCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(HexEditAutoChange) reserved(then)
    ident(Exit)operator(;)
  ident(CardinalE)operator(.)ident(Value) operator(:=) ident(Ord)operator(()ident(CardBoolCB)operator(.)ident(Checked)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(CardinalEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) ident(key) operator(=) ident(VK_RETURN) reserved(then) reserved(begin)
    ident(OKIntBClick)operator(()ident(Sender)operator(\);)
    ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);)
  reserved(end)operator(;)
  
  reserved(if) ident(key) operator(=) ident(VK_ESCAPE) reserved(then)
    ident(CancelBClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(OKIntBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
  
  reserved(procedure) ident(Write4BB)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(;) ident(Value)operator(:) ident(Cardinal)operator(\);)
  reserved(var)
    ident(Typ)operator(:) ident(TRegDataType)operator(;)
  reserved(begin)
    reserved(if) ident(MainReg)operator(.)ident(ValueReallyExists)operator(()ident(ValueName)operator(\)) reserved(then)
      ident(Typ) operator(:=) ident(MainReg)operator(.)ident(GetDataType)operator(()ident(ValueName)operator(\))
    reserved(else)
      ident(Typ) operator(:=) ident(rdBinary)operator(;)

    reserved(if) ident(Typ) reserved(in) ident(rdCardTypes) reserved(then)
      ident(Typ) operator(:=) ident(rdBinary)operator(;)

    ident(MainReg)operator(.)ident(WriteBinType)operator(()ident(ValueName)operator(,) ident(ByteAOfInt)operator(()ident(CardinalE)operator(.)ident(Value)operator(\),) ident(Typ)operator(\);)
  reserved(end)operator(;)

reserved(begin)
  reserved(try)
    ident(OpenCurKey)operator(;)
    reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
        reserved(case) ident(CardTypeRG)operator(.)ident(ItemIndex) reserved(of)
          integer(0)operator(:) ident(MainReg)operator(.)ident(WriteCardinal)operator(()ident(Strings)operator([)ident(i)operator(],) ident(CardinalE)operator(.)ident(Value)operator(\);)
          integer(1)operator(:) ident(MainReg)operator(.)ident(WriteCardinal)operator(()ident(Strings)operator([)ident(i)operator(],) ident(CardinalE)operator(.)ident(Value)operator(,) ident(True)operator(\);)
          integer(2)operator(:) ident(Write4BB)operator(()ident(Strings)operator([)ident(i)operator(],) ident(CardinalE)operator(.)ident(Value)operator(\);)
        reserved(end)operator(;)
      reserved(end)operator(;)
    ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);)
  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ShowPCChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(FocusControl)operator(()ident(TObject)operator(()ident(ShowPC)operator(.)ident(ActivePage)operator(.)ident(Tag)operator(\)) reserved(as) ident(TWinControl)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ShowPCChanging)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(AllowChange)operator(:) ident(Boolean)operator(\);)

  reserved(function) ident(ByteAOfDWORD)operator(()ident(a)operator(:) ident(DWORD)operator(\):) ident(TByteA)operator(;)
  reserved(begin)
    ident(SetLength)operator(()ident(Result)operator(,) ident(SizeOf)operator(()ident(DWORD)operator(\)\);)
    ident(Move)operator(()ident(a)operator(,) ident(Pointer)operator(()ident(Result)operator(\)^,) ident(SizeOf)operator(()ident(DWORD)operator(\)\);)
  reserved(end)operator(;)

reserved(var)
  ident(SourcePage)operator(:) ident(TTabSheet)operator(;)
  ident(ValueName)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(SourcePage) operator(:=) ident(ShowPC)operator(.)ident(ActivePage)operator(;)
  reserved(if) ident(SourcePage) operator(=) ident(IntPage) reserved(then) reserved(begin)

    reserved(if) ident(TargetPage) operator(=) ident(StringPage) reserved(then) reserved(begin)
      ident(AddHint)operator(()string<delimiter(')content(Converting: DWORD --> String)delimiter(')>operator(\);)
      ident(StringE)operator(.)ident(Text) operator(:=) ident(CardinalE)operator(.)ident(Text)operator(;)
    reserved(end) reserved(else) reserved(if) ident(TargetPage) operator(=) ident(BinaryPage) reserved(then) reserved(begin)
      ident(AddHint)operator(()string<delimiter(')content(Converting: DWORD --> Binary)delimiter(')>operator(\);)
      ident(BinaryHM)operator(.)ident(Data) operator(:=) ident(ByteAOfDWORD)operator(()ident(CardinalE)operator(.)ident(Value)operator(\);)
    reserved(end) reserved(else)
      ident(AllowChange) operator(:=) ident(False)operator(;)

  reserved(end) reserved(else) reserved(if) ident(SourcePage) operator(=) ident(StringPage) reserved(then) reserved(begin)
    reserved(if) ident(TargetPage) operator(=) ident(IntPage) reserved(then) reserved(begin)
      reserved(if) ident(IsValidCardinal)operator(()ident(StringE)operator(.)ident(Text)operator(\)) reserved(then) reserved(begin)
        ident(AddHint)operator(()string<delimiter(')content(Converting: String --> DWORD)delimiter(')>operator(\);)
        ident(CardinalE)operator(.)ident(Text) operator(:=) ident(StringE)operator(.)ident(Text)operator(;)
      reserved(end) reserved(else) reserved(begin)
        ident(AddHint)operator(()string<delimiter(')content(This no valid DWORD; Converting aborted.)delimiter(')>operator(,) ident(True)operator(\);)
        ident(AllowChange) operator(:=) ident(False)operator(;)
      reserved(end)operator(;)
    reserved(end) reserved(else) reserved(if) ident(TargetPage) operator(=) ident(BinaryPage) reserved(then) reserved(begin)
      ident(AddHint)operator(()string<delimiter(')content(Converting: String --> Binary)delimiter(')>operator(\);)
      ident(BinaryHM)operator(.)ident(Data) operator(:=) ident(TByteA)operator(()ident(StringE)operator(.)ident(Text)operator(\);)
    reserved(end) reserved(else) reserved(if) ident(TargetPage) operator(=) ident(MultiStringPage) reserved(then) reserved(begin)
      ident(AddHint)operator(()string<delimiter(')content(Converting: String --> MultiString)delimiter(')>operator(\);)
      reserved(if) ident(SeparatorE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then)
        ident(MultiStringM)operator(.)ident(Text) operator(:=) ident(StringE)operator(.)ident(Text)operator(;)
      ident(SeparatorEChange)operator(()ident(Sender)operator(\);)
    reserved(end) reserved(else)
      ident(AllowChange) operator(:=) ident(False)operator(;)

  reserved(end) reserved(else) reserved(if) ident(SourcePage) operator(=) ident(BinaryPage) reserved(then) reserved(begin)
    reserved(if) ident(TargetPage) operator(=) ident(StringPage) reserved(then) reserved(begin)
      ident(AddHint)operator(()string<delimiter(')content(Converting: Binary --> String)delimiter(')>operator(\);)
      ident(StringE)operator(.)ident(Text) operator(:=) ident(FriendlyStr)operator(()reserved(string)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\)\);)
    reserved(end) reserved(else) reserved(if) ident(TargetPage) operator(=) ident(IntPage) reserved(then) reserved(begin)
      reserved(if) ident(Length)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\)) operator(>=) ident(SizeOf)operator(()ident(DWORD)operator(\)) reserved(then) reserved(begin)
        ident(AddHint)operator(()string<delimiter(')content(Converting: Binary --> DWORD)delimiter(')>operator(\);)
        ident(CardinalE)operator(.)ident(Value) operator(:=) ident(PDWORD)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\)^;)
      reserved(end) reserved(else) reserved(begin)
        ident(AddHint)operator(()string<delimiter(')content(Binary value not long enough (4 Byte\); Converting aborted.)delimiter(')>operator(,) ident(True)operator(\);)
        ident(AllowChange) operator(:=) ident(False)operator(;)
      reserved(end)operator(;)
    reserved(end) reserved(else) reserved(if) ident(TargetPage) operator(=) ident(CryptoPage) reserved(then) reserved(begin)
      reserved(if) ident(ValuesWin)operator(.)ident(ValueNames)operator(.)ident(Count) operator(=) integer(1) reserved(then) reserved(begin)
        ident(ValueName) operator(:=) ident(ValuesWin)operator(.)ident(ValueNames)operator([)integer(0)operator(];)
        reserved(with) ident(CryptoTypeRG) reserved(do) reserved(begin)
          ident(ItemIndex) operator(:=) operator(-)integer(1)operator(;)
          reserved(if) ident(SameText)operator(()ident(ValueName)operator(,) string<delimiter(')content(ScreenSave_Data)delimiter(')>operator(\)) reserved(then) reserved(begin)
            ident(ItemIndex) operator(:=) integer(0)operator(;)
            ident(CryptoE)operator(.)ident(Text) operator(:=) ident(DecodeScreenSaver)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\);)
          reserved(end) reserved(else) reserved(if) ident(SameText)operator(()ident(ValueName)operator(,) string<delimiter(')content(parm1enc)delimiter(')>operator(\))
           reserved(or) ident(SameText)operator(()ident(ValueName)operator(,) string<delimiter(')content(parm2enc)delimiter(')>operator(\)) reserved(then) reserved(begin)
            ident(ItemIndex) operator(:=) integer(1)operator(;)
            ident(CryptoE)operator(.)ident(Text) operator(:=) ident(DecodeSharedFolder)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\);)
          reserved(end)operator(;)
        reserved(end)operator(;)
        reserved(if) ident(CryptoTypeRG)operator(.)ident(ItemIndex) operator(=) operator(-)integer(1) reserved(then)
          ident(AllowChange) operator(:=) ident(False)operator(;)
      reserved(end)operator(;)
    reserved(end) reserved(else)
      ident(AllowChange) operator(:=) ident(False)operator(;)

  reserved(end) reserved(else) reserved(if) ident(SourcePage) operator(=) ident(MultiStringPage) reserved(then) reserved(begin)
    reserved(if) ident(TargetPage) operator(=) ident(StringPage) reserved(then) reserved(begin)
      ident(AddHint)operator(()string<delimiter(')content(Converting: MultiString --> String )delimiter(')>operator(\);)
      reserved(if) ident(SeparatorE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then)
        ident(StringE)operator(.)ident(Text) operator(:=) ident(MultiStringM)operator(.)ident(Text)
      reserved(else)
        ident(StringE)operator(.)ident(Text) operator(:=) ident(Join)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(,) ident(SeparatorE)operator(.)ident(Text)operator(\);)
    comment(//end else if TargetPage = BinaryPage then begin)
    reserved(end) reserved(else)
      ident(AllowChange) operator(:=) ident(False)operator(;)

  reserved(end) reserved(else)
    ident(AllowChange) operator(:=) ident(False)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ShowPCDrawTab)operator(()ident(Control)operator(:) ident(TCustomTabControl)operator(;) ident(TabIndex)operator(:) ident(Integer)operator(;)
  reserved(const) ident(Rect)operator(:) ident(TRect)operator(;) ident(Active)operator(:) ident(Boolean)operator(\);)
reserved(var)
  ident(PC)operator(:) ident(TPageControl)operator(;)
  ident(Page)operator(:) ident(TTabSheet)operator(;)
reserved(begin)
  ident(PC) operator(:=) ident(TPageControl)operator(()ident(Control)operator(\);)
  ident(Page) operator(:=) ident(PC)operator(.)ident(Pages)operator([)ident(TabIndex)operator(];)
  reserved(with) ident(PC)operator(.)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin)
    reserved(if) ident(Page) operator(=) ident(StringPage) reserved(then)
      ident(Color) operator(:=) ident(clBrightRed)
    reserved(else) reserved(if) ident(Page) operator(=) ident(MultiStringPage) reserved(then)
      ident(Color) operator(:=) ident(clBrightPurple)
    reserved(else) reserved(if) ident(Page) operator(=) ident(IntPage) reserved(then)
      ident(Color) operator(:=) ident(clBrightBlue)
    reserved(else) reserved(if) ident(Page) operator(=) ident(BinaryPage) reserved(then)
      ident(Color) operator(:=) ident(clBrightGreen)
    reserved(else) reserved(if) ident(Page) operator(=) ident(CryptoPage) reserved(then)
      ident(Color) operator(:=) ident(clBrightCyan)operator(;)
  reserved(end)operator(;)

  reserved(with) ident(PC)operator(.)ident(Canvas) reserved(do) reserved(begin)
    reserved(if) ident(Active) reserved(then)
      ident(Brush)operator(.)ident(Color) operator(:=) ident(clGray)
    reserved(else)
      ident(Brush)operator(.)ident(Color) operator(:=) ident(clDarkGray)operator(;)
    ident(FillRect)operator(()ident(Rect)operator(\);)
    ident(TextOut)operator(()ident(Rect)operator(.)ident(Left) operator(+) integer(18) operator(+) integer(3)operator(,) ident(Rect)operator(.)ident(Top)operator(,) ident(Page)operator(.)ident(Caption)operator(\);)
    ident(MainWin)operator(.)ident(ImageList1)operator(.)ident(Draw)operator(()ident(Control)operator(.)ident(Canvas)operator(,) ident(Rect)operator(.)ident(Left) operator(-) integer(1)operator(,) ident(Rect)operator(.)ident(Top) operator(-) integer(1)operator(,) ident(Page)operator(.)ident(ImageIndex)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ShowPCMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
reserved(begin)
  reserved(with) ident(ShowPC) reserved(do)
    reserved(if) ident(htOnItem) reserved(in) ident(GetHitTestInfoAt)operator(()ident(X)operator(,) ident(Y)operator(\)) reserved(then)
      ident(TargetPage) operator(:=) ident(Pages)operator([)ident(IndexOfTabAt)operator(()ident(X)operator(,) ident(Y)operator(\)];)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(FormCreate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(WorkU)operator(.)ident(ShowPC) operator(:=) ident(ShowPC)operator(;)
  ident(WorkU)operator(.)ident(MainPC) operator(:=) ident(MainPC)operator(;)

  comment(//Zeromize)
  ident(ShowPC)operator(.)ident(ActivePage) operator(:=) reserved(nil)operator(;)
  ident(InfoMemo)operator(.)ident(Text) operator(:=) string<delimiter(')delimiter(')>operator(;)
  ident(MultiStringM)operator(.)ident(Clear)operator(;)
  ident(SisyTV)operator(.)ident(Items)operator(.)ident(Clear)operator(;)
  ident(CurValueE)operator(.)ident(Text) operator(:=) ident(NoValueCaption)operator(;)
  ident(HexEditAutoChange) operator(:=) ident(False)operator(;)
  ident(TargetPage) operator(:=) reserved(nil)operator(;)

  comment(//Tagging)
  ident(StringPage)operator(.)ident(Tag) operator(:=) ident(Integer)operator(()ident(StringE)operator(\);)
  ident(IntPage)operator(.)ident(Tag) operator(:=) ident(Integer)operator(()ident(CardinalE)operator(\);)
  ident(BinaryPage)operator(.)ident(Tag) operator(:=) ident(Integer)operator(()ident(BinaryHM)operator(\);)
  ident(MultiStringPage)operator(.)ident(Tag) operator(:=) ident(Integer)operator(()ident(MultiStringM)operator(\);)
  ident(ShowAsBinary) operator(:=) ident(False)operator(;)

  reserved(if) reserved(not) ident(Win9x) reserved(then)
    ident(CryptoPage)operator(.)ident(TabVisible) operator(:=) ident(False)operator(;)

  ident(MainPC)operator(.)ident(ActivePage) operator(:=) ident(HintPage)operator(;)
  ident(ShowPC)operator(.)ident(ActivePage) operator(:=) reserved(nil)operator(;)

  ident(DropFileTarget)operator(.)directive(register)operator(()ident(StringE)operator(\);)

  reserved(with) ident(StringTypeRG) reserved(do)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(ControlCount)operator(-)integer(1) reserved(do)
      operator(()ident(Controls)operator([)ident(i)operator(]) reserved(as) ident(TRadioButton)operator(\).)ident(OnKeyDown) operator(:=) ident(StringEKeyDown)operator(;)

  ident(ExternalEditB)operator(.)ident(Enabled) operator(:=) ident(FileEx)operator(()ident(PrefWin)operator(.)ident(ExternalHexEditE)operator(.)ident(Text)operator(\);)

  ident(PipelineThread) operator(:=) ident(TPipelineThread)operator(.)ident(CreateIt)operator(()ident(tpIdle)operator(,) string<delimiter(')delimiter(')>operator(,) ident(BinaryHM)operator(\);)
  ident(PipelineThread)operator(.)ident(OnChange) operator(:=) ident(LoadExternalBClick)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(OKBinaryBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Typ)operator(:) ident(Cardinal)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(try)
    ident(Typ) operator(:=) ident(StrToIntDef)operator(()ident(UntilChar)operator(()ident(DataTypeComB)operator(.)ident(Text)operator(,) char<delimiter(')content( )delimiter(')>operator(\),) ident(Integer)operator(()ident(rdBinary)operator(\)\);)
    ident(OpenCurKey)operator(;)
    reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do)
        ident(MainReg)operator(.)ident(WriteBinType)operator(()ident(Strings)operator([)ident(i)operator(],) ident(BinaryHM)operator(.)ident(Data)operator(,) ident(Typ)operator(\);)
    ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);)
  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(HexGrid1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  comment({with BinaryHM do begin
    with BinL, Font do
      if ActiveByte < ByteCount then
        Color := clBrightGreen
      else begin
        Color := clSilver;
        Caption := '00000000';
      end;
    BinL.Caption := IntToBinFill(CurrentByte, 8\);
  end; })
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(HexGrid1KeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) ident(key) operator(=) ident(VK_RETURN) reserved(then) reserved(begin)
    ident(OKBinaryBClick)operator(()ident(Sender)operator(\);)
    ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);)
  reserved(end)operator(;)
  reserved(if) ident(key) operator(=) ident(VK_ESCAPE) reserved(then)
    ident(CancelBClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(BoolStrPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(StringE)operator(.)ident(Text) operator(:=) ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(Caption)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(StringPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(FocusControl)operator(()ident(StringE)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(IntPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(FocusControl)operator(()ident(CardinalE)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(BinaryPageEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(FocusControl)operator(()ident(BinaryHM)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ActivateThis)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(DeActivateIt)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(DeActivateThis)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(FormDeactivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then)
    ident(TEdit)operator(()ident(ActiveControl)operator(\).)ident(OnExit)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(FormActivate)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(ActiveControl)operator(\)) reserved(and) operator(()ident(ActiveControl)operator(.)ident(Tag) operator(=) ident(EditControlFlag)operator(\)) reserved(then)
    ident(TEdit)operator(()ident(ActiveControl)operator(\).)ident(OnEnter)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(MultiStringMChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(MultiStringCountL)operator(.)ident(Caption) operator(:=) ident(StrNumerus)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(.)ident(Count)operator(,)
                                          string<delimiter(')content(Line)delimiter(')>operator(,) string<delimiter(')content(Lines)delimiter(')>operator(,) string<delimiter(')content(No)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(OKMultiStringBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(UseExtendedModel)operator(:) ident(Boolean)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
  ident(JoinedText)operator(:) reserved(string)operator(;)
reserved(begin)
  reserved(if) operator(()ident(MultiStringTypeRG)operator(.)ident(ItemIndex) operator(=) integer(1)operator(\)) reserved(then) reserved(begin)
    reserved(if) ident(ValuesWin)operator(.)ident(ValueCommonType) operator(=) ident(rdMultiString) reserved(then)
      reserved(if) ident(mrYes)operator(<>)ident(MessageDlg)operator(()string<delimiter(')content(Do you want to change the type of this value?)delimiter(')> operator(+) ident(EOL) operator(+)
       string<delimiter(')content(MultiString --> String)delimiter(')>operator(,) ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then)
        ident(Exit)operator(;)

    reserved(try)
      ident(OpenCurKey)operator(;)
      ident(JoinedText) operator(:=) ident(Join)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(,) ident(SeparatorE)operator(.)ident(Text)operator(\);)
      reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do)
        reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do)
          ident(MainReg)operator(.)ident(WriteString)operator(()ident(Strings)operator([)ident(i)operator(],) ident(JoinedText)operator(\);)
      ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);)
    reserved(finally)
      ident(MainReg)operator(.)ident(CloseKey)operator(;)
    reserved(end)operator(;)
  ident(Exit)operator(;) reserved(end)operator(;)

  ident(UseExtendedModel) operator(:=) ident(True)operator(;)
  reserved(if) ident(ContainsEmptyLines)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(\)) reserved(then)
    reserved(case) ident(MessageDlg)operator(()string<delimiter(')content(This text contains empty lines.)delimiter(')> operator(+) ident(EOL) operator(+)
                    string<delimiter(')content(These are not allowed in the standard MultiString model.)delimiter(')> operator(+) ident(EOL) operator(+)
                    string<delimiter(')content(Do you want to delete them?)delimiter(')> operator(+) ident(EOL) operator(+)
                    ident(EOL) operator(+)
                    string<delimiter(')content(Yes: Delete empty lines)delimiter(')> operator(+) ident(EOL) operator(+)
                    string<delimiter(')content(No: Use the Extended Model)delimiter(')>operator(,)
                    ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbNo)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(of)

    ident(mrNo)operator(:) ident(UseExtendedModel) operator(:=) ident(True)operator(;)

    ident(mrYes)operator(:) reserved(begin)
      reserved(with) ident(MultiStringM) reserved(do) reserved(begin)
        ident(Lines)operator(.)ident(BeginUpdate)operator(;)
        ident(DeleteEmptyLines)operator(()ident(Lines)operator(\);)
        ident(Lines)operator(.)ident(EndUpdate)operator(;)
      reserved(end)operator(;)
    reserved(end)operator(;)

    reserved(else) ident(Exit)operator(;)
    
    reserved(end)operator(;)

  reserved(try)
    ident(OpenCurKey)operator(;)
    reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
        reserved(if) ident(MainReg)operator(.)ident(GetDataType)operator(()ident(Strings)operator([)ident(i)operator(]\)) operator(<>) ident(rdMultiString) reserved(then)
          reserved(if) ident(mrYes) operator(<>) ident(MessageDlg)operator(()string<delimiter(')content(Do you want to change the type of this value?)delimiter(')> operator(+) ident(EOL) operator(+)
           string<delimiter(')content(--> MultiString)delimiter(')>operator(,) ident(mtWarning)operator(,) operator([)ident(mbYes)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then)
            ident(Exit)operator(;)
        reserved(if) ident(UseExtendedModel) reserved(then)
          ident(MainReg)operator(.)ident(WriteStringList)operator(()ident(Strings)operator([)ident(i)operator(],) ident(MultiStringM)operator(.)ident(Lines)operator(\))
        reserved(else)
          ident(MainReg)operator(.)ident(WriteMultiString)operator(()ident(Strings)operator([)ident(i)operator(],) ident(MultiStringM)operator(.)ident(Lines)operator(\);)
      reserved(end)operator(;)
    ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);)
  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
  reserved(end)operator(;)

  ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(StringAsColorPDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(ColorDlg)operator(.)ident(Execute) reserved(then)
    ident(StringE)operator(.)ident(Text) operator(:=) ident(StringOfColor)operator(()ident(ColorDlg)operator(.)ident(Color)operator(,) ident(csfThreeSpacedDecimals)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(MultiStringMEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(MultiStringM)operator(.)ident(SelectAll)operator(;)
  ident(ActivateIt)operator(()ident(MultiStringM)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(LadenMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(MultiStringOpenD) reserved(do) reserved(begin)
    ident(InitialDir) operator(:=) ident(ExtractFileDrive)operator(()ident(MyDir)operator(\);)
    reserved(if) ident(Execute) reserved(then)
      ident(MultiStringM)operator(.)ident(Lines)operator(.)ident(LoadFromFile)operator(()ident(FileName)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SpeichernMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(MultiStringSaveD) reserved(do) reserved(begin)
    ident(InitialDir) operator(:=) ident(ExtractFileDrive)operator(()ident(MyDir)operator(\);)
    reserved(if) ident(Execute) reserved(then)
      ident(MultiStringM)operator(.)ident(Lines)operator(.)ident(SaveToFile)operator(()ident(FileName)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(Hinzufgen1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)
reserved(begin)
  reserved(with) ident(MultiStringOpenD) reserved(do) reserved(begin)
    ident(InitialDir) operator(:=) ident(ExtractFileDrive)operator(()ident(MyDir)operator(\);)
    reserved(if) ident(Execute) reserved(then) reserved(begin)
      ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
      ident(SL)operator(.)ident(LoadFromFile)operator(()ident(FileName)operator(\);)
      ident(MultiStringM)operator(.)ident(Lines)operator(.)ident(AddStrings)operator(()ident(SL)operator(\);)
      ident(SL)operator(.)ident(Free)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(CancelBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);)
  ident(ValuesWin)operator(.)ident(ValueListChange)operator(()ident(Sender)operator(,) ident(ValueList)operator(.)ident(Selected)operator(,) ident(ctState)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(HexGrid1Enter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(HexGrid1Click)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SpyClearTracesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(SpyLB)operator(.)ident(Clear)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SpyLBKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) operator(()ident(ssShift) reserved(in) ident(Shift)operator(\)) reserved(and) operator(()ident(key) operator(=) ident(VK_DELETE)operator(\)) reserved(then) reserved(begin)
    ident(key) operator(:=) integer(0)operator(;)
    ident(SpyLB)operator(.)ident(Clear)operator(;)
  ident(Exit)operator(;) reserved(end)operator(;)

  reserved(if) ident(key) operator(=) ident(VK_F9) reserved(then) reserved(begin)
    ident(key) operator(:=) integer(0)operator(;)
    ident(SwapFonts)operator(()ident(SpyLB)operator(\);)
  ident(Exit)operator(;) reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(BinLClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
 comment(// with HexGrid1 do)
 comment(//   Byt[ActiveByte] := IntOfBin(BinL.Caption\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(HexGrid1KeyUp)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  comment(//HexGrid1Click(Sender\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ValueViewChanged)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(if) reserved(not) ident(Started) reserved(then)
    ident(Exit)operator(;)

  ident(SpyThread)operator(.)ident(Suspend)operator(;)
  ident(OpenCurKey)operator(;)
  reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(ValueList)operator(.)ident(Items)operator(.)ident(Count)operator(-)integer(1) reserved(do)
    ident(ValuesWin)operator(.)ident(UpdateValue)operator(()ident(MainReg)operator(,) ident(ValueList)operator(.)ident(Items)operator([)ident(i)operator(]\);)

  ident(MainReg)operator(.)ident(CloseKey)operator(;)
  ident(SpyThread)operator(.)ident(Resume)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(HexEdit1Change)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(HexEditAutoChange) reserved(then)
    ident(CardinalE)operator(.)ident(Value) operator(:=) ident(HexEdit1)operator(.)ident(Value)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SortMultiStringMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)
reserved(begin)
  ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
  reserved(with) ident(SL) reserved(do) reserved(begin)
    ident(Assign)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(\);)
    ident(Sort)operator(;)
  reserved(end)operator(;)
  ident(MultiStringM)operator(.)ident(Lines)operator(.)ident(Assign)operator(()ident(SL)operator(\);)
  ident(SL)operator(.)ident(Free)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SpyTestLClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(SpyTestL)operator(.)ident(Caption) operator(:=) ident(StrOfBool)operator(()ident(SpyThread)operator(.)ident(Suspended)operator(,) string<delimiter(')content(No Spy.)delimiter(')>operator(,) string<delimiter(')content(Spy active.)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(FocusForEditing)operator(;)
reserved(begin)
  ident(FocusControl)operator(()ident(MainPC)operator(\);)
reserved(end)operator(;)

reserved(function) ident(TWorkWin)operator(.)ident(LoadBoolStr)operator(:) ident(Boolean)operator(;)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)
  ident(FileName)operator(:) reserved(string)operator(;)
  ident(i)operator(,) ident(p)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(True)operator(;)

  ident(AddHint)operator(()string<delimiter(')content(Loading Boolean Strings...)delimiter(')>operator(\);)

  ident(FileName) operator(:=) ident(PlutoDir) operator(+) ident(BoolStrFileName)operator(;)
  reserved(if) reserved(not) ident(FileEx)operator(()ident(FileName)operator(\)) reserved(then) reserved(begin)
    ident(AddToLastHint)operator(()string<delimiter(')content(not found:)delimiter(')>operator(\);)
    ident(AddHint)operator(()ident(FileName)operator(\);)
    ident(Result) operator(:=) ident(False)operator(;)
  reserved(end) reserved(else) reserved(begin)
    ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
    reserved(try)
      ident(SL)operator(.)ident(LoadFromFile)operator(()ident(FileName)operator(\);)
      ident(DeleteCommentLines)operator(()ident(SL)operator(\);)
      ident(BoolStr) operator(:=) reserved(nil)operator(;)
      ident(SetLength)operator(()ident(BoolStr)operator(,) ident(SL)operator(.)ident(Count)operator(\);)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
        comment(//Split the string by the '|'-sign)
        ident(p) operator(:=) ident(Pos)operator(()char<delimiter(')content(|)delimiter(')>operator(,) ident(SL)operator([)ident(i)operator(]\);)
        ident(BoolStr)operator([)ident(i)operator(][)ident(False)operator(]) operator(:=) ident(Copy)operator(()ident(SL)operator([)ident(i)operator(],) integer(1)operator(,) ident(p)operator(-)integer(1)operator(\);)
        ident(BoolStr)operator([)ident(i)operator(][)ident(True)operator(]) operator(:=) ident(Copy)operator(()ident(SL)operator([)ident(i)operator(],) ident(p)operator(+)integer(1)operator(,) ident(Length)operator(()ident(SL)operator([)ident(i)operator(]\)) operator(-) ident(p)operator(\);)
      reserved(end)operator(;)
    reserved(finally)
      ident(SL)operator(.)ident(Free)operator(;)
      ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(function) ident(TWorkWin)operator(.)ident(LoadSisyFilter)operator(:) ident(Boolean)operator(;)
reserved(var)
  ident(SL)operator(:) ident(TStringList)operator(;)
  ident(FileName)operator(:) reserved(string)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(Result) operator(:=) ident(True)operator(;)

  ident(FileName) operator(:=) ident(PlutoDir) operator(+) ident(SisyFilterFileName)operator(;)
  reserved(if) reserved(not) ident(FileEx)operator(()ident(FileName)operator(\)) reserved(then)
    ident(Result) operator(:=) ident(False)
  reserved(else) reserved(begin)
    ident(AddHint)operator(()string<delimiter(')content(Loading Sisyphus Filter Settings...)delimiter(')>operator(\);)
    ident(SL) operator(:=) ident(TStringList)operator(.)ident(Create)operator(;)
    reserved(try)
      ident(SL)operator(.)ident(LoadFromFile)operator(()ident(FileName)operator(\);)
      ident(DeleteCommentLines)operator(()ident(SL)operator(,) char<delimiter(')content(#)delimiter(')>operator(\);)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(SL)operator(.)ident(Count)operator(-)integer(1) reserved(do)
        ident(SL)operator([)ident(i)operator(]) operator(:=) ident(TrimLeft)operator(()ident(SL)operator([)ident(i)operator(]\);)

      ident(SisyFilter)operator(.)ident(Clear)operator(;)
      ident(SisyFilter)operator(.)ident(AddStrings)operator(()ident(SL)operator(\);)
    reserved(finally)
      ident(SL)operator(.)ident(Free)operator(;)
      ident(AddToLastHint)operator(()string<delimiter(')content(OK)delimiter(')>operator(\);)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVGetSelectedIndex)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
reserved(begin)
  ident(Node)operator(.)ident(SelectedIndex) operator(:=) ident(Node)operator(.)ident(ImageIndex)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
  ident(Path)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(SisyTV)operator(.)ident(Selected)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(Path) operator(:=) ident(RootOfNode)operator(()ident(Node)operator(\).)ident(Text)operator(;)

  reserved(if) ident(Node)operator(.)ident(Level) operator(>) integer(0) reserved(then) reserved(begin)
    reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(2) reserved(then)
      ident(Node) operator(:=) ident(Node)operator(.)ident(Parent)operator(;)
    reserved(if) ident(Node)operator(.)ident(HasChildren) reserved(then)
      ident(Path) operator(:=) ident(Path) operator(+) string<delimiter(')content(\\\\)delimiter(')> operator(+) ident(Node)operator(.)ident(Text) comment(//Value)
    reserved(else)
      ident(Path) operator(:=) ident(Path) operator(+) char<delimiter(')content(\\)delimiter(')> operator(+) ident(Node)operator(.)ident(Text)  comment(//SubKey)
  reserved(end)operator(;)

  ident(MainWin)operator(.)ident(GotoKey)operator(()ident(Path)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(DeleteChange)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)
reserved(var)
  ident(SubNode)operator(:) ident(TTreeNode)operator(;)

  reserved(procedure) ident(FreeSisyChangeNode)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)
  reserved(begin)
    reserved(try)
      reserved(with) operator(()ident(TObject)operator(()ident(Node)operator(.)ident(Data)operator(\)) reserved(as) ident(TSisyChange)operator(\)) reserved(do)
        ident(Free)operator(;)
    reserved(except)
      ident(ReportFmt)operator(()string<delimiter(')content(errors)delimiter(')>operator(,) string<delimiter(')content(Context could not be freed: "%s")delimiter(')>operator(,) operator([)ident(Node)operator(.)ident(Text)operator(]\);)
    reserved(end)operator(;)

    ident(Node)operator(.)ident(Delete)operator(;)
  reserved(end)operator(;)

reserved(begin)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(2) reserved(then)
    ident(Node) operator(:=) ident(Node)operator(.)ident(Parent)operator(;)

  reserved(if) ident(Node)operator(.)ident(Level) operator(=) integer(0) reserved(then) reserved(begin)
    ident(SisyTV)operator(.)ident(Selected) operator(:=) ident(GetNextBest)operator(()ident(RootOfNode)operator(()ident(Node)operator(\)\);)
    ident(SubNode) operator(:=) ident(Node)operator(.)ident(GetFirstChild)operator(;)
    reserved(while) ident(Assigned)operator(()ident(SubNode)operator(\)) reserved(do) reserved(begin)
      ident(FreeSisyChangeNode)operator(()ident(SubNode)operator(\);)
    ident(SubNode) operator(:=) ident(Node)operator(.)ident(GetFirstChild)operator(;) reserved(end)operator(;)
    ident(Node)operator(.)ident(Delete)operator(;)
  reserved(end) reserved(else) reserved(begin)
    ident(SisyTV)operator(.)ident(Selected) operator(:=) ident(GetNextBest)operator(()ident(Node)operator(\);)
    ident(FreeSisyChangeNode)operator(()ident(Node)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(DeactivateChange)operator(()ident(Node)operator(:) ident(TTreeNode)operator(\);)
reserved(begin)
  ident(Node) operator(:=) ident(RootOfNode)operator(()ident(Node)operator(\);)

  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(SisyChangeActivated)operator(()ident(Node)operator(\)) reserved(then) reserved(begin)
    ident(SetSisyChangeState)operator(()ident(Node)operator(,) ident(False)operator(\);)
    ident(Node)operator(.)ident(Cut) operator(:=) ident(True)operator(;)
  reserved(end) reserved(else) reserved(begin)
    ident(SetSisyChangeState)operator(()ident(Node)operator(,) ident(True)operator(\);)
    ident(Node)operator(.)ident(Cut) operator(:=) ident(False)operator(;)
  reserved(end)operator(;)
  ident(SisyTV)operator(.)ident(Repaint)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(CopySelectedChangeName)operator(;)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(SisyTV)operator(.)ident(Selected)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(Node)operator(.)ident(Text)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(RootOfNode)operator(()ident(SisyTV)operator(.)ident(Selected)operator(\);)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  comment({if Key = VK_RETURN then
    SisyTVDblCLick(Sender\);

  if Key = VK_DELETE then
    if (ssCtrl in Shift\) and (Key = VK_DELETE\) then
      DeactivateChange(Node\)
    else
      DeleteChange(Node\);

  if (ssCtrl in Shift\) and (Char(Key\) = 'C'\) then
    CopySelectedChangeName;})
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(Started) reserved(then)
    ident(Exit)operator(;)

  reserved(with) ident(TCheckBox)operator(()ident(Sender)operator(\),) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(Tag)operator(]\)) reserved(do) reserved(begin)
    reserved(if) ident(Checked) reserved(then)
      ident(Resume)
    reserved(else)
      ident(Suspend)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(CurValueEEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CurValueE)operator(.)ident(Text) operator(:=) ident(RealValueName)operator(()ident(ValueList)operator(.)ident(ItemFocused)operator(\);)
  ident(CurValueE)operator(.)ident(SelectAll)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(CurValueEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)

  reserved(procedure) ident(RenameValue)operator(()ident(NewName)operator(:) reserved(string)operator(\);)
  reserved(var)
    ident(Item)operator(:) ident(TListItem)operator(;)
  reserved(begin)
    ident(Item) operator(:=) ident(ValueList)operator(.)ident(ItemFocused)operator(;)
    reserved(if) ident(ValuesWin)operator(.)ident(TryRenameValue)operator(()ident(CurKey)operator(.)ident(Value)operator(,) ident(NewName)operator(\)) reserved(then)
      ident(SetRealValueName)operator(()ident(Item)operator(,) ident(NewName)operator(\);)
  reserved(end)operator(;)

reserved(begin)
  reserved(if) ident(Key) operator(=) ident(VK_RETURN) reserved(then) reserved(begin)
    ident(SpyThread)operator(.)ident(Suspend)operator(;)
    reserved(try)
      ident(RenameValue)operator(()ident(CurValueE)operator(.)ident(Text)operator(\);)
      ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Self)operator(\);)
      ident(FocusControl)operator(()ident(CurValueE)operator(\);)
    reserved(finally)
      ident(SpyThread)operator(.)ident(Restart) operator(:=) ident(True)operator(;)
      ident(SpyThread)operator(.)ident(Resume)operator(;)
    reserved(end)operator(;)
    ident(Key) operator(:=) integer(0)operator(;)
    comment(//CurValueE.SelectAll;)
  reserved(end) reserved(else) reserved(if) ident(Key) operator(=) ident(VK_ESCAPE) reserved(then) reserved(begin)
    ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Self)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(BinaryHMLineChange)operator(()ident(NewLine)operator(:) ident(Cardinal)operator(\);)
reserved(begin)
  ident(OffsetHE)operator(.)ident(Value) operator(:=) ident(BinaryHM)operator(.)ident(Pos)operator(;)
 comment(// BinaryAsIntL.Value := Integer(BinaryHM.CurentCard\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(OffsetHEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(BinaryHM)operator(.)ident(Pos) operator(:=) ident(OffsetHE)operator(.)ident(Value)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SpyDelayIEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(Assigned)operator(()ident(SpyThread)operator(\)) reserved(then)
    ident(SpyThread)operator(.)ident(Delay) operator(:=) ident(SpyDelayIE)operator(.)ident(Value)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVExpanded)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Node)operator(:) ident(TTreeNode)operator(\);)
reserved(begin)
  reserved(if) ident(Node)operator(.)ident(ImageIndex) operator(=) integer(8) reserved(then)
    ident(Node)operator(.)ident(ImageIndex) operator(:=) integer(7)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ClearChanges)operator(;)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  reserved(with) ident(SisyTV)operator(.)ident(Items) reserved(do) reserved(begin)
    ident(Node) operator(:=) ident(GetFirstNode)operator(;)
    reserved(while) ident(Assigned)operator(()ident(Node)operator(\)) reserved(do) reserved(begin)
      ident(DeleteChange)operator(()ident(Node)operator(\);)
      ident(Node) operator(:=) ident(GetFirstNode)operator(;)
    reserved(end)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ClearChangesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) ident(mrOK) operator(<>) ident(MessageDlg)operator(()string<delimiter(')content(Do you really want to clear all changes?)delimiter(')>operator(,)
   ident(mtWarning)operator(,) operator([)ident(mbOK)operator(,) ident(mbCancel)operator(],) integer(0)operator(\)) reserved(then)
    ident(Exit)operator(;)

  ident(ClearChanges)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(FilterChangesBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(NotePad)operator(()ident(PlutoDir) operator(+) ident(SisyFilterFileName)operator(\);)
  ident(ShowMessage)operator(()string<delimiter(')content(Click OK when you finished editing.)delimiter(')> operator(+) ident(EOL) operator(+)
              string<delimiter(')content((Pluto will reload the filter settings then.\))delimiter(')>operator(\);)
  ident(LoadSisyFilter)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(KeySelected)operator(:) ident(Boolean)operator(;)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
reserved(begin)
  ident(Node) operator(:=) ident(SisyTV)operator(.)ident(Selected)operator(;)
  ident(KeySelected) operator(:=) ident(Assigned)operator(()ident(Node)operator(\);)

  ident(SisyGoToKeyMI)operator(.)ident(Enabled) operator(:=) ident(KeySelected)operator(;)
  ident(SisyDeleteChangeMI)operator(.)ident(Enabled) operator(:=) ident(KeySelected)operator(;)
  ident(SisyActivateChangeMI)operator(.)ident(Enabled) operator(:=) ident(KeySelected)operator(;)
  ident(SisyCopyPathMI)operator(.)ident(Enabled) operator(:=) ident(KeySelected)operator(;)
  reserved(if) reserved(not) ident(KeySelected) reserved(then)
    ident(Exit)operator(;)

  ident(SisyActivateChangeMI)operator(.)ident(Checked) operator(:=) ident(SisyChangeActivated)operator(()ident(RootOfNode)operator(()ident(Node)operator(\)\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyActivateChangeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(DeactivateChange)operator(()ident(SisyTV)operator(.)ident(Selected)operator(\))
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyDeleteChangeMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(DeleteChange)operator(()ident(SisyTV)operator(.)ident(Selected)operator(\))
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyCopyPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CopySelectedChangeName)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(FileMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(s)operator(:) reserved(string)operator(;)
reserved(begin)
  reserved(with) ident(FileOpenD) reserved(do) reserved(begin)
    ident(s) operator(:=) ident(ExtractPath)operator(()ident(StringE)operator(.)ident(Text)operator(\);)
    reserved(if) ident(s) operator(<>) string<delimiter(')delimiter(')> reserved(then)
      ident(InitialDir) operator(:=) ident(s)
    reserved(else)
      ident(InitialDir) operator(:=) ident(MyDir)operator(;)

    ident(s) operator(:=) ident(ExtractFileName)operator(()ident(StringE)operator(.)ident(Text)operator(\);)
    ident(s) operator(:=) ident(DeleteChars)operator(()ident(s)operator(,) char<delimiter(')content(/)delimiter(')>operator(\);)
    reserved(if) ident(s) operator(<>) string<delimiter(')delimiter(')> reserved(then)
      ident(FileName) operator(:=) ident(s)operator(;)

    reserved(if) ident(Execute) reserved(then)
      ident(StringE)operator(.)ident(Text) operator(:=) ident(FileName)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ExternalEditBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(FileName)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(FileName) operator(:=) ident(TempDir) operator(+) char<delimiter(')content(~)delimiter(')> operator(+) ident(DeleteChars)operator(()ident(CurValueE)operator(.)ident(Text)operator(,) ident(FileNameEnemies)operator(\)) operator(+)
    string<delimiter(')content(.bin)delimiter(')>operator(;)
  reserved(if) ident(SaveByteA)operator(()ident(BinaryHM)operator(.)ident(Data)operator(,) ident(FileName)operator(\)) reserved(then)
    ident(ExecFileWith)operator(()ident(PrefWin)operator(.)ident(ExternalHexEditE)operator(.)ident(Text)operator(,) ident(FileName)operator(\))
  reserved(else)
    ident(ShowMessage)operator(()string<delimiter(')content(Could not write into file:)delimiter(')> operator(+) ident(EOL) operator(+) ident(FileName)operator(\);)

  ident(PipelineThread)operator(.)ident(FileName) operator(:=) ident(FileName)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(LoadExternalBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(FileName)operator(:) reserved(string)operator(;)
  ident(Data)operator(:) ident(TByteA)operator(;)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  ident(Data) operator(:=) reserved(nil)operator(;)

  ident(FileName) operator(:=) ident(TempDir) operator(+) char<delimiter(')content(~)delimiter(')> operator(+) ident(CurValueE)operator(.)ident(Text) operator(+) string<delimiter(')content(.bin)delimiter(')>operator(;)
  reserved(if) reserved(not) ident(FileEx)operator(()ident(FileName)operator(\)) reserved(then) reserved(begin)
    comment({ShowMessage('File not found:' + EOL +
                FileName\);})
    ident(Exit)operator(;)
  reserved(end)operator(;)

  ident(Data) operator(:=) ident(LoadByteA)operator(()ident(FileName)operator(\);)
  reserved(if) ident(Length)operator(()ident(Data)operator(\)) operator(=) ident(Length)operator(()ident(BinaryHM)operator(.)ident(Data)operator(\)) reserved(then) reserved(begin)
    reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(High)operator(()ident(Data)operator(\)) reserved(do)
      reserved(if) ident(Data)operator([)ident(i)operator(]) operator(<>) ident(BinaryHM)operator(.)ident(Data)operator([)ident(i)operator(]) reserved(then) reserved(begin)
        ident(BinaryHM)operator(.)ident(Data) operator(:=) ident(Data)operator(;)
        ident(Exit)operator(;)
      reserved(end)operator(;)
  reserved(end) reserved(else)
    ident(BinaryHM)operator(.)ident(Data) operator(:=) ident(Data)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(PipelineCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(PipelineThread)operator(,) ident(PipelineCB) reserved(do)
    reserved(if) ident(Checked) reserved(then) reserved(begin)
      reserved(if) ident(Suspended) reserved(then)
        ident(Resume)operator(;)
    reserved(end) reserved(else)
      reserved(if) reserved(not) ident(Suspended) reserved(then)
        ident(Suspend)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ReloadBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Self)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(BinaryHMEnter)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(PipelineCB)operator(.)ident(Checked) operator(:=) ident(False)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(xUseExtendedModelCBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(PrefWin)operator(.)ident(UseExtendedModelCB)operator(.)ident(Load)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SeparatorEChange)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(if) reserved(not) ident(SeparatorE)operator(.)ident(Enabled) reserved(then)
    ident(Exit)operator(;)

  reserved(if) ident(SeparatorE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then) reserved(begin)
    reserved(if) ident(StringE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then)
      ident(Exit)
    reserved(else)
      ident(MultiStringM)operator(.)ident(Text) operator(:=) ident(StringE)operator(.)ident(Text)operator(;)
    ident(MultiStringTypeRG)operator(.)ident(Buttons)operator([)integer(1)operator(].)ident(Enabled) operator(:=) ident(False)operator(;)
    ident(MultiStringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;)
  reserved(end) reserved(else) reserved(begin)
    reserved(if) ident(StringE)operator(.)ident(Text) operator(=) string<delimiter(')delimiter(')> reserved(then)
      ident(StringE)operator(.)ident(Text) operator(:=) ident(Join)operator(()ident(MultiStringM)operator(.)ident(Lines)operator(,) ident(SeparatorE)operator(.)ident(Text)operator(\);)
    ident(MultiStringTypeRG)operator(.)ident(Buttons)operator([)integer(1)operator(].)ident(Enabled) operator(:=) ident(True)operator(;)
    ident(MultiStringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(1)operator(;)
    ident(Split)operator(()ident(StringE)operator(.)ident(Text)operator(,) ident(SeparatorE)operator(.)ident(Text)operator(,) ident(MultiStringM)operator(.)ident(Lines)operator(,) ident(False)operator(\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(HintLBKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) operator(()ident(Key) operator(=) ident(Byte)operator(()char<delimiter(')content(C)delimiter(')>operator(\)\)) reserved(and) operator(()ident(ssCtrl) reserved(in) ident(Shift)operator(\)) reserved(then)
    reserved(with) ident(HintLb) reserved(do)
      reserved(if) ident(ItemIndex) operator(>=) integer(0) reserved(then)
        ident(Clipboard)operator(.)ident(AsText) operator(:=) ident(Items)operator([)ident(ItemIndex)operator(];)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(DWORDSpecialBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(CardinalE)operator(.)ident(Value) operator(:=) ident(StrToIntDef)operator((()ident(Sender) reserved(as) ident(TButton)operator(\).)ident(Caption)operator(,) integer(0)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(Button1Click)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(ShowPC)operator(.)ident(SelectNextPage)operator(()ident(True)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyPUPopup)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(SisyPU)operator(,) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(PopupComponent)operator(.)ident(Tag)operator(]\)) reserved(do)
    ident(Items)operator([)ident(Integer)operator(()ident(Priority)operator(\)].)ident(Checked) operator(:=) ident(True)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyPriorityMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(SisyPU)operator(.)ident(PopupComponent)operator(.)ident(Tag)operator(]\)) reserved(do) reserved(begin)
    ident(Priority) operator(:=) ident(TThreadPriority)operator(()ident(TMenuItem)operator(()ident(Sender)operator(\).)ident(MenuIndex)operator(\);)
    reserved(if) ident(Priority) operator(<=) ident(tpNormal) reserved(then)
      ident(Uni)operator(.)ident(WriteInteger)operator(()string<delimiter(')content(Priority)delimiter(')>operator(,) ident(Integer)operator(()ident(Priority)operator(\)\);)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyShowCurrentPathMIClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  reserved(with) ident(SisyPU)operator(,) ident(TSisyThread)operator(()ident(Sisys)operator([)ident(PopupComponent)operator(.)ident(Tag)operator(]\)) reserved(do) reserved(begin)
    ident(Suspend)operator(;)
    ident(ShowMessage)operator(()ident(CurrentSpyKey)operator(.)ident(Path)operator(\);)
    ident(Resume)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(DropFileTargetDrop)operator(()ident(Sender)operator(:) ident(TObject)operator(;)
  ident(ShiftState)operator(:) ident(TShiftState)operator(;) ident(Point)operator(:) ident(TPoint)operator(;) reserved(var) ident(Effect)operator(:) ident(Integer)operator(\);)
reserved(begin)
  ident(StringE)operator(.)ident(Text) operator(:=) ident(DropFileTarget)operator(.)ident(Files)operator([)integer(0)operator(];)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(FormClose)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Action)operator(:) ident(TCloseAction)operator(\);)
reserved(begin)
comment(//  Action := caNone;)
  ident(DropFileTarget)operator(.)ident(Unregister)operator(;)
  ident(ClearChanges)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(FormResize)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(begin)
  ident(Realign)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(IconImageDblClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(Filename)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(FileName) operator(:=) ident(GetFileNew)operator(()ident(StringE)operator(.)ident(Text)operator(\);)
  reserved(if) ident(FileName) operator(<>) string<delimiter(')delimiter(')> reserved(then)
    ident(ExecFile)operator(()ident(FileName)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(ShowValues)operator(()ident(Reg)operator(:) ident(TXRegistry)operator(\);)
reserved(var)
  ident(MainValueName)operator(:) reserved(string)operator(;)
  ident(ValueCommonType)operator(:) ident(TRegDataType)operator(;)

  reserved(procedure) ident(ShowValueAsBinary)operator(()reserved(const) ident(ValueName)operator(:) reserved(string)operator(;)
    ident(Smart4BB)operator(:) ident(Boolean) operator(=) ident(True)operator(\);)
  reserved(begin)
    reserved(if) ident(Smart4BB)
     reserved(and) ident(PrefWin)operator(.)ident(Smart4BBCB)operator(.)ident(Checked)
     reserved(and) operator(()ident(Reg)operator(.)ident(GetDataSize)operator(()ident(ValueName)operator(\)) operator(=) integer(4)operator(\)) reserved(then) reserved(begin)
      ident(CardinalE)operator(.)ident(Value) operator(:=) ident(Reg)operator(.)ident(ReadCardinal)operator(()ident(ValueName)operator(\);)
      ident(CardTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(2)operator(;)
      ident(ShowPC)operator(.)ident(ActivePage) operator(:=) ident(IntPage)operator(;)
    ident(Exit)operator(;) reserved(end)operator(;)
    ident(BinaryHM)operator(.)ident(Data) operator(:=) ident(Reg)operator(.)ident(ReadBin)operator(()ident(ValueName)operator(\);)
    ident(DataTypeComB)operator(.)ident(ItemIndex) operator(:=) ident(ValueCommonType)operator(;)
    reserved(if) ident(IsValidDataType)operator(()ident(ValueCommonType)operator(\)) reserved(then)
      ident(DataTypeComB)operator(.)ident(ItemIndex) operator(:=) ident(ValueCommonType)
    reserved(else) reserved(begin)
      ident(DataTypeComB)operator(.)ident(Text) operator(:=) ident(IntToStr)operator(()ident(ValueCommonType)operator(\);)
      ident(AddHint)operator(()string<delimiter(')content(Value has unknown data type ()delimiter(')> operator(+) ident(DataTypeComB)operator(.)ident(Text) operator(+) string<delimiter(')content(\): )delimiter(')> operator(+)
        ident(Quote)operator(()ident(ValueName)operator(\)\);)
    reserved(end)operator(;)
    ident(ShowPC)operator(.)ident(ActivePage) operator(:=) ident(BinaryPage)operator(;)
  reserved(end)operator(;)

reserved(begin)
  reserved(with) ident(ValuesWin) reserved(do) reserved(begin)
    reserved(if) reserved(not) ident(Assigned)operator(()ident(ValueNames)operator(\)) reserved(or) operator(()ident(ValueNames)operator(.)ident(Count) operator(=) integer(0)operator(\)) reserved(then)
      reserved(raise) ident(EReadError)operator(.)ident(Create)operator(()string<delimiter(')content(ValueNameList error)delimiter(')>operator(\);)
    ident(MainValueName) operator(:=) ident(ValueNames)operator([)integer(0)operator(];)
  reserved(end)operator(;)
  ident(ValueCommonType) operator(:=) ident(ValuesWin)operator(.)ident(ValueCommonType)operator(;)

  reserved(with) ident(CurValueE) reserved(do) reserved(begin)
    ident(Enabled) operator(:=) ident(True)operator(;)
    reserved(if) ident(ValuesWin)operator(.)ident(ValueNames)operator(.)ident(Count) operator(=) integer(1) reserved(then)
      ident(Text) operator(:=) ident(MainValueName)
    reserved(else)
      ident(Text) operator(:=) ident(Copy)operator(()ident(ValuesWin)operator(.)ident(ValueNames)operator(.)ident(CommaText)operator(,) integer(1)operator(,) integer(255)operator(\);)

    ident(Font)operator(.)ident(Color) operator(:=) ident(ColorOfDataType)operator(()ident(ValueCommonType)operator(\);)
  reserved(end)operator(;)

  reserved(if) ident(KeyIsDown)operator(()ident(VK_MENU)operator(\)) reserved(or) ident(ShowAsBinary) reserved(then) reserved(begin)
    ident(ShowValueAsBinary)operator(()ident(MainValueName)operator(,) ident(False)operator(\);)
  reserved(end) reserved(else) reserved(if) ident(ValueCommonType) reserved(in) ident(rdStringTypes) reserved(then) reserved(begin)
    ident(StringE)operator(.)ident(Text) operator(:=) ident(Reg)operator(.)ident(ReadString)operator(()ident(MainValueName)operator(\);)
    reserved(case) ident(ValueCommonType) reserved(of)
      ident(rdString)operator(:) ident(StringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;)
      ident(rdExpandString)operator(:) ident(StringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(1)operator(;)
    reserved(end)operator(;)
    ident(ShowPC)operator(.)ident(ActivePage) operator(:=) ident(StringPage)operator(;)
  reserved(end) reserved(else) reserved(if) ident(ValueCommonType) reserved(in) ident(rdCardTypes) reserved(then) reserved(begin)
    ident(CardinalE)operator(.)ident(Value) operator(:=) ident(Reg)operator(.)ident(ReadCardinal)operator(()ident(MainValueName)operator(\);)
    reserved(case) ident(ValueCommonType) reserved(of)
      ident(rdCardinal)operator(:) ident(StringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;)
      ident(rdCardBigEndian)operator(:) ident(StringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(1)operator(;)
    reserved(end)operator(;)
    ident(ShowPC)operator(.)ident(ActivePage) operator(:=) ident(IntPage)operator(;)
  reserved(end) reserved(else) reserved(if) ident(ValueCommonType) operator(=) ident(rdMultiString) reserved(then) reserved(begin)
    ident(MultiStringM)operator(.)ident(Clear)operator(;)
    ident(Reg)operator(.)ident(ReadMultiString)operator(()ident(MainValueName)operator(,) ident(MultiStringM)operator(.)ident(Lines)operator(,) ident(PrefWin)operator(.)ident(UseExtendedModelCB)operator(.)ident(Checked)operator(\);)
    ident(SeparatorEChange)operator(()ident(Self)operator(\);)
    ident(MultiStringTypeRG)operator(.)ident(ItemIndex) operator(:=) integer(0)operator(;)
    ident(ShowPC)operator(.)ident(ActivePage) operator(:=) ident(MultiStringPage)operator(;)
  reserved(end) reserved(else) reserved(begin)
    ident(ShowValueAsBinary)operator(()ident(MainValueName)operator(\);)
  reserved(end)operator(;)

  ident(ShowAsBinary) operator(:=) ident(False)operator(;)

  ident(UpdateWriteButtons)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(UpdateWriteButtons)operator(;)
reserved(const)
  ident(BtnTextOfMultiEdit)operator(:) reserved(array)operator([)ident(Boolean)operator(]) reserved(of) reserved(string) operator(=) operator(()string<delimiter(')content(Write)delimiter(')>operator(,) string<delimiter(')content(Write all)delimiter(')>operator(\);)
reserved(var)
  ident(BtnText)operator(:) reserved(string)operator(;)
reserved(begin)
  ident(BtnText) operator(:=) ident(BtnTextOfMultiEdit)operator([)ident(ValuesWin)operator(.)ident(ValueNames)operator(.)ident(Count) operator(>) integer(1)operator(];)
  ident(OKStringB)operator(.)ident(Caption) operator(:=) ident(BtnText)operator(;)
  ident(OKIntB)operator(.)ident(Caption) operator(:=) ident(BtnText)operator(;)
  ident(OKMultiStringB)operator(.)ident(Caption) operator(:=) ident(BtnText)operator(;)
  ident(OKBinaryB)operator(.)ident(Caption) operator(:=) ident(BtnText)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(EditData)operator(;)
reserved(begin)
  ident(AddHint)operator(()string<delimiter(')content(Edit)delimiter(')>operator(\);)
  ident(MainPC)operator(.)ident(ActivePage) operator(:=) ident(WorkPage)operator(;)

  reserved(with) ident(ShowPC) reserved(do)
    reserved(if) ident(ActivePage) operator(=) reserved(nil) reserved(then)
      ident(Exit)
    reserved(else) reserved(if) ident(ActivePage) operator(=) ident(WorkWin)operator(.)ident(StringPage) reserved(then) reserved(begin)
      ident(FocusControl)operator(()ident(StringE)operator(\);)
      ident(StringE)operator(.)ident(SelectAll)operator(;)
    reserved(end)
    reserved(else) reserved(if) ident(ActivePage) operator(=) ident(WorkWin)operator(.)ident(IntPage) reserved(then)
      ident(FocusControl)operator(()ident(CardinalE)operator(\))
    reserved(else) reserved(if) ident(ActivePage) operator(=) ident(WorkWin)operator(.)ident(MultiStringPage) reserved(then)
      ident(FocusControl)operator(()ident(MultiStringM)operator(\))
    reserved(else) reserved(if) ident(ActivePage) operator(=) ident(WorkWin)operator(.)ident(BinaryPage) reserved(then)
      ident(FocusControl)operator(()ident(BinaryHM)operator(\))
    reserved(else)
      ident(ShowMessage)operator(()string<delimiter(')content(Error: ShowPC.ActivePage!)delimiter(')>operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVCustomDrawItem)operator(()ident(Sender)operator(:) ident(TCustomTreeView)operator(;)
  ident(Node)operator(:) ident(TTreeNode)operator(;) ident(State)operator(:) ident(TCustomDrawState)operator(;) reserved(var) ident(DefaultDraw)operator(:) ident(Boolean)operator(\);)
reserved(begin)
  reserved(with) ident(TTreeView)operator(()ident(Sender)operator(\).)ident(Canvas)operator(.)ident(Font) reserved(do) reserved(begin)
    reserved(if) ident(Node)operator(.)ident(Cut) reserved(then)
      ident(Color) operator(:=) hex($AAAAAA)
    reserved(else)
      ident(Color) operator(:=) ident(clWhite)operator(;)
  reserved(end)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(SisyTVMouseDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) ident(Button)operator(:) ident(TMouseButton)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(;) ident(X)operator(,) ident(Y)operator(:) ident(Integer)operator(\);)
reserved(var)
  ident(Node)operator(:) ident(TTreeNode)operator(;)
  ident(RelX)operator(,) ident(RelY)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(with) ident(SisyTV) reserved(do) reserved(begin)
    ident(RelX) operator(:=) ident(ScreenToClient)operator(()ident(Mouse)operator(.)ident(CursorPos)operator(\).)ident(X)operator(;)
    ident(RelY) operator(:=) ident(ScreenToClient)operator(()ident(Mouse)operator(.)ident(CursorPos)operator(\).)ident(Y)operator(;)
    ident(Node) operator(:=) ident(GetNodeAt)operator(()ident(RelX)operator(,) ident(RelY)operator(\);)
  reserved(end)operator(;)
  reserved(if) reserved(not) ident(Assigned)operator(()ident(Node)operator(\)) reserved(then)
    ident(Exit)operator(;)

  reserved(if) reserved(not) ident(Node)operator(.)ident(Selected) reserved(then)
    ident(Node)operator(.)ident(Selected) operator(:=) ident(True)operator(;)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(OKCryptoBClick)operator(()ident(Sender)operator(:) ident(TObject)operator(\);)
reserved(var)
  ident(i)operator(:) ident(Integer)operator(;)
reserved(begin)
  reserved(try)
    ident(OpenCurKey)operator(;)
    reserved(with) ident(ValuesWin)operator(.)ident(ValueNames) reserved(do)
      reserved(for) ident(i) operator(:=) integer(0) reserved(to) ident(Count)operator(-)integer(1) reserved(do) reserved(begin)
        reserved(case) ident(CryptoTypeRG)operator(.)ident(ItemIndex) reserved(of)
          integer(0)operator(:) ident(MainReg)operator(.)ident(WriteBin)operator(()ident(Strings)operator([)ident(i)operator(],) ident(EncodeScreenSaver)operator(()ident(CryptoE)operator(.)ident(Text)operator(\)\);)
          integer(1)operator(:) ident(MainReg)operator(.)ident(WriteBin)operator(()ident(Strings)operator([)ident(i)operator(],) ident(EncodeSharedFolder)operator(()ident(CryptoE)operator(.)ident(Text)operator(\)\);)
        reserved(end)operator(;)
      reserved(end)operator(;)
    ident(ValuesWin)operator(.)ident(UpdateValues)operator(()ident(True)operator(\);)
  reserved(finally)
    ident(MainReg)operator(.)ident(CloseKey)operator(;)
  reserved(end)operator(;)
  ident(ValuesWin)operator(.)ident(ValueListDblClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(procedure) ident(TWorkWin)operator(.)ident(CryptoEKeyDown)operator(()ident(Sender)operator(:) ident(TObject)operator(;) reserved(var) ident(Key)operator(:) ident(Word)operator(;)
  ident(Shift)operator(:) ident(TShiftState)operator(\);)
reserved(begin)
  reserved(if) ident(Key) operator(=) ident(VK_RETURN) reserved(then) reserved(begin)
    ident(OKCryptoBClick)operator(()ident(Sender)operator(\);)
    ident(ValuesWin)operator(.)ident(FocusControl)operator(()ident(ValueList)operator(\);)
  reserved(end)operator(;)
  reserved(if) ident(Key) operator(=) ident(VK_ESCAPE) reserved(then)
    ident(CancelBClick)operator(()ident(Sender)operator(\);)
reserved(end)operator(;)

reserved(end)operator(.)