OnGuard: Fix sample projects not loading. Activate themes in sample projects. Anchored layout of sample forms.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8707 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2023-02-17 16:28:47 +00:00
parent 36eff03740
commit a9c3a3022c
152 changed files with 6033 additions and 3578 deletions
--- a/components/onguard/examples/all_examples.lpg
+++ b/components/onguard/examples/all_examples.lpg
@@ -0,0 +1,143 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectGroup FileVersion="2">
    <Targets>
      <Target FileName="codegen\codegen.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exdmod\exdmod.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exdtp21\exdtp21.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exdtreg\exdtreg.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exdyreg\exdyreg.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exdys30\exdys30.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exinst\exinst.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exmachid\exmachid.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exnet\exnet.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exprot\exprot.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exreg\exreg.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exrgreg\exrgreg.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exrgstr\exrgstr.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exselapi\exselapi.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exselect\exselect.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exslcode\exslcode.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exsnreg\exsnreg.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exspname\exspname.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exspreg\exspreg.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exsrnm1\exsrnm1.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exusg1\exusg1.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exusg2\exusg2.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="exusreg\exusreg.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="fixnaf\fixnaf.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="nafmgr\nafmgr.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="regdemo\helloworld.lpi"/>
      <Target FileName="regdemo\registration.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
      <Target FileName="stampexe\stampexe.lpi">
        <BuildModes>
          <Mode Name="default"/>
        </BuildModes>
      </Target>
    </Targets>
  </ProjectGroup>
 </CONFIG>
--- a/components/onguard/examples/codegen/codegen.lpi
+++ b/components/onguard/examples/codegen/codegen.lpi
@@ -1,29 +1,35 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
    <Version Value="12"/>
    <PathDelim Value="\"/>
    <Version Value="7"/>
    <General>
      <Flags>
        <AlwaysBuild Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <Scaled Value="True"/>
-      <TargetFileExt Value=".exe"/>
+      <UseXPManifest Value="True"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
    <RequiredPackages Count="2">
      <Item1>
@@ -34,15 +40,15 @@
        <MinVersion Valid="True"/>
      </Item2>
    </RequiredPackages>
-    <Units Count="22">
+    <Units Count="23">
      <Unit0>
        <Filename Value="codegen.lpr"/>
        <IsPartOfProject Value="True"/>
-        <CursorPos X="73" Y="13"/>
+        <UnitName Value="CodeGen"/>
-        <TopLine Value="1"/>
+        <CursorPos X="73" Y="15"/>
-        <EditorIndex Value="0"/>
+        <UsageCount Value="27"/>
        <UsageCount Value="26"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="codegenu.pas"/>
@@ -50,60 +56,60 @@
        <ComponentName Value="CodeGenFrm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
-        <UnitName Value="CODEGENU"/>
+        <UnitName Value="CodeGenU"/>
-        <CursorPos X="59" Y="39"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="26"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="26"/>
+        <CursorPos X="21" Y="8"/>
        <UsageCount Value="27"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="..\..\source\qonguard3.pas"/>
        <ComponentName Value="KeyMaintFrm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
-        <UnitName Value="qonguard3"/>
+        <EditorIndex Value="4"/>
-        <CursorPos X="15" Y="173"/>
+        <TopLine Value="38"/>
-        <TopLine Value="265"/>
+        <CursorPos X="32" Y="50"/>
        <UsageCount Value="12"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit2>
      <Unit3>
        <Filename Value="..\..\source\ogconst.pas"/>
        <UnitName Value="ogconst"/>
        <CursorPos X="3" Y="62"/>
        <TopLine Value="42"/>
        <CursorPos X="3" Y="62"/>
        <UsageCount Value="10"/>
      </Unit3>
      <Unit4>
        <Filename Value="..\..\..\lazarus\lcl\include\control.inc"/>
        <CursorPos X="1" Y="1544"/>
        <TopLine Value="1525"/>
        <CursorPos Y="1544"/>
        <UsageCount Value="10"/>
      </Unit4>
      <Unit5>
        <Filename Value="..\..\..\lazarus\lcl\interfaces\gtk\gtkwscontrols.pp"/>
        <UnitName Value="GtkWSControls"/>
        <CursorPos X="1" Y="270"/>
        <TopLine Value="251"/>
        <CursorPos Y="270"/>
        <UsageCount Value="10"/>
      </Unit5>
      <Unit6>
        <Filename Value="..\..\..\lazarus\lcl\include\customlistbox.inc"/>
        <CursorPos X="1" Y="401"/>
        <TopLine Value="382"/>
        <CursorPos Y="401"/>
        <UsageCount Value="10"/>
      </Unit6>
      <Unit7>
        <Filename Value="usr\share\fpcsrc\fcl\inc\inifiles.pp"/>
        <UnitName Value="IniFiles"/>
        <CursorPos X="3" Y="598"/>
        <TopLine Value="593"/>
        <CursorPos X="3" Y="598"/>
        <UsageCount Value="10"/>
      </Unit7>
      <Unit8>
        <Filename Value="..\..\source\qonguard5.pas"/>
        <UnitName Value="qonguard5"/>
        <CursorPos X="1" Y="1"/>
        <TopLine Value="72"/>
        <UsageCount Value="11"/>
      </Unit8>
@@ -112,26 +118,28 @@
        <ComponentName Value="CodeGenerateFrm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
-        <UnitName Value="qonguard2"/>
+        <EditorIndex Value="3"/>
-        <CursorPos X="18" Y="425"/>
+        <TopLine Value="500"/>
-        <TopLine Value="422"/>
+        <CursorPos X="3" Y="504"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="12"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit9>
      <Unit10>
        <Filename Value="..\..\source\onguard.pas"/>
-        <UnitName Value="onguard"/>
+        <EditorIndex Value="2"/>
-        <CursorPos X="19" Y="1186"/>
+        <TopLine Value="1488"/>
-        <TopLine Value="1170"/>
+        <CursorPos X="18" Y="1498"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="11"/>
        <Loaded Value="True"/>
      </Unit10>
      <Unit11>
        <Filename Value="..\..\source\qonguard1.pas"/>
        <ComponentName Value="KeyGenerateFrm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="qonguard1"/>
        <CursorPos X="56" Y="7"/>
        <TopLine Value="76"/>
        <CursorPos X="56" Y="7"/>
        <UsageCount Value="10"/>
      </Unit11>
      <Unit12>
@@ -139,88 +147,121 @@
        <ComponentName Value="EditProductFrm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="qonguard4"/>
        <CursorPos X="20" Y="37"/>
        <TopLine Value="31"/>
        <CursorPos X="20" Y="37"/>
        <UsageCount Value="10"/>
      </Unit12>
      <Unit13>
        <Filename Value="..\..\source\ogutil.pas"/>
        <UnitName Value="ogutil"/>
        <CursorPos X="32" Y="693"/>
        <TopLine Value="714"/>
        <CursorPos X="32" Y="693"/>
        <UsageCount Value="10"/>
      </Unit13>
      <Unit14>
        <Filename Value="codegenu.lfm"/>
        <CursorPos X="18" Y="12"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
-        <SyntaxHighlighter Value="LFM"/>
+        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit14>
      <Unit15>
        <Filename Value="..\..\source\qogabout0.pas"/>
        <ComponentName Value="OgAboutForm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="qogabout0"/>
        <CursorPos X="42" Y="25"/>
        <TopLine Value="12"/>
        <CursorPos X="42" Y="25"/>
        <UsageCount Value="10"/>
      </Unit15>
      <Unit16>
        <Filename Value="..\..\source\qogabout0.lfm"/>
        <CursorPos X="1" Y="1"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
-        <SyntaxHighlighter Value="LFM"/>
+        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit16>
      <Unit17>
        <Filename Value="..\..\source\qonguard6.pas"/>
        <ComponentName Value="ModifierFrm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="qonguard6"/>
        <CursorPos X="50" Y="7"/>
        <TopLine Value="75"/>
        <CursorPos X="50" Y="7"/>
        <UsageCount Value="10"/>
      </Unit17>
      <Unit18>
        <Filename Value="..\..\source\qonguard6.lfm"/>
        <CursorPos X="28" Y="13"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
-        <SyntaxHighlighter Value="LFM"/>
+        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit18>
      <Unit19>
        <Filename Value="..\..\source\qonguard7.pas"/>
        <UnitName Value="qonguard7"/>
        <CursorPos X="1" Y="1"/>
        <TopLine Value="72"/>
        <UsageCount Value="10"/>
      </Unit19>
      <Unit20>
        <Filename Value="..\..\source\idesn.pas"/>
        <UnitName Value="idesn"/>
        <CursorPos X="1" Y="23"/>
        <TopLine Value="37"/>
        <CursorPos Y="23"/>
        <UsageCount Value="11"/>
      </Unit20>
      <Unit21>
        <Filename Value="..\..\..\..\..\..\temp\fpc\rtl\inc\systemh.inc"/>
        <CursorPos X="11" Y="571"/>
        <TopLine Value="556"/>
        <CursorPos X="11" Y="571"/>
        <UsageCount Value="11"/>
      </Unit21>
      <Unit22>
        <Filename Value="..\..\source\onguard.inc"/>
        <EditorIndex Value="-1"/>
        <TopLine Value="31"/>
        <UsageCount Value="10"/>
      </Unit22>
    </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
+    <JumpHistory Count="9" HistoryIndex="8">
      <Position1>
        <Filename Value="codegenu.pas"/>
        <Caret Line="47" Column="51" TopLine="26"/>
      </Position1>
      <Position2>
        <Filename Value="codegenu.pas"/>
        <Caret Line="17" Column="18"/>
      </Position2>
      <Position3>
        <Filename Value="..\..\source\onguard.pas"/>
        <Caret Line="273" Column="18" TopLine="247"/>
      </Position3>
      <Position4>
        <Filename Value="..\..\source\onguard.pas"/>
        <Caret Line="1494" TopLine="1488"/>
      </Position4>
      <Position5>
        <Filename Value="..\..\source\qonguard2.pas"/>
        <Caret Line="86" Column="32" TopLine="57"/>
      </Position5>
      <Position6>
        <Filename Value="..\..\source\qonguard2.pas"/>
        <Caret Line="19" TopLine="19"/>
      </Position6>
      <Position7>
        <Filename Value="..\..\source\onguard.pas"/>
        <Caret Line="1498" Column="18" TopLine="1488"/>
      </Position7>
      <Position8>
        <Filename Value="..\..\source\qonguard2.pas"/>
        <Caret Line="76" Column="3" TopLine="58"/>
      </Position8>
      <Position9>
        <Filename Value="..\..\source\qonguard2.pas"/>
        <Caret Line="504" Column="3" TopLine="500"/>
      </Position9>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <PathDelim Value="\"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -232,27 +273,36 @@
      </Checks>
    </CodeGeneration>
    <Linking>
      <Debugging>
        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
          <GraphicApplication Value="True"/>
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <BreakPoints Count="3">
      <Item1>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\qonguard3.pas"/>
        <Line Value="159"/>
      </Item1>
      <Item2>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\qonguard3.pas"/>
        <Line Value="212"/>
      </Item2>
      <Item3>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\qonguard2.pas"/>
        <Line Value="236"/>
      </Item3>
--- a/components/onguard/examples/codegen/codegen.lpr
+++ b/components/onguard/examples/codegen/codegen.lpr
@@ -7,10 +7,14 @@ program CodeGen;
 uses
  Interfaces,
  Forms,
-  CODEGENU in 'CODEGENU.pas' {CodeGenFrm}, tponguard;
+  CodeGenU in 'CODEGENU.pas' {CodeGenFrm}, tponguard;
 {$R *.res}
 begin
  Application.Scaled:=True;
  Application.Title:='';
  Application.Initialize;
  Application.CreateForm(TCodeGenFrm, CodeGenFrm);
  Application.Run;
--- a/components/onguard/examples/codegen/codegenu.lfm
+++ b/components/onguard/examples/codegen/codegenu.lfm
@@ -1,26 +1,31 @@
 object CodeGenFrm: TCodeGenFrm
  Left = 315
-  Height = 85
+  Height = 106
  Top = 230
-  Width = 273
+  Width = 293
  ActiveControl = GenerateBtn
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Example Code Generator'
-  ClientHeight = 85
+  ClientHeight = 106
-  ClientWidth = 273
+  ClientWidth = 293
-  Font.Color = clText
+  Font.Color = clWindowText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Position = poScreenCenter
  ShowHint = True
-  LCLVersion = '0.9.27'
+  LCLVersion = '2.3.0.0'
  object CopySb: TSpeedButton
-    Left = 244
+    AnchorSideLeft.Control = CodeEd
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = CodeEd
    AnchorSideTop.Side = asrCenter
    Left = 266
    Height = 22
    Hint = 'Copy code to clipboard'
-    Top = 21
+    Top = 29
    Width = 23
-    Color = clBtnFace
+    BorderSpacing.Left = 4
    BorderSpacing.Right = 12
    Glyph.Data = {
      42010000424D4201000000000000760000002800000011000000110000000100
      040000000000CC00000000000000000000000000000000000000000000000000
@@ -34,50 +39,68 @@ object CodeGenFrm: TCodeGenFrm
      0000800000088888888880000000888888888888888880000000888888888888
      888880000000
    }
    NumGlyphs = 0
    OnClick = CopySbClick
  end
  object Label2: TLabel
-    Left = 8
+    AnchorSideLeft.Control = Owner
-    Height = 14
+    AnchorSideTop.Control = Owner
-    Top = 3
+    Left = 12
-    Width = 26
+    Height = 15
    Top = 12
    Width = 28
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    Caption = 'Code'
    FocusControl = CodeEd
    ParentColor = False
  end
  object GenerateBtn: TButton
-    Left = 8
+    AnchorSideLeft.Control = CodeEd
    AnchorSideTop.Control = CodeEd
    AnchorSideTop.Side = asrBottom
    Left = 12
    Height = 25
    Hint = 'Display code generation dialog'
-    Top = 51
+    Top = 64
    Width = 105
    BorderSpacing.Top = 12
    BorderSpacing.Bottom = 12
    BorderSpacing.InnerBorder = 4
    Caption = 'Generate Code'
    OnClick = GenerateBtnClick
    TabOrder = 0
  end
  object CodeEd: TEdit
-    Left = 8
+    AnchorSideLeft.Control = Label2
    AnchorSideTop.Control = Label2
    AnchorSideTop.Side = asrBottom
    Left = 12
    Height = 23
-    Top = 19
+    Top = 29
-    Width = 233
+    Width = 250
    BorderSpacing.Top = 2
    Constraints.MinWidth = 250
    ReadOnly = True
    TabOrder = 1
  end
  object CloseBtn: TBitBtn
-    Left = 192
+    AnchorSideTop.Control = GenerateBtn
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 206
    Height = 25
-    Top = 51
+    Top = 64
    Width = 75
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 12
    Kind = bkClose
    NumGlyphs = 0
    TabOrder = 2
  end
  object OgMakeCodes1: TOgMakeCodes
    KeyFileName = 'ONGUARD.INI'
    ShowHints = True
-    left = 64
+    Left = 104
-    top = 56
+    Top = 8
  end
 end
--- a/components/onguard/examples/codegen/codegenu.lrs
+++ b/components/onguard/examples/codegen/codegenu.lrs
@@ -1,35 +1,47 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TCodeGenFrm','FORMDATA',[
-  'TPF0'#11'TCodeGenFrm'#10'CodeGenFrm'#4'Left'#3';'#1#6'Height'#2'U'#3'Top'#3
+  'TPF0'#11'TCodeGenFrm'#10'CodeGenFrm'#4'Left'#3';'#1#6'Height'#2'j'#3'Top'#3
-  +#230#0#5'Width'#3#17#1#13'ActiveControl'#7#11'GenerateBtn'#7'Caption'#6#22'E'
+  +#230#0#5'Width'#3'%'#1#13'ActiveControl'#7#11'GenerateBtn'#8'AutoSize'#9#11
-  +'xample Code Generator'#12'ClientHeight'#2'U'#11'ClientWidth'#3#17#1#10'Font'
+  +'BorderStyle'#7#8'bsDialog'#7'Caption'#6#22'Example Code Generator'#12'Clien'
-  +'.Color'#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10
+  +'tHeight'#2'j'#11'ClientWidth'#3'%'#1#10'Font.Color'#7#12'clWindowText'#10'F'
-  +'Font.Pitch'#7#10'fpVariable'#8'Position'#7#14'poScreenCenter'#8'ShowHint'#9
+  +'ont.Pitch'#7#10'fpVariable'#8'Position'#7#14'poScreenCenter'#8'ShowHint'#9
-  +#10'LCLVersion'#6#6'0.9.27'#0#12'TSpeedButton'#6'CopySb'#4'Left'#3#244#0#6'H'
+  +#10'LCLVersion'#6#7'2.3.0.0'#0#12'TSpeedButton'#6'CopySb'#22'AnchorSideLeft.'
-  +'eight'#2#22#4'Hint'#6#22'Copy code to clipboard'#3'Top'#2#21#5'Width'#2#23#5
+  +'Control'#7#6'CodeEd'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTo'
-  +'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0
+  +'p.Control'#7#6'CodeEd'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#10#1
-  +'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0
+  +#6'Height'#2#22#4'Hint'#6#22'Copy code to clipboard'#3'Top'#2#29#5'Width'#2
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0
+  +#23#18'BorderSpacing.Left'#2#4#19'BorderSpacing.Right'#2#12#10'Glyph.Data'#10
-  +#128#0#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255
+  +'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0
-  +#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136
+  +#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0
-  +#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#132
+  +#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192
-  +'DDDD'#128#0#0#0#136#136#136#132#255#255#255#244#128#0#0#0#136#136#136#132
+  +#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255
-  +#240#0#0#244#128#0#0#0#128#0#0#4#255#255#255#244#128#0#0#0#128#255#255#244
+  +#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136
-  +#240#0#0#244#128#0#0#0#128#240#0#4#255#255#255#244#128#0#0#0#128#255#255#244
+  +#136#136#128#0#0#0#136#136#136#132'DDDD'#128#0#0#0#136#136#136#132#255#255
-  +#240#15'DD'#128#0#0#0#128#240#0#4#255#255'OH'#128#0#0#0#128#255#255#244#255
+  +#255#244#128#0#0#0#136#136#136#132#240#0#0#244#128#0#0#0#128#0#0#4#255#255
-  +#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136#128#0#0#0#128#255#255#15#8#136
+  +#255#244#128#0#0#0#128#255#255#244#240#0#0#244#128#0#0#0#128#240#0#4#255#255
-  +#136#136#128#0#0#0#128#255#255#0#136#136#136#136#128#0#0#0#128#0#0#8#136#136
+  +#255#244#128#0#0#0#128#255#255#244#240#15'DD'#128#0#0#0#128#240#0#4#255#255
-  +#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136
+  +'OH'#128#0#0#0#128#255#255#244#255#255'D'#136#128#0#0#0#128#240#15#4'DDH'#136
-  +#136#136#136#136#128#0#0#0#9'NumGlyphs'#2#0#7'OnClick'#7#11'CopySbClick'#0#0
+  +#128#0#0#0#128#255#255#15#8#136#136#136#128#0#0#0#128#255#255#0#136#136#136
-  +#6'TLabel'#6'Label2'#4'Left'#2#8#6'Height'#2#14#3'Top'#2#3#5'Width'#2#26#7'C'
+  +#136#128#0#0#0#128#0#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136
-  +'aption'#6#4'Code'#12'FocusControl'#7#6'CodeEd'#11'ParentColor'#8#0#0#7'TBut'
+  +#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#7'OnClick'#7#11
-  +'ton'#11'GenerateBtn'#4'Left'#2#8#6'Height'#2#25#4'Hint'#6#30'Display code g'
+  +'CopySbClick'#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'#7#5'Owner'
-  +'eneration dialog'#3'Top'#2'3'#5'Width'#2'i'#25'BorderSpacing.InnerBorder'#2
+  +#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2#15#3'Top'#2#12
-  +#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7#16'GenerateBtnClick'#8'TabOrd'
+  +#5'Width'#2#28#18'BorderSpacing.Left'#2#12#17'BorderSpacing.Top'#2#12#7'Capt'
-  +'er'#2#0#0#0#5'TEdit'#6'CodeEd'#4'Left'#2#8#6'Height'#2#23#3'Top'#2#19#5'Wid'
+  +'ion'#6#4'Code'#12'FocusControl'#7#6'CodeEd'#11'ParentColor'#8#0#0#7'TButton'
-  +'th'#3#233#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'
+  +#11'GenerateBtn'#22'AnchorSideLeft.Control'#7#6'CodeEd'#21'AnchorSideTop.Con'
-  +#3#192#0#6'Height'#2#25#3'Top'#2'3'#5'Width'#2'K'#4'Kind'#7#7'bkClose'#9'Num'
+  +'trol'#7#6'CodeEd'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#12#6'Heig'
-  +'Glyphs'#2#0#8'TabOrder'#2#2#0#0#12'TOgMakeCodes'#12'OgMakeCodes1'#11'KeyFil'
+  +'ht'#2#25#4'Hint'#6#30'Display code generation dialog'#3'Top'#2'@'#5'Width'#2
-  +'eName'#6#11'ONGUARD.INI'#9'ShowHints'#9#4'left'#2'@'#3'top'#2'8'#0#0#0
+  +'i'#17'BorderSpacing.Top'#2#12#20'BorderSpacing.Bottom'#2#12#25'BorderSpacin'
  +'g.InnerBorder'#2#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7#16'GenerateB'
  +'tnClick'#8'TabOrder'#2#0#0#0#5'TEdit'#6'CodeEd'#22'AnchorSideLeft.Control'#7
  +#6'Label2'#21'AnchorSideTop.Control'#7#6'Label2'#18'AnchorSideTop.Side'#7#9
  +'asrBottom'#4'Left'#2#12#6'Height'#2#23#3'Top'#2#29#5'Width'#3#250#0#17'Bord'
  +'erSpacing.Top'#2#2#20'Constraints.MinWidth'#3#250#0#8'ReadOnly'#9#8'TabOrde'
  +'r'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#11'GenerateBt'
  +'n'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrB'
  +'ottom'#4'Left'#3#206#0#6'Height'#2#25#3'Top'#2'@'#5'Width'#2'K'#7'Anchors'
  +#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bott'
  +'om'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#2#0#0#12'TOgMakeCodes'#12'OgMak'
  +'eCodes1'#11'KeyFileName'#6#11'ONGUARD.INI'#9'ShowHints'#9#4'Left'#2'h'#3'To'
  +'p'#2#8#0#0#0
 ]);
--- a/components/onguard/examples/codegen/codegenu.pas
+++ b/components/onguard/examples/codegen/codegenu.pas
@@ -1,4 +1,4 @@
-unit CODEGENU;
+unit CodeGenU;
 {$MODE Delphi}
--- a/components/onguard/examples/exdmod/exdmod.lpi
+++ b/components/onguard/examples/exdmod/exdmod.lpi
@@ -1,45 +1,54 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
    <Version Value="12"/>
    <PathDelim Value="\"/>
    <Version Value="7"/>
    <General>
      <Flags>
        <AlwaysBuild Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <Scaled Value="True"/>
-      <TargetFileExt Value=".exe"/>
+      <UseXPManifest Value="True"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="14">
      <Unit0>
        <Filename Value="exdmod.lpr"/>
        <IsPartOfProject Value="True"/>
-        <CursorPos X="76" Y="14"/>
+        <UnitName Value="Exdmod"/>
-        <TopLine Value="1"/>
+        <CursorPos X="76" Y="18"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="26"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exdmodu1.pas"/>
@@ -48,11 +57,12 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exdmodu1"/>
        <CursorPos X="3" Y="212"/>
        <TopLine Value="206"/>
        <EditorIndex Value="1"/>
        <TopLine Value="199"/>
        <CursorPos X="54" Y="211"/>
        <UsageCount Value="21"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="exdmodu2.pas"/>
@@ -61,76 +71,72 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exdmodu2"/>
-        <CursorPos X="67" Y="49"/>
+        <IsVisibleTab Value="True"/>
-        <TopLine Value="19"/>
+        <EditorIndex Value="2"/>
-        <EditorIndex Value="4"/>
+        <TopLine Value="20"/>
        <CursorPos X="70" Y="32"/>
        <UsageCount Value="21"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit2>
      <Unit3>
        <Filename Value="..\..\source\onguard.pas"/>
-        <UnitName Value="onguard"/>
+        <EditorIndex Value="4"/>
        <CursorPos X="1" Y="2088"/>
        <TopLine Value="2067"/>
-        <EditorIndex Value="2"/>
+        <CursorPos Y="2088"/>
        <UsageCount Value="12"/>
        <Loaded Value="True"/>
      </Unit3>
      <Unit4>
        <Filename Value="..\..\source\ogutil.pas"/>
        <UnitName Value="ogutil"/>
        <CursorPos X="1" Y="522"/>
        <TopLine Value="495"/>
        <EditorIndex Value="3"/>
        <TopLine Value="495"/>
        <CursorPos Y="522"/>
        <UsageCount Value="12"/>
        <Loaded Value="True"/>
      </Unit4>
      <Unit5>
        <Filename Value="..\..\source\onguard.inc"/>
        <CursorPos X="1" Y="67"/>
        <TopLine Value="47"/>
        <CursorPos Y="67"/>
        <UsageCount Value="12"/>
      </Unit5>
      <Unit6>
        <Filename Value="usr\share\fpcsrc\rtl\inc\systemh.inc"/>
        <CursorPos X="3" Y="350"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit6>
      <Unit7>
        <Filename Value="usr\share\fpcsrc\rtl\inc\system.inc"/>
        <CursorPos X="14" Y="511"/>
        <TopLine Value="500"/>
        <CursorPos X="14" Y="511"/>
        <UsageCount Value="10"/>
      </Unit7>
      <Unit8>
        <Filename Value="..\..\..\lazarus\lcl\interfaces\gtk\gtklclintf.inc"/>
        <CursorPos X="1" Y="365"/>
        <TopLine Value="346"/>
        <CursorPos Y="365"/>
        <UsageCount Value="10"/>
      </Unit8>
      <Unit9>
        <Filename Value="exdmodu2.lfm"/>
        <CursorPos X="28" Y="11"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
-        <SyntaxHighlighter Value="LFM"/>
+        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit9>
      <Unit10>
        <Filename Value="exdmodu1.lfm"/>
        <CursorPos X="28" Y="11"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
-        <SyntaxHighlighter Value="LFM"/>
+        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit10>
      <Unit11>
        <Filename Value="..\..\source\qonguard2.pas"/>
        <ComponentName Value="CodeGenerateFrm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="qonguard2"/>
        <CursorPos X="17" Y="11"/>
        <TopLine Value="61"/>
        <CursorPos X="17" Y="11"/>
        <UsageCount Value="10"/>
      </Unit11>
      <Unit12>
@@ -138,9 +144,7 @@
        <ComponentName Value="KeyMaintFrm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="qonguard3"/>
        <CursorPos X="13" Y="4"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit12>
      <Unit13>
@@ -148,156 +152,154 @@
        <ComponentName Value="ModifierFrm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="qonguard6"/>
        <CursorPos X="49" Y="61"/>
        <TopLine Value="42"/>
        <CursorPos X="49" Y="61"/>
        <UsageCount Value="10"/>
      </Unit13>
    </Units>
    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="510" Column="1" TopLine="489"/>
+        <Caret Line="510" TopLine="489"/>
      </Position1>
      <Position2>
        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="509" Column="1" TopLine="488"/>
+        <Caret Line="509" TopLine="488"/>
      </Position2>
      <Position3>
        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="510" Column="1" TopLine="489"/>
+        <Caret Line="510" TopLine="489"/>
      </Position3>
      <Position4>
        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="509" Column="1" TopLine="488"/>
+        <Caret Line="512" TopLine="491"/>
      </Position4>
      <Position5>
        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="510" Column="1" TopLine="489"/>
+        <Caret Line="515" TopLine="494"/>
      </Position5>
      <Position6>
        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="509" Column="1" TopLine="488"/>
+        <Caret Line="516" TopLine="495"/>
      </Position6>
      <Position7>
        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="510" Column="1" TopLine="489"/>
+        <Caret Line="522" TopLine="495"/>
      </Position7>
      <Position8>
        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="509" Column="1" TopLine="488"/>
+        <Caret Line="517" TopLine="496"/>
      </Position8>
      <Position9>
        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="510" Column="1" TopLine="489"/>
+        <Caret Line="516" TopLine="495"/>
      </Position9>
      <Position10>
        <Filename Value="..\..\source\ogutil.pas"/>
-        <Caret Line="512" Column="1" TopLine="491"/>
+        <Caret Line="522" TopLine="495"/>
      </Position10>
      <Position11>
-        <Filename Value="..\..\source\ogutil.pas"/>
+        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="515" Column="1" TopLine="494"/>
+        <Caret Line="176" TopLine="155"/>
      </Position11>
      <Position12>
-        <Filename Value="..\..\source\ogutil.pas"/>
+        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="516" Column="1" TopLine="495"/>
+        <Caret Line="177" TopLine="156"/>
      </Position12>
      <Position13>
-        <Filename Value="..\..\source\ogutil.pas"/>
+        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="522" Column="1" TopLine="495"/>
+        <Caret Line="179" TopLine="158"/>
      </Position13>
      <Position14>
-        <Filename Value="..\..\source\ogutil.pas"/>
+        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="517" Column="1" TopLine="496"/>
+        <Caret Line="167" Column="37" TopLine="160"/>
      </Position14>
      <Position15>
-        <Filename Value="..\..\source\ogutil.pas"/>
+        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="516" Column="1" TopLine="495"/>
+        <Caret Line="182" TopLine="161"/>
      </Position15>
      <Position16>
-        <Filename Value="..\..\source\ogutil.pas"/>
+        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="522" Column="1" TopLine="495"/>
+        <Caret Line="1179" TopLine="1158"/>
      </Position16>
      <Position17>
-        <Filename Value="exdmodu1.pas"/>
+        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="176" Column="1" TopLine="155"/>
+        <Caret Line="1180" TopLine="1159"/>
      </Position17>
      <Position18>
-        <Filename Value="exdmodu1.pas"/>
+        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="177" Column="1" TopLine="156"/>
+        <Caret Line="1181" TopLine="1160"/>
      </Position18>
      <Position19>
        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="179" Column="1" TopLine="158"/>
+        <Caret Line="184" TopLine="163"/>
      </Position19>
      <Position20>
-        <Filename Value="exdmodu1.pas"/>
+        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="167" Column="37" TopLine="160"/>
+        <Caret Line="2085" TopLine="2064"/>
      </Position20>
      <Position21>
-        <Filename Value="exdmodu1.pas"/>
+        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="182" Column="1" TopLine="161"/>
+        <Caret Line="2086" TopLine="2065"/>
      </Position21>
      <Position22>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1179" Column="1" TopLine="1158"/>
+        <Caret Line="2087" Column="40" TopLine="2066"/>
      </Position22>
      <Position23>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1180" Column="1" TopLine="1159"/>
+        <Caret Line="2088" TopLine="2067"/>
      </Position23>
      <Position24>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="1181" Column="1" TopLine="1160"/>
+        <Caret Line="188" TopLine="137"/>
      </Position24>
      <Position25>
-        <Filename Value="exdmodu1.pas"/>
+        <Filename Value="exdmodu2.pas"/>
-        <Caret Line="184" Column="1" TopLine="163"/>
+        <Caret Line="24" Column="51" TopLine="20"/>
      </Position25>
      <Position26>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="2085" Column="1" TopLine="2064"/>
+        <Caret Line="211" Column="75" TopLine="206"/>
      </Position26>
      <Position27>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="2086" Column="1" TopLine="2065"/>
+        <Caret Line="176" TopLine="156"/>
      </Position27>
      <Position28>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="2087" Column="40" TopLine="2066"/>
+        <Caret Line="175" TopLine="155"/>
      </Position28>
      <Position29>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="2088" Column="1" TopLine="2067"/>
+        <Caret Line="178" Column="27" TopLine="156"/>
      </Position29>
      <Position30>
        <Filename Value="exdmodu1.pas"/>
-        <Caret Line="188" Column="1" TopLine="137"/>
+        <Caret Line="45" Column="14" TopLine="24"/>
      </Position30>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <PathDelim Value="\"/>
    <Parsing>
      <SyntaxOptions>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <Linking>
      <Debugging>
        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
          <GraphicApplication Value="True"/>
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <BreakPoints Count="1">
      <Item1>
        <Source Value="exdmodu1.pas"/>
        <Line Value="176"/>
      </Item1>
    </BreakPoints>
    <Exceptions Count="2">
      <Item1>
        <Name Value="ECodetoolError"/>
--- a/components/onguard/examples/exdmod/exdmod.lpr
+++ b/components/onguard/examples/exdmod/exdmod.lpr
@@ -7,7 +7,11 @@ uses
  Exdmodu1 in 'EXDMODU1.PAS' {Form1},
  Exdmodu2 in 'EXDMODU2.PAS' {SNEntryDlg};
 {$R *.res}
 begin
  Application.Scaled:=True;
  Application.Title:='';
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
--- a/components/onguard/examples/exdmod/exdmodu1.lfm
+++ b/components/onguard/examples/exdmod/exdmodu1.lfm
@@ -3,52 +3,61 @@ object frmMain: TfrmMain
  Height = 186
  Top = 223
  Width = 240
-  ActiveControl = Memo1
+  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Serial Number Example'
  ClientHeight = 186
  ClientWidth = 240
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnActivate = FormActivate
  Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '2.3.0.0'
  object Label1: TLabel
-    Left = 38
+    AnchorSideLeft.Control = Owner
-    Height = 14
+    AnchorSideLeft.Side = asrCenter
-    Top = 96
+    AnchorSideTop.Control = Memo1
-    Width = 43
+    AnchorSideTop.Side = asrBottom
    Left = 98
    Height = 15
    Top = 54
    Width = 44
    Alignment = taCenter
    Caption = 'Serial #: '
    ParentColor = False
  end
-  object Memo1: TMemo
+  object CloseBtn: TBitBtn
-    Left = 3
+    AnchorSideLeft.Control = Owner
-    Height = 79
+    AnchorSideLeft.Side = asrCenter
-    Top = 4
+    AnchorSideTop.Control = Label1
-    Width = 223
+    AnchorSideTop.Side = asrBottom
-    Lines.Strings = (
+    Left = 76
-      'If you can edit this, then your program was '
+    Height = 33
-      'allowed to run'
+    Top = 81
-    )
+    Width = 89
-    ScrollBars = ssVertical
+    BorderSpacing.Around = 12
    Kind = bkClose
    TabOrder = 0
  end
-  object CloseBtn: TBitBtn
+  object Memo1: TLabel
-    Left = 72
+    AnchorSideLeft.Control = Owner
-    Height = 33
+    AnchorSideTop.Control = Owner
-    Top = 114
+    AnchorSideRight.Control = Owner
-    Width = 89
+    AnchorSideRight.Side = asrBottom
-    Kind = bkClose
+    Left = 12
-    NumGlyphs = 0
+    Height = 30
-    TabOrder = 1
+    Top = 12
    Width = 216
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Caption = 'If you can edit this, then your program was allowed to run'
    WordWrap = True
  end
  object OgSerialNumberCode1: TOgSerialNumberCode
    OnChecked = OgSerialNumberCode1Checked
    OnGetKey = OgSerialNumberCode1GetKey
    OnGetCode = OgSerialNumberCode1GetCode
    OnGetModifier = OgSerialNumberCode1GetModifier
-    left = 184
+    Left = 56
-    top = 96
+    Top = 64
  end
 end
--- a/components/onguard/examples/exdmod/exdmodu1.lrs
+++ b/components/onguard/examples/exdmod/exdmodu1.lrs
@@ -1,20 +1,26 @@
-{ To jest automatycznie wygenerowany plik zasobów lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TfrmMain','FORMDATA',[
  'TPF0'#8'TfrmMain'#7'frmMain'#4'Left'#3't'#1#6'Height'#3#186#0#3'Top'#3#223#0
-  +#5'Width'#3#240#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#21'Serial Number'
+  +#5'Width'#3#240#0#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#21
-  +' Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10'Font.Color'#7
+  +'Serial Number Example'#12'ClientHeight'#3#186#0#11'ClientWidth'#3#240#0#10
-  +#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActi'
+  +'Font.Color'#7#7'clBlack'#10'OnActivate'#7#12'FormActivate'#8'Position'#7#14
-  +'vate'#7#12'FormActivate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6
+  +'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'Anchor'
-  +'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2'&'#6'Height'#2#14#3'Top'#2'`'#5'Wid'
+  +'SideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'Anch'
-  +'th'#2'+'#9'Alignment'#7#8'taCenter'#7'Caption'#6#10'Serial #: '#11'ParentCo'
+  +'orSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
-  +'lor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#3#6'Height'#2'O'#3'Top'#2#4#5'Width'
+  +#2'b'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2','#9'Alignment'#7#8'taCenter'#7
-  +#3#223#0#13'Lines.Strings'#1#6',If you can edit this, then your program was '
+  +'Caption'#6#10'Serial #: '#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#22'A'
-  +#6#14'allowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7
+  +'nchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21
-  +'TBitBtn'#8'CloseBtn'#4'Left'#2'H'#6'Height'#2'!'#3'Top'#2'r'#5'Width'#2'Y'#4
+  +'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
-  +'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgSerialNumberC'
+  +'Left'#2'L'#6'Height'#2'!'#3'Top'#2'Q'#5'Width'#2'Y'#20'BorderSpacing.Around'
-  +'ode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCode1Checked'#8
+  +#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorS'
-  +'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'OgSerialNumberC'
+  +'ideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorS'
-  +'ode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModifier'#4'left'
+  +'ideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
-  +#3#184#0#3'top'#2'`'#0#0#0
+  +#2#12#6'Height'#2#30#3'Top'#2#12#5'Width'#3#216#0#7'Anchors'#11#5'akTop'#6'a'
  +'kLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6':If you can '
  +'edit this, then your program was allowed to run'#8'WordWrap'#9#0#0#19'TOgSe'
  +'rialNumberCode'#19'OgSerialNumberCode1'#9'OnChecked'#7#26'OgSerialNumberCod'
  +'e1Checked'#8'OnGetKey'#7#25'OgSerialNumberCode1GetKey'#9'OnGetCode'#7#26'Og'
  +'SerialNumberCode1GetCode'#13'OnGetModifier'#7#30'OgSerialNumberCode1GetModi'
  +'fier'#4'Left'#2'8'#3'Top'#2'@'#0#0#0
 ]);
--- a/components/onguard/examples/exdmod/exdmodu1.pas
+++ b/components/onguard/examples/exdmod/exdmodu1.pas
@@ -38,9 +38,9 @@ type
  { TfrmMain }
  TfrmMain = class(TForm)
    Memo1: TMemo;
    CloseBtn: TBitBtn;
    Label1: TLabel;
    Memo1: TLabel;
    OgSerialNumberCode1: TOgSerialNumberCode;
    procedure FormActivate(Sender: TObject);
    procedure OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
@@ -66,14 +66,11 @@ var
 implementation
 uses
  LResources,Exdmodu2;
 {=======================================================================}
 procedure TfrmMain.OgSerialNumberCode1GetKey(Sender: TObject; var Key: TKey);
 begin
  Key := CKey;
@@ -210,6 +207,9 @@ var
  S   : string;
 begin
  FExpired := false;
  //Status := ogValidCode;  // just to check the form
  case Status of
    ogValidCode   : begin
                      {check if retrieved Serial Number matches Code}
--- a/components/onguard/examples/exdmod/exdmodu2.lfm
+++ b/components/onguard/examples/exdmod/exdmodu2.lfm
@@ -4,88 +4,136 @@ object SNEntryDlg: TSNEntryDlg
  Top = 376
  Width = 247
  ActiveControl = SNText
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Serial Number w/Modifer'
  ClientHeight = 195
  ClientWidth = 247
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '2.3.0.0'
  object Label1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = SNText
    AnchorSideTop.Side = asrCenter
    Left = 8
-    Height = 14
+    Height = 15
-    Top = 64
+    Top = 66
-    Width = 16
+    Width = 15
    BorderSpacing.Left = 8
    Caption = 'SN'
    ParentColor = False
  end
  object Label2: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CodeText
    AnchorSideTop.Side = asrCenter
    Left = 8
-    Height = 14
+    Height = 15
-    Top = 90
+    Top = 97
-    Width = 26
+    Width = 28
    BorderSpacing.Left = 8
    Caption = 'Code'
    ParentColor = False
  end
  object Label3: TLabel
-    Left = 40
+    AnchorSideLeft.Control = Owner
-    Height = 14
+    AnchorSideLeft.Side = asrCenter
-    Top = 7
+    AnchorSideTop.Control = Owner
-    Width = 160
+    Left = 34
    Height = 15
    Top = 8
    Width = 178
    BorderSpacing.Top = 8
    Caption = 'Call your Vendor NOW to register!'
    ParentColor = False
  end
  object Label4: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = ModString
    AnchorSideTop.Side = asrCenter
    Left = 8
-    Height = 14
+    Height = 15
-    Top = 37
+    Top = 35
-    Width = 38
+    Width = 45
    BorderSpacing.Left = 8
    Caption = 'Modifier'
    ParentColor = False
  end
  object SNText: TEdit
-    Left = 52
+    AnchorSideLeft.Control = ModString
    AnchorSideTop.Control = ModString
    AnchorSideTop.Side = asrBottom
    Left = 61
    Height = 23
-    Top = 60
+    Top = 62
    Width = 121
    BorderSpacing.Top = 8
    TabOrder = 1
  end
  object CodeText: TEdit
-    Left = 52
+    AnchorSideLeft.Control = SNText
    AnchorSideTop.Control = SNText
    AnchorSideTop.Side = asrBottom
    Left = 61
    Height = 23
-    Top = 86
+    Top = 93
    Width = 175
    BorderSpacing.Top = 8
    BorderSpacing.Right = 8
    TabOrder = 2
  end
  object OKBtn: TBitBtn
-    Left = 23
+    AnchorSideTop.Control = CancelBtn
    AnchorSideRight.Control = Bevel1
    Left = 26
    Height = 33
-    Top = 118
+    Top = 128
    Width = 89
    Anchors = [akTop, akRight]
    BorderSpacing.Bottom = 8
    Kind = bkOK
    ModalResult = 1
    NumGlyphs = 0
    TabOrder = 3
  end
  object CancelBtn: TBitBtn
-    Left = 127
+    AnchorSideLeft.Control = Bevel1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = CodeText
    AnchorSideTop.Side = asrBottom
    Left = 131
    Height = 33
-    Top = 118
+    Top = 128
    Width = 89
    BorderSpacing.Top = 12
    BorderSpacing.Bottom = 8
    Kind = bkCancel
    NumGlyphs = 0
    OnClick = CancelBtnClick
    TabOrder = 4
  end
  object ModString: TEdit
-    Left = 52
+    AnchorSideLeft.Control = Label4
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Label3
    AnchorSideTop.Side = asrBottom
    Left = 61
    Height = 23
-    Top = 33
+    Top = 31
    Width = 121
    BorderSpacing.Left = 8
    BorderSpacing.Top = 8
    ReadOnly = True
    TabStop = False
    TabOrder = 0
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Owner
    AnchorSideLeft.Side = asrCenter
    Left = 115
    Height = 37
    Top = 125
    Width = 16
    Shape = bsSpacer
  end
 end
--- a/components/onguard/examples/exdmod/exdmodu2.lrs
+++ b/components/onguard/examples/exdmod/exdmodu2.lrs
@@ -1,25 +1,46 @@
-{ To jest automatycznie wygenerowany plik zasobów lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TSNEntryDlg','FORMDATA',[
  'TPF0'#11'TSNEntryDlg'#10'SNEntryDlg'#4'Left'#3#150#1#6'Height'#3#195#0#3'Top'
-  +#3'x'#1#5'Width'#3#247#0#13'ActiveControl'#7#6'SNText'#7'Caption'#6#23'Seria'
+  +#3'x'#1#5'Width'#3#247#0#13'ActiveControl'#7#6'SNText'#8'AutoSize'#9#11'Bord'
-  +'l Number w/Modifer'#12'ClientHeight'#3#195#0#11'ClientWidth'#3#247#0#10'Fon'
+  +'erStyle'#7#8'bsDialog'#7'Caption'#6#23'Serial Number w/Modifer'#12'ClientHe'
-  +'t.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'
+  +'ight'#3#195#0#11'ClientWidth'#3#247#0#10'Font.Color'#7#7'clBlack'#8'OnCreat'
-  +#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'
+  +'e'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3'
-  +#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'@'#5
+  +'.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anchor'
-  +'Width'#2#16#7'Caption'#6#2'SN'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4
+  +'SideTop.Control'#7#6'SNText'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
-  +'Left'#2#8#6'Height'#2#14#3'Top'#2'Z'#5'Width'#2#26#7'Caption'#6#4'Code'#11
+  +#8#6'Height'#2#15#3'Top'#2'B'#5'Width'#2#15#18'BorderSpacing.Left'#2#8#7'Cap'
-  +'ParentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2'('#6'Height'#2#14#3'Top'#2
+  +'tion'#6#2'SN'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.C'
-  +#7#5'Width'#3#160#0#7'Caption'#6'!Call your Vendor NOW to register!'#11'Pare'
+  +'ontrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'CodeText'#18'AnchorSideTop'
-  +'ntColor'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#8#6'Height'#2#14#3'Top'#2'%'#5
+  +'.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#2'a'#5'Width'#2#28
-  +'Width'#2'&'#7'Caption'#6#8'Modifier'#11'ParentColor'#8#0#0#5'TEdit'#6'SNTex'
+  +#18'BorderSpacing.Left'#2#8#7'Caption'#6#4'Code'#11'ParentColor'#8#0#0#6'TLa'
-  +'t'#4'Left'#2'4'#6'Height'#2#23#3'Top'#2'<'#5'Width'#2'y'#8'TabOrder'#2#1#0#0
+  +'bel'#6'Label3'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'
-  +#5'TEdit'#8'CodeText'#4'Left'#2'4'#6'Height'#2#23#3'Top'#2'V'#5'Width'#3#175
+  +#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2'"'#6'Height'#2
-  +#0#8'TabOrder'#2#2#0#0#7'TBitBtn'#5'OKBtn'#4'Left'#2#23#6'Height'#2'!'#3'Top'
+  +#15#3'Top'#2#8#5'Width'#3#178#0#17'BorderSpacing.Top'#2#8#7'Caption'#6'!Call'
-  +#2'v'#5'Width'#2'Y'#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8
+  +' your Vendor NOW to register!'#11'ParentColor'#8#0#0#6'TLabel'#6'Label4'#22
-  +'TabOrder'#2#3#0#0#7'TBitBtn'#9'CancelBtn'#4'Left'#2''#6'Height'#2'!'#3'Top'
+  +'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'ModString'
-  +#2'v'#5'Width'#2'Y'#4'Kind'#7#8'bkCancel'#9'NumGlyphs'#2#0#7'OnClick'#7#14'C'
+  +#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#2'#'
-  +'ancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModString'#4'Left'#2'4'#6'Hei'
+  +#5'Width'#2'-'#18'BorderSpacing.Left'#2#8#7'Caption'#6#8'Modifier'#11'Parent'
-  +'ght'#2#23#3'Top'#2'!'#5'Width'#2'y'#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2
+  +'Color'#8#0#0#5'TEdit'#6'SNText'#22'AnchorSideLeft.Control'#7#9'ModString'#21
-  +#0#0#0#0
+  +'AnchorSideTop.Control'#7#9'ModString'#18'AnchorSideTop.Side'#7#9'asrBottom'
  +#4'Left'#2'='#6'Height'#2#23#3'Top'#2'>'#5'Width'#2'y'#17'BorderSpacing.Top'
  +#2#8#8'TabOrder'#2#1#0#0#5'TEdit'#8'CodeText'#22'AnchorSideLeft.Control'#7#6
  +'SNText'#21'AnchorSideTop.Control'#7#6'SNText'#18'AnchorSideTop.Side'#7#9'as'
  +'rBottom'#4'Left'#2'='#6'Height'#2#23#3'Top'#2']'#5'Width'#3#175#0#17'Border'
  +'Spacing.Top'#2#8#19'BorderSpacing.Right'#2#8#8'TabOrder'#2#2#0#0#7'TBitBtn'
  +#5'OKBtn'#21'AnchorSideTop.Control'#7#9'CancelBtn'#23'AnchorSideRight.Contro'
  +'l'#7#6'Bevel1'#4'Left'#2#26#6'Height'#2'!'#3'Top'#3#128#0#5'Width'#2'Y'#7'A'
  +'nchors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#4'b'
  +'kOK'#11'ModalResult'#2#1#8'TabOrder'#2#3#0#0#7'TBitBtn'#9'CancelBtn'#22'Anc'
  +'horSideLeft.Control'#7#6'Bevel1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
  +'AnchorSideTop.Control'#7#8'CodeText'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
  +'Left'#3#131#0#6'Height'#2'!'#3'Top'#3#128#0#5'Width'#2'Y'#17'BorderSpacing.'
  +'Top'#2#12#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#8'bkCancel'#7'OnClick'#7#14
  +'CancelBtnClick'#8'TabOrder'#2#4#0#0#5'TEdit'#9'ModString'#22'AnchorSideLeft'
  +'.Control'#7#6'Label4'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
  +'op.Control'#7#6'Label3'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'='#6
  +'Height'#2#23#3'Top'#2#31#5'Width'#2'y'#18'BorderSpacing.Left'#2#8#17'Border'
  +'Spacing.Top'#2#8#8'ReadOnly'#9#7'TabStop'#8#8'TabOrder'#2#0#0#0#6'TBevel'#6
  +'Bevel1'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'a'
  +'srCenter'#4'Left'#2's'#6'Height'#2'%'#3'Top'#2'}'#5'Width'#2#16#5'Shape'#7#8
  +'bsSpacer'#0#0#0
 ]);
--- a/components/onguard/examples/exdmod/exdmodu2.pas
+++ b/components/onguard/examples/exdmod/exdmodu2.pas
@@ -4,13 +4,14 @@ interface
 uses
  SysUtils,Classes,Controls,
-  Forms, Dialogs, StdCtrls, Buttons,LResources;
+  Forms, Dialogs, StdCtrls, Buttons,LResources, ExtCtrls;
 type
  { TSNEntryDlg }
  TSNEntryDlg = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    SNText: TEdit;
--- a/components/onguard/examples/exdtp21/exdtp21.lpi
+++ b/components/onguard/examples/exdtp21/exdtp21.lpi
@@ -1,28 +1,34 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
    <Version Value="12"/>
    <PathDelim Value="\"/>
    <Version Value="7"/>
    <General>
      <Flags>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
    <RequiredPackages Count="2">
      <Item1>
@@ -38,11 +44,11 @@
      <Unit0>
        <Filename Value="exdtp21.lpr"/>
        <IsPartOfProject Value="True"/>
-        <CursorPos X="44" Y="9"/>
+        <UnitName Value="Exdtp21"/>
-        <TopLine Value="1"/>
+        <CursorPos X="44" Y="11"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="837"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exdtp21u.pas"/>
@@ -51,23 +57,24 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exdtp21u"/>
-        <CursorPos X="63" Y="113"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="72"/>
        <EditorIndex Value="1"/>
        <TopLine Value="87"/>
        <CursorPos X="52" Y="107"/>
        <UsageCount Value="836"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="..\..\source\onguard.pas"/>
        <UnitName Value="onguard"/>
        <CursorPos X="41" Y="1207"/>
        <TopLine Value="1199"/>
        <EditorIndex Value="2"/>
        <TopLine Value="1199"/>
        <CursorPos X="41" Y="1207"/>
        <UsageCount Value="418"/>
        <Loaded Value="True"/>
      </Unit2>
    </Units>
-    <JumpHistory Count="13" HistoryIndex="12">
+    <JumpHistory Count="15" HistoryIndex="14">
      <Position1>
        <Filename Value="exdtp21u.pas"/>
        <Caret Line="83" Column="17" TopLine="69"/>
@@ -102,32 +109,41 @@
      </Position8>
      <Position9>
        <Filename Value="exdtp21.lpr"/>
-        <Caret Line="13" Column="40" TopLine="1"/>
+        <Caret Line="13" Column="40"/>
      </Position9>
      <Position10>
        <Filename Value="exdtp21.lpr"/>
-        <Caret Line="9" Column="44" TopLine="1"/>
+        <Caret Line="9" Column="44"/>
      </Position10>
      <Position11>
        <Filename Value="exdtp21u.pas"/>
-        <Caret Line="75" Column="1" TopLine="75"/>
+        <Caret Line="75" TopLine="75"/>
      </Position11>
      <Position12>
        <Filename Value="exdtp21u.pas"/>
-        <Caret Line="106" Column="1" TopLine="91"/>
+        <Caret Line="106" TopLine="91"/>
      </Position12>
      <Position13>
        <Filename Value="..\..\source\onguard.pas"/>
        <Caret Line="1344" Column="8" TopLine="1323"/>
      </Position13>
      <Position14>
        <Filename Value="exdtp21u.pas"/>
        <Caret Line="98" Column="49" TopLine="73"/>
      </Position14>
      <Position15>
        <Filename Value="exdtp21u.pas"/>
        <Caret Line="97" Column="49" TopLine="72"/>
      </Position15>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <PathDelim Value="\"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -139,54 +155,67 @@
      </Checks>
    </CodeGeneration>
    <Linking>
      <Debugging>
        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
          <GraphicApplication Value="True"/>
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
-    <BreakPoints Count="9">
+    <BreakPoints Count="7">
      <Item1>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\qonguard3.pas"/>
        <Line Value="135"/>
      </Item1>
      <Item2>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\qonguard3.pas"/>
        <Line Value="143"/>
      </Item2>
      <Item3>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\qonguard3.pas"/>
        <Line Value="159"/>
      </Item3>
      <Item4>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\qonguard3.pas"/>
        <Line Value="186"/>
      </Item4>
      <Item5>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\qonguard3.pas"/>
        <Line Value="212"/>
      </Item5>
      <Item6>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\qonguard3.pas"/>
        <Line Value="235"/>
      </Item6>
      <Item7>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\qonguard3.pas"/>
        <Line Value="130"/>
      </Item7>
      <Item8>
        <Source Value="exdtp21u.pas"/>
        <Line Value="75"/>
      </Item8>
      <Item9>
        <Source Value="exdtp21u.pas"/>
        <Line Value="106"/>
      </Item9>
    </BreakPoints>
    <Exceptions Count="2">
      <Item1>
--- a/components/onguard/examples/exdtp21/exdtp21.lpr
+++ b/components/onguard/examples/exdtp21/exdtp21.lpr
@@ -6,7 +6,10 @@ uses
  Forms,
  Exdtp21u in 'exdtp21u.pas' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Title:='';
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
--- a/components/onguard/examples/exdtp21/exdtp21u.lfm
+++ b/components/onguard/examples/exdtp21/exdtp21u.lfm
@@ -3,53 +3,59 @@ object Form1: TForm1
  Height = 155
  Top = 279
  Width = 228
-  ActiveControl = Memo1
+  AutoSize = True
  Caption = 'Form1'
  ClientHeight = 155
  ClientWidth = 228
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnActivate = FormActivate
  Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '2.3.0.0'
  object Label1: TLabel
-    Left = 50
+    AnchorSideLeft.Control = Owner
-    Height = 14
+    AnchorSideLeft.Side = asrCenter
-    Top = 70
+    AnchorSideTop.Control = Memo1
-    Width = 99
+    AnchorSideTop.Side = asrBottom
    Left = 64
    Height = 15
    Top = 54
    Width = 101
    Caption = 'Expires: 00/00/0000'
    ParentColor = False
  end
-  object Memo1: TMemo
+  object CloseBtn: TBitBtn
-    Left = 8
+    AnchorSideLeft.Control = Owner
-    Height = 59
+    AnchorSideLeft.Side = asrCenter
-    Top = 8
+    AnchorSideTop.Control = Label1
-    Width = 197
+    AnchorSideTop.Side = asrBottom
-    Lines.Strings = (
+    Left = 70
-      'If you can edit this, your program '
+    Height = 33
-      'was '
+    Top = 81
-      'allowed to run'
+    Width = 89
-    )
+    BorderSpacing.Around = 12
-    OnDblClick = Memo1DblClick
+    Kind = bkClose
    ScrollBars = ssVertical
    TabOrder = 0
  end
-  object CloseBtn: TBitBtn
+  object Memo1: TLabel
-    Left = 56
+    AnchorSideLeft.Control = Owner
-    Height = 33
+    AnchorSideTop.Control = Owner
-    Top = 89
+    AnchorSideRight.Control = Owner
-    Width = 89
+    AnchorSideRight.Side = asrBottom
-    Kind = bkClose
+    Left = 12
-    NumGlyphs = 0
+    Height = 30
-    TabOrder = 1
+    Top = 12
    Width = 204
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Caption = 'If you can edit this, your program was allowed to run'
    WordWrap = True
    OnDblClick = Memo1DblClick
  end
  object OgDateCode1: TOgDateCode
    OnChecked = OgDateCode1Checked
    OnGetKey = OgDateCode1GetKey
    OnGetCode = OgDateCode1GetCode
    StoreCode = True
-    left = 158
+    Left = 176
-    top = 87
+    Top = 64
  end
 end
--- a/components/onguard/examples/exdtp21/exdtp21u.lrs
+++ b/components/onguard/examples/exdtp21/exdtp21u.lrs
@@ -1,19 +1,24 @@
-{ To jest automatycznie wygenerowany plik zasobów lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'b'#1#6'Height'#3#155#0#3'Top'#3#23#1#5'Wi'
-  +'dth'#3#228#0#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#5'Form1'#12'ClientHe'
+  +'dth'#3#228#0#8'AutoSize'#9#7'Caption'#6#5'Form1'#12'ClientHeight'#3#155#0#11
-  +'ight'#3#155#0#11'ClientWidth'#3#228#0#10'Font.Color'#7#7'clBlack'#11'Font.H'
+  +'ClientWidth'#3#228#0#10'OnActivate'#7#12'FormActivate'#8'Position'#7#14'poS'
-  +'eight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#10'OnActivate'#7#12'FormActiv'
+  +'creenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSid'
-  +'ate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'
+  +'eLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorS'
-  +#6'Label1'#4'Left'#2'2'#6'Height'#2#14#3'Top'#2'F'#5'Width'#2'c'#7'Caption'#6
+  +'ideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2
-  +#19'Expires: 00/00/0000'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8
+  +'@'#6'Height'#2#15#3'Top'#2'6'#5'Width'#2'e'#7'Caption'#6#19'Expires: 00/00/'
-  +#6'Height'#2';'#3'Top'#2#8#5'Width'#3#197#0#13'Lines.Strings'#1#6'#If you ca'
+  +'0000'#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorSideLeft.Contro'
-  +'n edit this, your program '#6#4'was '#6#14'allowed to run'#0#10'OnDblClick'
+  +'l'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Contr'
-  +#7#13'Memo1DblClick'#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'T'
+  +'ol'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'F'#6'Height'
-  +'BitBtn'#8'CloseBtn'#4'Left'#2'8'#6'Height'#2'!'#3'Top'#2'Y'#5'Width'#2'Y'#4
+  +#2'!'#3'Top'#2'Q'#5'Width'#2'Y'#20'BorderSpacing.Around'#2#12#4'Kind'#7#7'bk'
-  +'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#11'TOgDateCode'#11
+  +'Close'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5
-  +'OgDateCode1'#9'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetKey'#7#17'OgDateC'
+  +'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5
-  +'ode1GetKey'#9'OnGetCode'#7#18'OgDateCode1GetCode'#9'StoreCode'#9#4'left'#3
+  +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3
-  +#158#0#3'top'#2'W'#0#0#0
+  +'Top'#2#12#5'Width'#3#204#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20
  +'BorderSpacing.Around'#2#12#7'Caption'#6'5If you can edit this, your program'
  +' was allowed to run'#8'WordWrap'#9#10'OnDblClick'#7#13'Memo1DblClick'#0#0#11
  +'TOgDateCode'#11'OgDateCode1'#9'OnChecked'#7#18'OgDateCode1Checked'#8'OnGetK'
  +'ey'#7#17'OgDateCode1GetKey'#9'OnGetCode'#7#18'OgDateCode1GetCode'#9'StoreCo'
  +'de'#9#4'Left'#3#176#0#3'Top'#2'@'#0#0#0
 ]);
--- a/components/onguard/examples/exdtp21/exdtp21u.pas
+++ b/components/onguard/examples/exdtp21/exdtp21u.pas
@@ -22,8 +22,8 @@ type
  { TForm1 }
  TForm1 = class(TForm)
    Memo1: TMemo;
    CloseBtn: TBitBtn;
    Memo1: TLabel;
    OgDateCode1: TOgDateCode;
    Label1: TLabel;
    procedure FormActivate(Sender: TObject);
@@ -104,11 +104,10 @@ var
  S  : string;
 begin
  FExpired := false;
-  ShortDateFormat := 'yyy-mm-dd';
+  // Status := ogValidCode;  // -- just for testing the form
  case Status of
    ogValidCode   : begin
-                      Label1.Caption := 'Expires: '
+                      Label1.Caption := 'Expires: ' + DateToStr(OgDateCode1.GetValue);
                                      + DateToStr(OgDateCode1.GetValue);
                      Exit;
                    end;
--- a/components/onguard/examples/exdtreg/exdtreg.lpi
+++ b/components/onguard/examples/exdtreg/exdtreg.lpi
@@ -1,46 +1,57 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
    <Version Value="12"/>
    <PathDelim Value="\"/>
    <Version Value="7"/>
    <General>
      <Flags>
-        <AlwaysBuild Value="False"/>
+        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="4">
      <Unit0>
        <Filename Value="exdtreg.lpr"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="ExDTReg"/>
        <CursorPos X="10" Y="7"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
-        <SyntaxHighlighter Value="Delphi"/>
+        <LoadedDesigner Value="True"/>
        <DefaultSyntaxHighlighter Value="Delphi"/>
      </Unit0>
      <Unit1>
        <Filename Value="exdtregu.pas"/>
@@ -49,163 +60,162 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="ExDTRegU"/>
-        <CursorPos X="56" Y="98"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="89"/>
        <EditorIndex Value="1"/>
        <TopLine Value="27"/>
        <CursorPos Y="44"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
-        <SyntaxHighlighter Value="Delphi"/>
+        <LoadedDesigner Value="True"/>
        <DefaultSyntaxHighlighter Value="Delphi"/>
      </Unit1>
      <Unit2>
        <Filename Value="..\..\source\qonguard3.pas"/>
        <ComponentName Value="KeyMaintFrm"/>
        <HasResources Value="True"/>
        <UnitName Value="qonguard3"/>
        <CursorPos X="1" Y="280"/>
        <TopLine Value="252"/>
        <CursorPos Y="280"/>
        <UsageCount Value="10"/>
      </Unit2>
      <Unit3>
        <Filename Value="..\..\source\onguard.pas"/>
        <UnitName Value="onguard"/>
        <CursorPos X="43" Y="1866"/>
        <TopLine Value="1843"/>
        <EditorIndex Value="2"/>
        <TopLine Value="1843"/>
        <CursorPos X="43" Y="1866"/>
        <UsageCount Value="10"/>
        <Loaded Value="True"/>
      </Unit3>
    </Units>
    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdtregu.pas"/>
-        <Caret Line="1320" Column="1" TopLine="1305"/>
+        <Caret Line="73" TopLine="58"/>
      </Position1>
      <Position2>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdtregu.pas"/>
-        <Caret Line="1322" Column="1" TopLine="1307"/>
+        <Caret Line="75" TopLine="60"/>
      </Position2>
      <Position3>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdtregu.pas"/>
-        <Caret Line="1323" Column="1" TopLine="1308"/>
+        <Caret Line="77" TopLine="62"/>
      </Position3>
      <Position4>
        <Filename Value="exdtregu.pas"/>
-        <Caret Line="72" Column="1" TopLine="57"/>
+        <Caret Line="79" TopLine="64"/>
      </Position4>
      <Position5>
        <Filename Value="exdtregu.pas"/>
-        <Caret Line="73" Column="1" TopLine="58"/>
+        <Caret Line="81" TopLine="66"/>
      </Position5>
      <Position6>
        <Filename Value="exdtregu.pas"/>
-        <Caret Line="75" Column="1" TopLine="60"/>
+        <Caret Line="83" TopLine="68"/>
      </Position6>
      <Position7>
-        <Filename Value="exdtregu.pas"/>
+        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="77" Column="1" TopLine="62"/>
+        <Caret Line="1217" TopLine="1202"/>
      </Position7>
      <Position8>
-        <Filename Value="exdtregu.pas"/>
+        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="79" Column="1" TopLine="64"/>
+        <Caret Line="1218" TopLine="1203"/>
      </Position8>
      <Position9>
-        <Filename Value="exdtregu.pas"/>
+        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="81" Column="1" TopLine="66"/>
+        <Caret Line="1324" TopLine="1309"/>
      </Position9>
      <Position10>
-        <Filename Value="exdtregu.pas"/>
+        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="83" Column="1" TopLine="68"/>
+        <Caret Line="1326" TopLine="1311"/>
      </Position10>
      <Position11>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1217" Column="1" TopLine="1202"/>
+        <Caret Line="1327" TopLine="1312"/>
      </Position11>
      <Position12>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1218" Column="1" TopLine="1203"/>
+        <Caret Line="1331" TopLine="1316"/>
      </Position12>
      <Position13>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1324" Column="1" TopLine="1309"/>
+        <Caret Line="1864" Column="40" TopLine="1841"/>
      </Position13>
      <Position14>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1326" Column="1" TopLine="1311"/>
+        <Caret Line="1320" TopLine="1305"/>
      </Position14>
      <Position15>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1327" Column="1" TopLine="1312"/>
+        <Caret Line="1322" TopLine="1307"/>
      </Position15>
      <Position16>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1331" Column="1" TopLine="1316"/>
+        <Caret Line="1323" TopLine="1308"/>
      </Position16>
      <Position17>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1864" Column="40" TopLine="1841"/>
+        <Caret Line="1324" TopLine="1309"/>
      </Position17>
      <Position18>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1320" Column="1" TopLine="1305"/>
+        <Caret Line="1326" TopLine="1311"/>
      </Position18>
      <Position19>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1322" Column="1" TopLine="1307"/>
+        <Caret Line="1327" TopLine="1312"/>
      </Position19>
      <Position20>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1323" Column="1" TopLine="1308"/>
+        <Caret Line="1932" TopLine="1917"/>
      </Position20>
      <Position21>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1324" Column="1" TopLine="1309"/>
+        <Caret Line="1933" TopLine="1918"/>
      </Position21>
      <Position22>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1326" Column="1" TopLine="1311"/>
+        <Caret Line="1934" TopLine="1919"/>
      </Position22>
      <Position23>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1327" Column="1" TopLine="1312"/>
+        <Caret Line="1936" TopLine="1921"/>
      </Position23>
      <Position24>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1932" Column="1" TopLine="1917"/>
+        <Caret Line="1331" TopLine="1316"/>
      </Position24>
      <Position25>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1933" Column="1" TopLine="1918"/>
+        <Caret Line="1856" TopLine="1841"/>
      </Position25>
      <Position26>
        <Filename Value="..\..\source\onguard.pas"/>
-        <Caret Line="1934" Column="1" TopLine="1919"/>
+        <Caret Line="1857" TopLine="1842"/>
      </Position26>
      <Position27>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdtregu.pas"/>
-        <Caret Line="1936" Column="1" TopLine="1921"/>
+        <Caret Line="114" Column="59" TopLine="88"/>
      </Position27>
      <Position28>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdtregu.pas"/>
-        <Caret Line="1331" Column="1" TopLine="1316"/>
+        <Caret Line="43" TopLine="26"/>
      </Position28>
      <Position29>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdtregu.pas"/>
-        <Caret Line="1856" Column="1" TopLine="1841"/>
+        <Caret Line="42" TopLine="25"/>
      </Position29>
      <Position30>
-        <Filename Value="..\..\source\onguard.pas"/>
+        <Filename Value="exdtregu.pas"/>
-        <Caret Line="1857" Column="1" TopLine="1842"/>
+        <Caret Line="43" TopLine="26"/>
      </Position30>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <PathDelim Value="\"/>
    <Parsing>
      <SyntaxOptions>
        <SyntaxMode Value="Delphi"/>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="True"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -217,26 +227,25 @@
      </Checks>
    </CodeGeneration>
    <Linking>
      <Debugging>
        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
          <GraphicApplication Value="True"/>
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
-    <BreakPoints Count="2">
+    <BreakPoints Count="1">
      <Item1>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="..\..\source\onguard.pas"/>
        <Line Value="1320"/>
      </Item1>
      <Item2>
        <Source Value="exdtregu.pas"/>
        <Line Value="44"/>
      </Item2>
    </BreakPoints>
    <Exceptions Count="2">
      <Item1>
--- a/components/onguard/examples/exdtreg/exdtreg.lpr
+++ b/components/onguard/examples/exdtreg/exdtreg.lpr
@@ -7,6 +7,8 @@ uses
  exdtregu in 'exdtregu.pas' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exdtreg/exdtregu.lfm
+++ b/components/onguard/examples/exdtreg/exdtregu.lfm
@@ -5,94 +5,129 @@ object Form1: TForm1
  Width = 484
  HorzScrollBar.Page = 483
  VertScrollBar.Page = 308
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Date Code Example'
-  Font.Height = -11
+  ClientHeight = 309
-  Font.Name = 'MS Sans Serif'
+  ClientWidth = 484
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
-    Left = 8
+    AnchorSideLeft.Control = Memo1
-    Height = 13
+    AnchorSideTop.Control = CloseBtn
-    Top = 262
+    AnchorSideTop.Side = asrCenter
-    Width = 35
+    Left = 12
    Height = 15
    Top = 249
    Width = 32
    Caption = 'Status'
    Color = clNone
    ParentColor = False
  end
  object Label1: TLabel
-    Left = 240
+    AnchorSideLeft.Control = CodeBtn
-    Height = 13
+    AnchorSideLeft.Side = asrBottom
-    Top = 14
+    AnchorSideTop.Control = CodeBtn
-    Width = 77
+    AnchorSideTop.Side = asrCenter
    Left = 181
    Height = 15
    Top = 17
    Width = 72
    BorderSpacing.Left = 80
    Caption = 'Current code:'
    Color = clNone
    ParentColor = False
  end
  object CodeLbl: TLabel
-    Left = 328
+    AnchorSideLeft.Control = Label1
-    Height = 13
+    AnchorSideLeft.Side = asrBottom
-    Top = 14
+    AnchorSideTop.Control = CodeBtn
-    Width = 113
+    AnchorSideTop.Side = asrCenter
    Left = 265
    Height = 15
    Top = 17
    Width = 96
    BorderSpacing.Left = 12
    Caption = '0000000000000000'
    Color = clNone
    ParentColor = False
  end
  object CodeBtn: TButton
-    Left = 8
+    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 12
    Height = 25
-    Top = 8
+    Top = 12
    Width = 89
    BorderSpacing.Around = 12
    BorderSpacing.InnerBorder = 4
    Caption = 'Enter Code'
    OnClick = CodeBtnClick
    TabOrder = 0
  end
  object Memo1: TMemo
    Left = 8
    Height = 209
    Top = 40
    Width = 465
    Color = clBtnFace
    Lines.Strings = (
      'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
      'the code is either the incorrect type or that none has been entered. '
      ''
      'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
      'say that the code is invalid.'
      ''
      'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
      'the proper "Date" code). '
      ''
      'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
      'will cause the TOgDateCode component to report that the code is invalid.'
    )
    ReadOnly = True
    TabOrder = 1
  end
  object CloseBtn: TBitBtn
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 400
    Height = 25
-    Top = 256
+    Top = 244
    Width = 75
    Anchors = [akTop]
    BorderSpacing.Top = 12
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 12
    Kind = bkClose
-    NumGlyphs = 0
+    TabOrder = 1
    TabOrder = 2
  end
  object RemoveBtn: TButton
-    Left = 288
+    AnchorSideTop.Control = CloseBtn
    AnchorSideRight.Control = CloseBtn
    Left = 299
    Height = 25
-    Top = 256
+    Top = 244
    Width = 97
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 4
    BorderSpacing.InnerBorder = 4
    Caption = 'Remove Code'
    OnClick = RemoveBtnClick
-    TabOrder = 3
+    TabOrder = 2
  end
  object Memo1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 165
    Top = 49
    Width = 460
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Date" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgDateCode component to report that the code is invalid.'
    Color = clBtnFace
    ParentColor = False
    WordWrap = True
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Memo1
    AnchorSideRight.Control = Memo1
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 3
    Top = 229
    Width = 460
    Anchors = [akTop, akLeft, akRight]
    Shape = bsTopLine
  end
  object OgDateCode1: TOgDateCode
    OnChecked = CodeChecked
    OnGetKey = GetKey
    OnGetCode = GetCode
-    left = 16
+    Left = 168
-    top = 216
+    Top = 192
  end
 end
--- a/components/onguard/examples/exdtreg/exdtregu.lrs
+++ b/components/onguard/examples/exdtreg/exdtregu.lrs
@@ -1,34 +1,54 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#252#0#6'Height'#3'5'#1#3'Top'#3#138#0#5'W'
-  +'idth'#3#228#1#18'HorzScrollBar.Page'#3#227#1#18'VertScrollBar.Page'#3'4'#1
+  +'idth'#3#228#1#18'HorzScrollBar.Page'#3#227#1#18'VertScrollBar.Page'#3'4'#1#8
-  +#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Date Code Example'#11'Font.He'
+  +'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Date Code Example'
-  +'ight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScreenCente'
+  +#12'ClientHeight'#3'5'#1#11'ClientWidth'#3#228#1#8'Position'#7#14'poScreenCe'
-  +'r'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Height'#2#13#3'Top'#3#6#1#5'Width'
+  +'nter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSideLef'
-  +#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
+  +'t.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSide'
-  +'abel'#6'Label1'#4'Left'#3#240#0#6'Height'#2#13#3'Top'#2#14#5'Width'#2'M'#7
+  +'Top.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#249#0#5'Width'
-  +'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T'
+  +#2' '#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
-  +'Label'#7'CodeLbl'#4'Left'#3'H'#1#6'Height'#2#13#3'Top'#2#14#5'Width'#2'q'#7
+  +'abel'#6'Label1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.S'
-  +'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7
+  +'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop'
-  +'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#25
+  +'.Side'#7#9'asrCenter'#4'Left'#3#181#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2
-  +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12
+  +'H'#18'BorderSpacing.Left'#2'P'#7'Caption'#6#13'Current code:'#5'Color'#7#6
-  +'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#3
+  +'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#22'AnchorSideLeft.Contro'
-  +#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9'clBtnFace'#13'Lines.Strings'
+  +'l'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Cont'
-  +#1#6'fThe label at the bottom of this form indicates the status of the code.'
+  +'rol'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#9#1#6'Hei'
-  +' An invalid code indicates that '#6'Ethe code is either the incorrect type '
+  +'ght'#2#15#3'Top'#2#17#5'Width'#2'`'#18'BorderSpacing.Left'#2#12#7'Caption'#6
-  +'or that none has been entered. '#6#0#6'^If the proper code has not been ent'
+  +#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#7
-  +'ered or the ONGUARD.INI file was deleted, the message will '#6#29'say that '
+  +'CodeBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5
-  +'the code is invalid.'#6#0#6'YUse the "Enter Code" button to enter a code (t'
+  +'Owner'#4'Left'#2#12#6'Height'#2#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpaci'
-  +'he CODEGEN program can be used to generate '#6#25'the proper "Date" code). '
+  +'ng.Around'#2#12#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Cod'
-  +#6#0#6'\The "Remove Code" button can be used to remove the entered code from'
+  +'e'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'
-  +' the INI file. Doing so '#6'Hwill cause the TOgDateCode component to report'
+  +#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'
-  +' that the code is invalid.'#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7'TBitBtn'#8
+  +#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott'
-  +'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'K'#4'Kind'
+  +'om'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#244#0#5'Width'#2'K'#7'Anchors'
-  +#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TButton'#9'RemoveBtn'#4
+  +#11#5'akTop'#0#17'BorderSpacing.Top'#2#12#19'BorderSpacing.Right'#2#12#20'Bo'
-  +'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'a'#25'BorderSpacing.Inn'
+  +'rderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'TButton'
-  +'erBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8
+  +#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'AnchorSideRight.Con'
-  +'TabOrder'#2#3#0#0#11'TOgDateCode'#11'OgDateCode1'#9'OnChecked'#7#11'CodeChe'
+  +'trol'#7#8'CloseBtn'#4'Left'#3'+'#1#6'Height'#2#25#3'Top'#3#244#0#5'Width'#2
-  +'cked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#4'left'#2#16#3'top'
+  +'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#4#25'Borde'
-  +#3#216#0#0#0#0
+  +'rSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'Remo'
  +'veBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Contro'
  +'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'
  +#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Si'
  +'de'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2'1'#5'Width'#3#204
  +#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2
  +#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this form indicates th'
  +'e status of the code. An invalid code indicates that the code is either the'
  +' incorrect type or that none has been entered. '#13#10#13#10'If the proper '
  +'code has not been entered or the ONGUARD.INI file was deleted, the message '
  +'will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button'
  +' to enter a code (the CODEGEN program can be used to generate the proper "D'
  +'ate" code). '#13#10#13#10'The "Remove Code" button can be used to remove th'
  +'e entered code from the INI file. Doing so will cause the TOgDateCode compo'
  +'nent to report that the code is invalid.'#5'Color'#7#9'clBtnFace'#11'Parent'
  +'Color'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel1'#22'AnchorSideLeft.Control'#7
  +#5'Memo1'#23'AnchorSideRight.Control'#7#5'Memo1'#20'AnchorSideRight.Side'#7#9
  +'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#229#0#5'Width'#3#204#1#7'Anc'
  +'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'bsTopLine'#0#0#11'TOg'
  +'DateCode'#11'OgDateCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'Ge'
  +'tKey'#9'OnGetCode'#7#7'GetCode'#4'Left'#3#168#0#3'Top'#3#192#0#0#0#0
 ]);
--- a/components/onguard/examples/exdtreg/exdtregu.pas
+++ b/components/onguard/examples/exdtreg/exdtregu.pas
@@ -4,16 +4,17 @@ interface
 uses
  SysUtils, Classes,Controls, Forms, Dialogs,
-  StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil;
+  StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil;
 type
  { TForm1 }
  TForm1 = class(TForm)
    Bevel1: TBevel;
    Memo1: TLabel;
    OgDateCode1: TOgDateCode;
    CodeBtn: TButton;
    Memo1: TMemo;
    CloseBtn: TBitBtn;
    StatusLbl: TLabel;
    Label1: TLabel;
@@ -36,12 +37,10 @@ var
 implementation
 procedure TForm1.CodeChecked(Sender: TObject; Status: TCodeStatus);
 var
  S : string;
 begin
  ShortDateFormat := 'yyyy-mm-dd';
  case Status of
    ogValidCode    : S := 'Valid Code - Ending date: ' + DateToStr(OgDateCode1.GetValue);
    ogInvalidCode  : S := 'Invalid release code';
--- a/components/onguard/examples/exdyreg/ONGUARD.INI
+++ b/components/onguard/examples/exdyreg/ONGUARD.INI
@@ -0,0 +1,2 @@
 [Codes]
 DaysCode=089B057D209A4B82B526
--- a/components/onguard/examples/exdyreg/exdyreg.lpi
+++ b/components/onguard/examples/exdyreg/exdyreg.lpi
@@ -1,120 +1,128 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <Scaled Value="True"/>
-      <TargetFileExt Value=".exe"/>
+      <UseXPManifest Value="True"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="8">
      <Unit0>
        <Filename Value="exdyreg.lpr"/>
        <IsPartOfProject Value="True"/>
        <CursorPos X="48" Y="7"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="22"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exdyregu.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="ExDYRegU"/>
-        <CursorPos X="3" Y="46"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="42"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="11"/>
+        <TopLine Value="43"/>
        <CursorPos X="47" Y="55"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="../../source/qonguard3.pas"/>
        <ComponentName Value="KeyMaintFrm"/>
        <HasResources Value="True"/>
        <UnitName Value="qonguard3"/>
        <CursorPos X="1" Y="132"/>
        <TopLine Value="132"/>
        <CursorPos Y="132"/>
        <UsageCount Value="10"/>
      </Unit2>
      <Unit3>
        <Filename Value="../../source/qonguard2.pas"/>
        <ComponentName Value="CodeGenerateFrm"/>
        <HasResources Value="True"/>
        <UnitName Value="qonguard2"/>
        <CursorPos X="4" Y="351"/>
        <TopLine Value="348"/>
        <CursorPos X="4" Y="351"/>
        <UsageCount Value="10"/>
      </Unit3>
      <Unit4>
        <Filename Value="../../../../fpcfix/fpc/rtl/objpas/sysutils/datih.inc"/>
        <CursorPos X="11" Y="101"/>
        <TopLine Value="84"/>
        <CursorPos X="11" Y="101"/>
        <UsageCount Value="10"/>
      </Unit4>
      <Unit5>
        <Filename Value="../../../../fpcfix/fpc/rtl/objpas/sysutils/dati.inc"/>
        <CursorPos X="3" Y="123"/>
        <TopLine Value="120"/>
        <CursorPos X="3" Y="123"/>
        <UsageCount Value="10"/>
      </Unit5>
      <Unit6>
        <Filename Value="../../source/onguard.pas"/>
        <UnitName Value="onguard"/>
        <CursorPos X="24" Y="1865"/>
        <TopLine Value="1846"/>
        <CursorPos X="24" Y="1865"/>
        <UsageCount Value="10"/>
      </Unit6>
      <Unit7>
        <Filename Value="../../source/ogutil.pas"/>
        <UnitName Value="ogutil"/>
        <CursorPos X="29" Y="506"/>
        <TopLine Value="472"/>
        <CursorPos X="29" Y="506"/>
        <UsageCount Value="10"/>
      </Unit7>
    </Units>
-    <JumpHistory Count="8" HistoryIndex="7">
+    <JumpHistory Count="11" HistoryIndex="10">
      <Position1>
        <Filename Value="exdyregu.pas"/>
-        <Caret Line="12" Column="24" TopLine="1"/>
+        <Caret Line="12" Column="24"/>
      </Position1>
      <Position2>
        <Filename Value="exdyregu.pas"/>
-        <Caret Line="92" Column="1" TopLine="77"/>
+        <Caret Line="92" TopLine="77"/>
      </Position2>
      <Position3>
        <Filename Value="exdyregu.pas"/>
-        <Caret Line="94" Column="1" TopLine="79"/>
+        <Caret Line="94" TopLine="79"/>
      </Position3>
      <Position4>
        <Filename Value="exdyregu.pas"/>
-        <Caret Line="95" Column="1" TopLine="80"/>
+        <Caret Line="95" TopLine="80"/>
      </Position4>
      <Position5>
        <Filename Value="exdyregu.pas"/>
-        <Caret Line="96" Column="1" TopLine="81"/>
+        <Caret Line="96" TopLine="81"/>
      </Position5>
      <Position6>
        <Filename Value="exdyregu.pas"/>
@@ -128,13 +136,26 @@
        <Filename Value="exdyregu.pas"/>
        <Caret Line="132" Column="3" TopLine="54"/>
      </Position8>
      <Position9>
        <Filename Value="exdyregu.pas"/>
        <Caret Line="54" Column="47" TopLine="42"/>
      </Position9>
      <Position10>
        <Filename Value="exdyregu.pas"/>
        <Caret Line="53" Column="47" TopLine="41"/>
      </Position10>
      <Position11>
        <Filename Value="exdyregu.pas"/>
        <Caret Line="54" Column="47" TopLine="42"/>
      </Position11>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -146,23 +167,29 @@
      </Checks>
    </CodeGeneration>
    <Linking>
      <Debugging>
        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
          <GraphicApplication Value="True"/>
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <BreakPoints Count="2">
      <Item1>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="exdyregu.pas"/>
-        <Line Value="92"/>
+        <Line Value="93"/>
      </Item1>
      <Item2>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="../../source/ogutil.pas"/>
        <Line Value="505"/>
      </Item2>
--- a/components/onguard/examples/exdyreg/exdyreg.lpr
+++ b/components/onguard/examples/exdyreg/exdyreg.lpr
@@ -7,7 +7,11 @@ uses
  ExDYRegU in 'ExDYRegU.pas' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Scaled:=True;
  Application.Title:='';
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
--- a/components/onguard/examples/exdyreg/exdyregu.lfm
+++ b/components/onguard/examples/exdyreg/exdyregu.lfm
@@ -5,95 +5,132 @@ object Form1: TForm1
  Width = 493
  HorzScrollBar.Page = 492
  VertScrollBar.Page = 302
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Days Code Example'
-  Font.Height = -11
+  ClientHeight = 303
-  Font.Name = 'MS Sans Serif'
+  ClientWidth = 493
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
-    Left = 8
+    AnchorSideLeft.Control = Memo1
-    Height = 13
+    AnchorSideTop.Control = CloseBtn
-    Top = 262
+    AnchorSideTop.Side = asrCenter
-    Width = 35
+    Left = 12
    Height = 15
    Top = 246
    Width = 32
    Caption = 'Status'
    Color = clNone
    ParentColor = False
  end
  object Label1: TLabel
-    Left = 232
+    AnchorSideLeft.Control = CodeBtn
-    Height = 13
+    AnchorSideLeft.Side = asrBottom
-    Top = 14
+    AnchorSideTop.Control = CodeBtn
-    Width = 77
+    AnchorSideTop.Side = asrCenter
    Left = 181
    Height = 15
    Top = 17
    Width = 72
    BorderSpacing.Left = 80
    Caption = 'Current code:'
    Color = clNone
    ParentColor = False
  end
  object CodeLbl: TLabel
-    Left = 320
+    AnchorSideLeft.Control = Label1
-    Height = 13
+    AnchorSideLeft.Side = asrBottom
-    Top = 14
+    AnchorSideTop.Control = CodeBtn
-    Width = 113
+    AnchorSideTop.Side = asrCenter
    Left = 265
    Height = 15
    Top = 17
    Width = 96
    BorderSpacing.Left = 12
    Caption = '0000000000000000'
    Color = clNone
    ParentColor = False
  end
  object CodeBtn: TButton
-    Left = 8
+    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 12
    Height = 25
-    Top = 8
+    Top = 12
    Width = 89
    BorderSpacing.Around = 12
    BorderSpacing.InnerBorder = 4
    Caption = 'Enter Code'
    OnClick = CodeBtnClick
    TabOrder = 0
  end
  object Memo1: TMemo
    Left = 8
    Height = 209
    Top = 40
    Width = 465
    Color = clBtnFace
    Lines.Strings = (
      'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
      'the code is either the incorrect type or that none has been entered. '
      ''
      'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
      'say that the code is invalid.'
      ''
      'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
      'the proper "Days" code). '
      ''
      'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
      'will cause the TOgDaysCode component to report that the code is invalid.'
    )
    ReadOnly = True
    TabOrder = 1
  end
  object CloseBtn: TBitBtn
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 400
    Height = 25
-    Top = 256
+    Top = 241
-    Width = 75
+    Width = 81
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Top = 12
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 12
    Kind = bkClose
-    NumGlyphs = 0
+    TabOrder = 1
    TabOrder = 2
  end
  object RemoveBtn: TButton
-    Left = 288
+    AnchorSideTop.Control = CloseBtn
    AnchorSideRight.Control = CloseBtn
    Left = 299
    Height = 25
-    Top = 256
+    Top = 241
    Width = 97
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 4
    BorderSpacing.InnerBorder = 4
    Caption = 'Remove Code'
    OnClick = RemoveBtnClick
-    TabOrder = 3
+    TabOrder = 2
  end
  object Memo1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 165
    Top = 49
    Width = 469
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Days" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgDaysCode component to report that the code is invalid.'
    Color = clBtnFace
    ParentColor = False
    WordWrap = True
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Memo1
    AnchorSideTop.Control = Memo1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Memo1
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 3
    Top = 226
    Width = 469
    Anchors = [akTop, akLeft, akRight]
    Shape = bsTopLine
  end
  object OgDaysCode1: TOgDaysCode
    OnChecked = CodeChecked
    OnGetKey = GetKey
    OnGetCode = GetCode
    OnChangeCode = ChangeCode
-    left = 16
+    Left = 192
-    top = 208
+    Top = 200
  end
 end
--- a/components/onguard/examples/exdyreg/exdyregu.lrs
+++ b/components/onguard/examples/exdyreg/exdyregu.lrs
@@ -1,34 +1,56 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#252#0#6'Height'#3'/'#1#3'Top'#3#138#0#5'W'
-  +'idth'#3#237#1#18'HorzScrollBar.Page'#3#236#1#18'VertScrollBar.Page'#3'.'#1
+  +'idth'#3#237#1#18'HorzScrollBar.Page'#3#236#1#18'VertScrollBar.Page'#3'.'#1#8
-  +#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Days Code Example'#11'Font.He'
+  +'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#17'Days Code Example'
-  +'ight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScreenCente'
+  +#12'ClientHeight'#3'/'#1#11'ClientWidth'#3#237#1#8'Position'#7#14'poScreenCe'
-  +'r'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Height'#2#13#3'Top'#3#6#1#5'Width'
+  +'nter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSideLef'
-  +#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
+  +'t.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSide'
-  +'abel'#6'Label1'#4'Left'#3#232#0#6'Height'#2#13#3'Top'#2#14#5'Width'#2'M'#7
+  +'Top.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#246#0#5'Width'
-  +'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'T'
+  +#2' '#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TL'
-  +'Label'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13#3'Top'#2#14#5'Width'#2'q'#7
+  +'abel'#6'Label1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.S'
-  +'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7
+  +'ide'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop'
-  +'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#25
+  +'.Side'#7#9'asrCenter'#4'Left'#3#181#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2
-  +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12
+  +'H'#18'BorderSpacing.Left'#2'P'#7'Caption'#6#13'Current code:'#5'Color'#7#6
-  +'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#3
+  +'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#22'AnchorSideLeft.Contro'
-  +#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9'clBtnFace'#13'Lines.Strings'
+  +'l'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Cont'
-  +#1#6'fThe label at the bottom of this form indicates the status of the code.'
+  +'rol'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#9#1#6'Hei'
-  +' An invalid code indicates that '#6'Ethe code is either the incorrect type '
+  +'ght'#2#15#3'Top'#2#17#5'Width'#2'`'#18'BorderSpacing.Left'#2#12#7'Caption'#6
-  +'or that none has been entered. '#6#0#6'^If the proper code has not been ent'
+  +#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#7
-  +'ered or the ONGUARD.INI file was deleted, the message will '#6#29'say that '
+  +'CodeBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5
-  +'the code is invalid.'#6#0#6'YUse the "Enter Code" button to enter a code (t'
+  +'Owner'#4'Left'#2#12#6'Height'#2#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpaci'
-  +'he CODEGEN program can be used to generate '#6#25'the proper "Days" code). '
+  +'ng.Around'#2#12#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Cod'
-  +#6#0#6'\The "Remove Code" button can be used to remove the entered code from'
+  +'e'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'
-  +' the INI file. Doing so '#6'Hwill cause the TOgDaysCode component to report'
+  +#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'
-  +' that the code is invalid.'#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7'TBitBtn'#8
+  +#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBott'
-  +'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'K'#4'Kind'
+  +'om'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#241#0#5'Width'#2'Q'#7'Anchors'
-  +#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TButton'#9'RemoveBtn'#4
+  +#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#12#19'BorderSpac'
-  +'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'a'#25'BorderSpacing.Inn'
+  +'ing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrd'
-  +'erBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8
+  +'er'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'
-  +'TabOrder'#2#3#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#11'CodeChe'
+  +#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'+'#1#6'Height'#2#25#3'T'
-  +'cked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#12'OnChangeCode'#7
+  +'op'#3#241#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpac'
-  +#10'ChangeCode'#4'left'#2#16#3'top'#3#208#0#0#0#0
+  +'ing.Right'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Cod'
  +'e'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22
  +'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18
  +'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
  +'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2
  +'1'#5'Width'#3#213#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'Border'
  +'Spacing.Around'#2#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this'
  +' form indicates the status of the code. An invalid code indicates that the '
  +'code is either the incorrect type or that none has been entered. '#13#10#13
  +#10'If the proper code has not been entered or the ONGUARD.INI file was dele'
  +'ted, the message will say that the code is invalid.'#13#10#13#10'Use the "E'
  +'nter Code" button to enter a code (the CODEGEN program can be used to gener'
  +'ate the proper "Days" code). '#13#10#13#10'The "Remove Code" button can be '
  +'used to remove the entered code from the INI file. Doing so will cause the '
  +'TOgDaysCode component to report that the code is invalid.'#5'Color'#7#9'clB'
  +'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#6'TBevel'#6'Bevel1'#22'AnchorSi'
  +'deLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSi'
  +'deTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Memo1'#20'Anchor'
  +'SideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3'Top'#3#226#0#5
  +'Width'#3#213#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5'Shape'#7#9'b'
  +'sTopLine'#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#11'CodeChecked'
  +#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#12'OnChangeCode'#7#10'Cha'
  +'ngeCode'#4'Left'#3#192#0#3'Top'#3#200#0#0#0#0
 ]);
--- a/components/onguard/examples/exdyreg/exdyregu.pas
+++ b/components/onguard/examples/exdyreg/exdyregu.pas
@@ -5,16 +5,17 @@ interface
 uses
  SysUtils, Classes,Controls, Forms, Dialogs,
-  StdCtrls, Buttons,LResources, OnGuard, IniFiles, OgUtil;
+  StdCtrls, Buttons,LResources, ExtCtrls, OnGuard, IniFiles, OgUtil;
 type
  { TForm1 }
  TForm1 = class(TForm)
    Bevel1: TBevel;
    CodeBtn: TButton;
    Memo1: TMemo;
    CloseBtn: TBitBtn;
    Memo1: TLabel;
    StatusLbl: TLabel;
    Label1: TLabel;
    CodeLbl: TLabel;
--- a/components/onguard/examples/exdys30/Days30.INI
+++ b/components/onguard/examples/exdys30/Days30.INI
@@ -1,2 +1,2 @@
 [Codes]
-DaysCode=85A52AA9BB5EEE6C5D13
+DaysCode=1CFD160ECF31269CB526
--- a/components/onguard/examples/exdys30/exdys30.lpi
+++ b/components/onguard/examples/exdys30/exdys30.lpi
@@ -1,27 +1,33 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <AlwaysBuild Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <Scaled Value="True"/>
-      <TargetFileExt Value=".exe"/>
+      <UseXPManifest Value="True"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
    <RequiredPackages Count="2">
      <Item1>
@@ -37,11 +43,11 @@
      <Unit0>
        <Filename Value="exdys30.lpr"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="Exdys30"/>
        <CursorPos X="8" Y="2"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="212"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exdys30u.pas"/>
@@ -50,23 +56,24 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exdys30u"/>
-        <CursorPos X="37" Y="1"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="1"/>
        <EditorIndex Value="1"/>
        <TopLine Value="108"/>
        <CursorPos Y="108"/>
        <UsageCount Value="212"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="../../source/onguard.pas"/>
        <UnitName Value="onguard"/>
        <CursorPos X="1" Y="1407"/>
        <TopLine Value="1392"/>
        <CursorPos Y="1407"/>
        <UsageCount Value="106"/>
      </Unit2>
      <Unit3>
        <Filename Value="../../../../../../temp/fpc/rtl/i386/i386.inc"/>
        <CursorPos X="1" Y="1462"/>
        <TopLine Value="1447"/>
        <CursorPos Y="1462"/>
        <UsageCount Value="10"/>
      </Unit3>
      <Unit4>
@@ -74,50 +81,46 @@
        <ComponentName Value="OgAboutForm"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="qogabout0"/>
        <CursorPos X="42" Y="184"/>
        <TopLine Value="179"/>
        <CursorPos X="42" Y="184"/>
        <UsageCount Value="10"/>
      </Unit4>
      <Unit5>
        <Filename Value="../../../../../../lazarus/lcl/extctrls.pp"/>
        <UnitName Value="ExtCtrls"/>
        <CursorPos X="1" Y="1"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit5>
      <Unit6>
        <Filename Value="../../source/ogutil.pas"/>
        <UnitName Value="ogutil"/>
        <CursorPos X="3" Y="71"/>
        <TopLine Value="56"/>
        <CursorPos X="3" Y="71"/>
        <UsageCount Value="10"/>
      </Unit6>
    </Units>
-    <JumpHistory Count="8" HistoryIndex="7">
+    <JumpHistory Count="9" HistoryIndex="8">
      <Position1>
        <Filename Value="exdys30u.pas"/>
-        <Caret Line="130" Column="1" TopLine="115"/>
+        <Caret Line="130" TopLine="115"/>
      </Position1>
      <Position2>
        <Filename Value="exdys30u.pas"/>
-        <Caret Line="132" Column="1" TopLine="117"/>
+        <Caret Line="132" TopLine="117"/>
      </Position2>
      <Position3>
        <Filename Value="exdys30u.pas"/>
-        <Caret Line="133" Column="1" TopLine="118"/>
+        <Caret Line="133" TopLine="118"/>
      </Position3>
      <Position4>
        <Filename Value="exdys30u.pas"/>
-        <Caret Line="134" Column="1" TopLine="119"/>
+        <Caret Line="134" TopLine="119"/>
      </Position4>
      <Position5>
        <Filename Value="exdys30u.pas"/>
-        <Caret Line="151" Column="1" TopLine="127"/>
+        <Caret Line="151" TopLine="127"/>
      </Position5>
      <Position6>
        <Filename Value="exdys30u.pas"/>
-        <Caret Line="113" Column="1" TopLine="98"/>
+        <Caret Line="113" TopLine="98"/>
      </Position6>
      <Position7>
        <Filename Value="exdys30u.pas"/>
@@ -127,13 +130,18 @@
        <Filename Value="exdys30u.pas"/>
        <Caret Line="36" Column="30" TopLine="30"/>
      </Position8>
      <Position9>
        <Filename Value="exdys30u.pas"/>
        <Caret Line="16" Column="19"/>
      </Position9>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -145,42 +153,46 @@
      </Checks>
    </CodeGeneration>
    <Linking>
      <Debugging>
        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
          <GraphicApplication Value="True"/>
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
-    <BreakPoints Count="6">
+    <BreakPoints Count="4">
      <Item1>
-        <Source Value="exdys30u.pas"/>
+        <Kind Value="bpkSource"/>
-        <Line Value="125"/>
+        <WatchScope Value="wpsGlobal"/>
-      </Item1>
+        <WatchKind Value="wpkWrite"/>
      <Item2>
        <Source Value="../../source/onguard.pas"/>
        <Line Value="1360"/>
-      </Item2>
+      </Item1>
-      <Item3>
+      <Item2>
-        <Source Value="exdys30u.pas"/>
+        <Kind Value="bpkSource"/>
-        <Line Value="108"/>
+        <WatchScope Value="wpsGlobal"/>
-      </Item3>
+        <WatchKind Value="wpkWrite"/>
      <Item4>
        <Source Value="../../source/qogabout0.pas"/>
        <Line Value="102"/>
-      </Item4>
+      </Item2>
-      <Item5>
+      <Item3>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="../../source/qogabout0.pas"/>
        <Line Value="97"/>
-      </Item5>
+      </Item3>
-      <Item6>
+      <Item4>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="../../source/onguard.pas"/>
        <Line Value="1970"/>
-      </Item6>
+      </Item4>
    </BreakPoints>
    <Exceptions Count="2">
      <Item1>
--- a/components/onguard/examples/exdys30/exdys30.lpr
+++ b/components/onguard/examples/exdys30/exdys30.lpr
@@ -7,7 +7,11 @@ uses
  Exdys30u in 'EXDYS30U.PAS' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Scaled:=True;
  Application.Title:='';
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
--- a/components/onguard/examples/exdys30/exdys30u.lfm
+++ b/components/onguard/examples/exdys30/exdys30u.lfm
@@ -6,48 +6,57 @@ object Form1: TForm1
  Caption = 'Form1'
  ClientHeight = 158
  ClientWidth = 229
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '2.3.0.0'
  object Label1: TLabel
-    Left = 64
+    AnchorSideLeft.Control = Owner
-    Height = 14
+    AnchorSideLeft.Side = asrCenter
-    Top = 74
+    AnchorSideTop.Control = Memo1
-    Width = 84
+    AnchorSideTop.Side = asrBottom
    Left = 69
    Height = 15
    Top = 66
    Width = 91
    Alignment = taCenter
    BorderSpacing.Top = 24
    Caption = 'Days Remaining: '
    ParentColor = False
  end
-  object Memo1: TMemo
+  object CloseBtn: TBitBtn
-    Left = 6
+    AnchorSideLeft.Control = Owner
-    Height = 45
+    AnchorSideLeft.Side = asrCenter
-    Top = 14
+    AnchorSideTop.Control = Label1
-    Width = 213
+    AnchorSideTop.Side = asrBottom
-    Lines.Strings = (
+    Left = 70
-      'If you can edit this, then your program '
+    Height = 33
-      'was allowed to run'
+    Top = 105
-    )
+    Width = 89
-    ScrollBars = ssVertical
+    BorderSpacing.Top = 24
    BorderSpacing.Bottom = 12
    Kind = bkClose
    TabOrder = 0
  end
-  object CloseBtn: TBitBtn
+  object Memo1: TLabel
-    Left = 64
+    AnchorSideLeft.Control = Owner
-    Height = 33
+    AnchorSideTop.Control = Owner
-    Top = 92
+    AnchorSideRight.Control = Owner
-    Width = 89
+    AnchorSideRight.Side = asrBottom
-    Kind = bkClose
+    Left = 12
-    NumGlyphs = 0
+    Height = 30
-    TabOrder = 1
+    Top = 12
    Width = 205
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Caption = 'If you can edit this, then your program was allowed to run'
    WordWrap = True
  end
  object OgDaysCode1: TOgDaysCode
    OnChecked = OgDaysCode1Checked
    OnGetKey = OgDaysCode1GetKey
    OnGetCode = OgDaysCode1GetCode
    OnChangeCode = OgDaysCode1ChangeCode
-    left = 88
+    Left = 40
-    top = 130
+    Top = 88
  end
 end
--- a/components/onguard/examples/exdys30/exdys30u.lrs
+++ b/components/onguard/examples/exdys30/exdys30u.lrs
@@ -1,19 +1,25 @@
-{ To jest automatycznie wygenerowany plik zasobów lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'D'#1#6'Height'#3#158#0#3'Top'#3#4#1#5'Wid'
  +'th'#3#229#0#7'Caption'#6#5'Form1'#12'ClientHeight'#3#158#0#11'ClientWidth'#3
-  +#229#0#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'M'
+  +#229#0#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLV'
-  +'S Sans Serif'#8'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'
+  +'ersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'O'
-  +#10'LCLVersion'#6#6'0.9.27'#0#6'TLabel'#6'Label1'#4'Left'#2'@'#6'Height'#2#14
+  +'wner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5
-  +#3'Top'#2'J'#5'Width'#2'T'#9'Alignment'#7#8'taCenter'#7'Caption'#6#16'Days R'
+  +'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'E'#6'Height'#2#15#3
-  +'emaining: '#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#6#6'Height'#2
+  +'Top'#2'B'#5'Width'#2'['#9'Alignment'#7#8'taCenter'#17'BorderSpacing.Top'#2
-  +'-'#3'Top'#2#14#5'Width'#3#213#0#13'Lines.Strings'#1#6'(If you can edit this'
+  +#24#7'Caption'#6#16'Days Remaining: '#11'ParentColor'#8#0#0#7'TBitBtn'#8'Clo'
-  +', then your program '#6#18'was allowed to run'#0#10'ScrollBars'#7#10'ssVert'
+  +'seBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'as'
-  +'ical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#2'@'#6'Height'#2'!'
+  +'rCenter'#21'AnchorSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'a'
-  +#3'Top'#2'\'#5'Width'#2'Y'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'
+  +'srBottom'#4'Left'#2'F'#6'Height'#2'!'#3'Top'#2'i'#5'Width'#2'Y'#17'BorderSp'
-  +#2#1#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecked'#7#18'OgDaysCode1Checke'
+  +'acing.Top'#2#24#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrd'
-  +'d'#8'OnGetKey'#7#17'OgDaysCode1GetKey'#9'OnGetCode'#7#18'OgDaysCode1GetCode'
+  +'er'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'Anc'
-  +#12'OnChangeCode'#7#21'OgDaysCode1ChangeCode'#4'left'#2'X'#3'top'#3#130#0#0#0
+  +'horSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Control'#7#5'Owner'#20'An'
-  +#0
+  +'chorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#30#3'Top'#2#12#5
  +'Width'#3#205#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpaci'
  +'ng.Around'#2#12#7'Caption'#6':If you can edit this, then your program was a'
  +'llowed to run'#8'WordWrap'#9#0#0#11'TOgDaysCode'#11'OgDaysCode1'#9'OnChecke'
  +'d'#7#18'OgDaysCode1Checked'#8'OnGetKey'#7#17'OgDaysCode1GetKey'#9'OnGetCode'
  +#7#18'OgDaysCode1GetCode'#12'OnChangeCode'#7#21'OgDaysCode1ChangeCode'#4'Lef'
  +'t'#2'('#3'Top'#2'X'#0#0#0
 ]);
--- a/components/onguard/examples/exdys30/exdys30u.pas
+++ b/components/onguard/examples/exdys30/exdys30u.pas
@@ -13,8 +13,8 @@ interface
 uses
  SysUtils, Classes, Controls,
-  Forms, Dialogs,LResources, StdCtrls, Buttons,
+  Forms, Dialogs, LResources, StdCtrls, Buttons,
-  OnGuard,OgUtil,IniFiles;
+  OnGuard, OgUtil, IniFiles;
 const
  CKey : TKey = ($E5,$8F,$84,$D6,$92,$C9,$A4,$D8,
@@ -25,8 +25,8 @@ type
  { TForm1 }
  TForm1 = class(TForm)
    Memo1: TMemo;
    CloseBtn: TBitBtn;
    Memo1: TLabel;
    OgDaysCode1: TOgDaysCode;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
--- a/components/onguard/examples/exinst/exinst.lpi
+++ b/components/onguard/examples/exinst/exinst.lpi
@@ -1,43 +1,54 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
-        <AlwaysBuild Value="False"/>
+        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="27">
      <Unit0>
        <Filename Value="exinst.lpr"/>
        <IsPartOfProject Value="True"/>
-        <CursorPos X="12" Y="18"/>
+        <UnitName Value="Exinst"/>
-        <TopLine Value="1"/>
+        <CursorPos X="12" Y="20"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="24"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exinstu.pas"/>
@@ -46,208 +57,191 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="EXINSTU"/>
        <IsVisibleTab Value="True"/>
        <EditorIndex Value="1"/>
        <CursorPos X="22" Y="7"/>
        <TopLine Value="1"/>
        <EditorIndex Value="2"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="exinstu.lrs"/>
        <CursorPos X="14" Y="2"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit2>
      <Unit3>
        <Filename Value="../../../../lazarus0915/lcl/forms.pp"/>
        <UnitName Value="Forms"/>
        <CursorPos X="29" Y="966"/>
        <TopLine Value="962"/>
        <CursorPos X="29" Y="966"/>
        <UsageCount Value="10"/>
      </Unit3>
      <Unit4>
        <Filename Value="../../../../lazarus0915/lcl/include/application.inc"/>
        <CursorPos X="15" Y="298"/>
        <TopLine Value="297"/>
        <CursorPos X="15" Y="298"/>
        <UsageCount Value="10"/>
      </Unit4>
      <Unit5>
        <Filename Value="../../../../lazarus0915/fpcsrc/fcl/inc/custapp.pp"/>
        <UnitName Value="CustApp"/>
        <CursorPos X="10" Y="200"/>
        <TopLine Value="198"/>
        <CursorPos X="10" Y="200"/>
        <UsageCount Value="10"/>
      </Unit5>
      <Unit6>
        <Filename Value="../../../../lazarus0915/lcl/include/wincontrol.inc"/>
        <CursorPos X="23" Y="5008"/>
        <TopLine Value="5004"/>
        <CursorPos X="23" Y="5008"/>
        <UsageCount Value="10"/>
      </Unit6>
      <Unit7>
        <Filename Value="../../source/ogfirst.pas"/>
-        <UnitName Value="ogfirst"/>
+        <EditorIndex Value="2"/>
        <CursorPos X="3" Y="71"/>
        <TopLine Value="161"/>
-        <EditorIndex Value="1"/>
+        <CursorPos X="3" Y="71"/>
        <UsageCount Value="10"/>
        <Loaded Value="True"/>
      </Unit7>
      <Unit8>
        <Filename Value="../../../../lazarus0915/fpcsrc/rtl/win32/wininc/ascdef.inc"/>
        <CursorPos X="13" Y="55"/>
        <TopLine Value="47"/>
        <CursorPos X="13" Y="55"/>
        <UsageCount Value="10"/>
      </Unit8>
      <Unit9>
        <Filename Value="../../source/qonguard7.pas"/>
        <UnitName Value="qonguard7"/>
        <CursorPos X="33" Y="42"/>
        <TopLine Value="38"/>
        <CursorPos X="33" Y="42"/>
        <UsageCount Value="10"/>
      </Unit9>
      <Unit10>
        <Filename Value="../../source/qonguard6.pas"/>
        <ComponentName Value="ModifierFrm"/>
        <HasResources Value="True"/>
        <UnitName Value="qonguard6"/>
        <CursorPos X="27" Y="2"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit10>
      <Unit11>
        <Filename Value="../../source/qonguard6.lfm"/>
        <CursorPos X="42" Y="8"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
-        <SyntaxHighlighter Value="LFM"/>
+        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit11>
      <Unit12>
        <Filename Value="../../source/qonguard4.pas"/>
        <ComponentName Value="EditProductFrm"/>
        <HasResources Value="True"/>
        <UnitName Value="qonguard4"/>
        <CursorPos X="37" Y="8"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit12>
      <Unit13>
        <Filename Value="../../source/qonguard3.pas"/>
        <ComponentName Value="KeyMaintFrm"/>
        <HasResources Value="True"/>
        <UnitName Value="qonguard3"/>
        <CursorPos X="45" Y="9"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit13>
      <Unit14>
        <Filename Value="../../source/qonguard4.lfm"/>
        <CursorPos X="46" Y="8"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
-        <SyntaxHighlighter Value="LFM"/>
+        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit14>
      <Unit15>
        <Filename Value="../../source/onguard.inc"/>
        <CursorPos X="14" Y="25"/>
        <TopLine Value="42"/>
        <CursorPos X="14" Y="25"/>
        <UsageCount Value="10"/>
      </Unit15>
      <Unit16>
        <Filename Value="/usr/share/fpcsrc/rtl/linux/ostypes.inc"/>
        <CursorPos X="30" Y="108"/>
        <TopLine Value="92"/>
        <CursorPos X="30" Y="108"/>
        <UsageCount Value="10"/>
      </Unit16>
      <Unit17>
        <Filename Value="/usr/share/fpcsrc/rtl/unix/baseunix.pp"/>
        <UnitName Value="BaseUnix"/>
        <CursorPos X="30" Y="56"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit17>
      <Unit18>
        <Filename Value="/usr/share/fpcsrc/packages/base/libc/sstath.inc"/>
        <CursorPos X="38" Y="37"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit18>
      <Unit19>
        <Filename Value="/usr/share/fpcsrc/rtl/netwlibc/libc.pp"/>
        <UnitName Value="libc"/>
        <CursorPos X="1" Y="1"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit19>
      <Unit20>
        <Filename Value="/usr/share/fpcsrc/rtl/netware/nwserv.pp"/>
        <UnitName Value="nwserv"/>
        <CursorPos X="1" Y="4630"/>
        <TopLine Value="4613"/>
        <CursorPos Y="4630"/>
        <UsageCount Value="10"/>
      </Unit20>
      <Unit21>
        <Filename Value="/usr/share/fpcsrc/packages/base/libc/libc.pp"/>
        <UnitName Value="libc"/>
        <CursorPos X="1" Y="57"/>
        <TopLine Value="41"/>
        <CursorPos Y="57"/>
        <UsageCount Value="10"/>
      </Unit21>
      <Unit22>
        <Filename Value="../../source/ogutil.pas"/>
        <UnitName Value="ogutil"/>
        <CursorPos X="34" Y="1514"/>
        <TopLine Value="1499"/>
        <CursorPos X="34" Y="1514"/>
        <UsageCount Value="10"/>
      </Unit22>
      <Unit23>
        <Filename Value="../../source/onguard.pas"/>
        <UnitName Value="onguard"/>
        <CursorPos X="40" Y="941"/>
        <TopLine Value="926"/>
        <CursorPos X="40" Y="941"/>
        <UsageCount Value="10"/>
      </Unit23>
      <Unit24>
        <Filename Value="../../source/ogfile.pas"/>
        <UnitName Value="ogfile"/>
        <CursorPos X="30" Y="140"/>
        <TopLine Value="121"/>
        <CursorPos X="30" Y="140"/>
        <UsageCount Value="10"/>
      </Unit24>
      <Unit25>
        <Filename Value="/usr/share/fpcsrc/fcl/db/dbase/dbf_wtil.pas"/>
        <UnitName Value="dbf_wtil"/>
        <CursorPos X="39" Y="204"/>
        <TopLine Value="185"/>
        <CursorPos X="39" Y="204"/>
        <UsageCount Value="10"/>
      </Unit25>
      <Unit26>
        <Filename Value="exinstu.lfm"/>
-        <CursorPos X="21" Y="10"/>
+        <EditorIndex Value="-1"/>
-        <TopLine Value="1"/>
+        <CursorPos Y="6"/>
        <UsageCount Value="10"/>
-        <SyntaxHighlighter Value="LFM"/>
+        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit26>
    </Units>
-    <JumpHistory Count="2" HistoryIndex="1">
+    <JumpHistory Count="3" HistoryIndex="2">
      <Position1>
        <Filename Value="exinst.lpr"/>
-        <Caret Line="18" Column="12" TopLine="1"/>
+        <Caret Line="18" Column="12"/>
      </Position1>
      <Position2>
        <Filename Value="../../source/ogfirst.pas"/>
        <Caret Line="87" Column="21" TopLine="83"/>
      </Position2>
      <Position3>
        <Filename Value="exinstu.pas"/>
        <Caret Line="7" Column="22"/>
      </Position3>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <SearchPaths>
-      <OtherUnitFiles Value="../../source/"/>
+      <OtherUnitFiles Value="../../source"/>
    </SearchPaths>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -260,7 +254,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -268,13 +262,13 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <BreakPoints Count="1">
      <Item1>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="../../source/ogfirst.pas"/>
        <Line Value="234"/>
      </Item1>
--- a/components/onguard/examples/exinst/exinst.lpr
+++ b/components/onguard/examples/exinst/exinst.lpr
@@ -9,6 +9,8 @@ uses
 {$R *.res}
 begin
  Application.Initialize;
--- a/components/onguard/examples/exinst/exinstu.lfm
+++ b/components/onguard/examples/exinst/exinstu.lfm
@@ -1,41 +1,41 @@
 object FirstInstFrm: TFirstInstFrm
  ActiveControl = Memo1
  Caption = 'Single Instance Example'
  ClientHeight = 140
  ClientWidth = 320
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  PixelsPerInch = 96
  HorzScrollBar.Page = 319
  HorzScrollBar.Range = 307
  VertScrollBar.Page = 139
  VertScrollBar.Range = 129
  Left = 327
  Height = 140
  Top = 218
  Width = 320
-  object Memo1: TMemo
+  AutoSize = True
-    Lines.Strings = (
+  BorderStyle = bsDialog
-      'Attempts to execute this application a second time result in '
+  Caption = 'Single Instance Example'
-      'the first instance to be activated and the second instance '
+  ClientHeight = 140
-      'terminated.'
+  ClientWidth = 320
-    )
+  LCLVersion = '2.3.0.0'
    ReadOnly = True
    TabOrder = 0
    Left = 8
    Height = 89
    Top = 8
    Width = 297
  end
  object BitBtn2: TBitBtn
-    Kind = bkClose
+    AnchorSideTop.Control = Memo1
-    NumGlyphs = 0
+    AnchorSideTop.Side = asrBottom
-    TabOrder = 1
+    AnchorSideRight.Control = Owner
-    Left = 232
+    AnchorSideRight.Side = asrBottom
    Left = 233
    Height = 25
-    Top = 104
+    Top = 69
    Width = 75
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 12
    Kind = bkClose
    TabOrder = 0
  end
  object Memo1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 45
    Top = 12
    Width = 296
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Caption = 'Attempts to execute this application a second time result in the first instance to be activated and the second instance terminated.'
    WordWrap = True
  end
 end
--- a/components/onguard/examples/exinst/exinstu.lrs
+++ b/components/onguard/examples/exinst/exinstu.lrs
@@ -1,14 +1,17 @@
 LazarusResources.Add('TFirstInstFrm','FORMDATA',[
-  'TPF0'#13'TFirstInstFrm'#12'FirstInstFrm'#13'ActiveControl'#7#5'Memo1'#7'Capt'
+  'TPF0'#13'TFirstInstFrm'#12'FirstInstFrm'#4'Left'#3'G'#1#6'Height'#3#140#0#3
-  +'ion'#6#23'Single Instance Example'#12'ClientHeight'#3#140#0#11'ClientWidth'
+  +'Top'#3#218#0#5'Width'#3'@'#1#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7
-  +#3'@'#1#10'Font.Color'#7#6'clText'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS'
+  +'Caption'#6#23'Single Instance Example'#12'ClientHeight'#3#140#0#11'ClientWi'
-  +' Sans Serif'#10'Font.Pitch'#7#10'fpVariable'#13'PixelsPerInch'#2'`'#18'Horz'
+  +'dth'#3'@'#1#10'LCLVersion'#6#7'2.3.0.0'#0#7'TBitBtn'#7'BitBtn2'#21'AnchorSi'
-  +'ScrollBar.Page'#3'?'#1#19'HorzScrollBar.Range'#3'3'#1#18'VertScrollBar.Page'
+  +'deTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSi'
-  +#3#139#0#19'VertScrollBar.Range'#3#129#0#4'Left'#3'G'#1#6'Height'#3#140#0#3
+  +'deRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
-  +'Top'#3#218#0#5'Width'#3'@'#1#0#5'TMemo'#5'Memo1'#13'Lines.Strings'#1#6'=Att'
+  +#3#233#0#6'Height'#2#25#3'Top'#2'E'#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'a'
-  +'empts to execute this application a second time result in '#6';the first in'
+  +'kRight'#0#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind'
-  +'stance to be activated and the second instance '#6#11'terminated.'#0#8'Read'
+  +#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Contr'
-  +'Only'#9#8'TabOrder'#2#0#4'Left'#2#8#6'Height'#2'Y'#3'Top'#2#8#5'Width'#3')'
+  +'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Cont'
-  +#1#0#0#7'TBitBtn'#7'BitBtn2'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrde'
+  +'rol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Heig'
-  +'r'#2#1#4'Left'#3#232#0#6'Height'#2#25#3'Top'#2'h'#5'Width'#2'K'#0#0#0
+  +'ht'#2'-'#3'Top'#2#12#5'Width'#3'('#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akR'
  +'ight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6#131'Attempts to execute '
  +'this application a second time result in the first instance to be activated'
  +' and the second instance terminated.'#8'WordWrap'#9#0#0#0
 ]);
--- a/components/onguard/examples/exinst/exinstu.pas
+++ b/components/onguard/examples/exinst/exinstu.pas
@@ -11,8 +11,8 @@ type
  { TFirstInstFrm }
  TFirstInstFrm = class(TForm)
    Memo1: TMemo;
    BitBtn2: TBitBtn;
    Memo1: TLabel;
  private
    { Private declarations }
  public
--- a/components/onguard/examples/exmachid/exmachid.lpi
+++ b/components/onguard/examples/exmachid/exmachid.lpi
@@ -1,44 +1,54 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
-        <AlwaysBuild Value="False"/>
+        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
      <MainUnit Value="0"/>
      <TargetFileExt Value=".exe"/>
      <Title Value="exmachid"/>
-      <ActiveEditorIndexAtStart Value="1"/>
+      <UseXPManifest Value="True"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="14">
      <Unit0>
        <Filename Value="exmachid.lpr"/>
        <IsPartOfProject Value="True"/>
-        <CursorPos X="38" Y="15"/>
+        <CursorPos X="38" Y="17"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="23"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="umachid.pas"/>
@@ -47,98 +57,100 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="uMachID"/>
-        <CursorPos X="31" Y="31"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="26"/>
        <EditorIndex Value="1"/>
        <TopLine Value="27"/>
        <CursorPos X="26" Y="44"/>
        <UsageCount Value="22"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="../../../source/onguard.pas"/>
        <UnitName Value="onguard"/>
        <CursorPos X="33" Y="11"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit2>
      <Unit3>
        <Filename Value="../../source/onguard.pas"/>
        <UnitName Value="onguard"/>
        <CursorPos X="1" Y="604"/>
        <TopLine Value="589"/>
        <CursorPos Y="604"/>
        <UsageCount Value="11"/>
      </Unit3>
      <Unit4>
        <Filename Value="../../../../lazarus0915/lcl/include/control.inc"/>
        <CursorPos X="29" Y="1533"/>
        <TopLine Value="1531"/>
        <CursorPos X="29" Y="1533"/>
        <UsageCount Value="10"/>
      </Unit4>
      <Unit5>
        <Filename Value="../../../../lazarus0915/lcl/include/buttoncontrol.inc"/>
        <CursorPos X="39" Y="47"/>
        <TopLine Value="45"/>
        <CursorPos X="39" Y="47"/>
        <UsageCount Value="10"/>
      </Unit5>
      <Unit6>
        <Filename Value="../../../../lazarus0915/lcl/include/buttons.inc"/>
        <CursorPos X="48" Y="233"/>
        <TopLine Value="230"/>
        <CursorPos X="48" Y="233"/>
        <UsageCount Value="10"/>
      </Unit6>
      <Unit7>
        <Filename Value="../../../../lazarus0915/lcl/interfaces/win32/win32proc.pp"/>
        <UnitName Value="win32proc"/>
        <CursorPos X="30" Y="557"/>
        <TopLine Value="554"/>
        <CursorPos X="30" Y="557"/>
        <UsageCount Value="10"/>
      </Unit7>
      <Unit8>
        <Filename Value="../../../../lazarus0915/lcl/include/customform.inc"/>
        <CursorPos X="21" Y="1033"/>
        <TopLine Value="1032"/>
        <CursorPos X="21" Y="1033"/>
        <UsageCount Value="10"/>
      </Unit8>
      <Unit9>
        <Filename Value="umachid.lfm"/>
        <CursorPos X="28" Y="12"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
-        <SyntaxHighlighter Value="LFM"/>
+        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit9>
      <Unit10>
        <Filename Value="../../source/ogutil.pas"/>
        <UnitName Value="ogutil"/>
        <CursorPos X="50" Y="1284"/>
        <TopLine Value="1261"/>
        <CursorPos X="50" Y="1284"/>
        <UsageCount Value="11"/>
      </Unit10>
      <Unit11>
        <Filename Value="../../source/IdeSN.pas"/>
        <UnitName Value="idesn"/>
        <CursorPos X="53" Y="158"/>
        <TopLine Value="142"/>
        <CursorPos X="53" Y="158"/>
        <UsageCount Value="11"/>
      </Unit11>
      <Unit12>
        <Filename Value="../../../../../../temp/fpc/rtl/i386/strings.inc"/>
        <CursorPos X="1" Y="64"/>
        <TopLine Value="49"/>
        <CursorPos Y="64"/>
        <UsageCount Value="10"/>
      </Unit12>
      <Unit13>
        <Filename Value="../../../../../../temp/fpc/rtl/objpas/sysutils/sysutils.inc"/>
        <CursorPos X="1" Y="361"/>
        <TopLine Value="346"/>
        <CursorPos Y="361"/>
        <UsageCount Value="10"/>
      </Unit13>
    </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
+    <JumpHistory Count="1">
      <Position1>
        <Filename Value="umachid.pas"/>
        <Caret Line="43" Column="26" TopLine="26"/>
      </Position1>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -150,15 +162,15 @@
      </Checks>
    </CodeGeneration>
    <Linking>
      <Debugging>
        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
          <GraphicApplication Value="True"/>
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="2">
--- a/components/onguard/examples/exmachid/exmachid.lpr
+++ b/components/onguard/examples/exmachid/exmachid.lpr
@@ -8,6 +8,8 @@ uses
  umachid in 'umachid.pas';
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TfrmExMachineID,frmExMachineID);
--- a/components/onguard/examples/exmachid/umachid.lfm
+++ b/components/onguard/examples/exmachid/umachid.lfm
@@ -1,77 +1,118 @@
 object frmExMachineID: TfrmExMachineID
  Left = 364
-  Height = 174
+  Height = 157
  Top = 254
-  Width = 240
+  Width = 277
  ActiveControl = chkUser
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'ExMachineID'
-  ClientHeight = 174
+  ClientHeight = 157
-  ClientWidth = 240
+  ClientWidth = 277
  Font.Color = clText
  Font.Height = 11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '2.3.0.0'
  object GroupBox1: TGroupBox
-    Left = 8
+    AnchorSideLeft.Control = Owner
-    Height = 137
+    AnchorSideTop.Control = Owner
-    Top = 8
+    Left = 12
-    Width = 113
+    Height = 110
    Top = 12
    Width = 114
    AutoSize = True
    BorderSpacing.Around = 12
    Caption = ' Machine Info Set '
-    ClientHeight = 119
+    ClientHeight = 90
-    ClientWidth = 109
+    ClientWidth = 110
    TabOrder = 0
    object chkUser: TCheckBox
-      Left = 24
+      AnchorSideLeft.Control = GroupBox1
-      Height = 17
+      AnchorSideTop.Control = GroupBox1
-      Top = 16
+      Left = 16
-      Width = 40
+      Height = 19
      Top = 4
      Width = 41
      BorderSpacing.Left = 16
      BorderSpacing.Top = 4
      BorderSpacing.Right = 16
      Caption = 'User'
      TabOrder = 0
    end
    object chkSystem: TCheckBox
-      Left = 24
+      AnchorSideLeft.Control = GroupBox1
-      Height = 17
+      AnchorSideTop.Control = chkUser
-      Top = 40
+      AnchorSideTop.Side = asrBottom
-      Width = 52
+      Left = 16
      Height = 19
      Top = 23
      Width = 56
      BorderSpacing.Left = 16
      BorderSpacing.Right = 16
      Caption = 'System'
      TabOrder = 1
    end
    object chkNetwork: TCheckBox
-      Left = 24
+      AnchorSideLeft.Control = GroupBox1
-      Height = 17
+      AnchorSideTop.Control = chkSystem
-      Top = 64
+      AnchorSideTop.Side = asrBottom
-      Width = 58
+      Left = 16
      Height = 19
      Top = 42
      Width = 63
      BorderSpacing.Left = 16
      BorderSpacing.Right = 24
      Caption = 'Network'
      TabOrder = 2
    end
    object chkDrives: TCheckBox
-      Left = 24
+      AnchorSideLeft.Control = GroupBox1
-      Height = 17
+      AnchorSideTop.Control = chkNetwork
-      Top = 88
+      AnchorSideTop.Side = asrBottom
-      Width = 48
+      Left = 16
      Height = 19
      Top = 61
      Width = 50
      BorderSpacing.Left = 16
      BorderSpacing.Right = 16
      BorderSpacing.Bottom = 10
      Caption = 'Drives'
      TabOrder = 3
    end
  end
  object btnGenerate: TButton
-    Left = 131
+    AnchorSideLeft.Control = GroupBox1
    AnchorSideLeft.Side = asrBottom
    AnchorSideBottom.Control = Bevel1
    Left = 138
    Height = 25
-    Top = 32
+    Top = 38
    Width = 75
    Anchors = [akLeft, akBottom]
    BorderSpacing.Left = 12
    BorderSpacing.InnerBorder = 4
    Caption = 'Generate'
    OnClick = btnGenerateClick
    TabOrder = 1
  end
  object edtMachineID: TEdit
-    Left = 128
+    AnchorSideLeft.Control = btnGenerate
    AnchorSideTop.Control = Bevel1
    AnchorSideTop.Side = asrBottom
    Left = 138
    Height = 23
    Top = 72
-    Width = 81
+    Width = 98
    BorderSpacing.Right = 12
    ReadOnly = True
    TabOrder = 2
  end
  object Bevel1: TBevel
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrCenter
    Left = 128
    Height = 9
    Top = 63
    Width = 16
    Shape = bsSpacer
  end
 end
--- a/components/onguard/examples/exmachid/umachid.lrs
+++ b/components/onguard/examples/exmachid/umachid.lrs
@@ -1,23 +1,41 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TfrmExMachineID','FORMDATA',[
-  'TPF0'#15'TfrmExMachineID'#14'frmExMachineID'#4'Left'#3'l'#1#6'Height'#3#174#0
+  'TPF0'#15'TfrmExMachineID'#14'frmExMachineID'#4'Left'#3'l'#1#6'Height'#3#157#0
-  +#3'Top'#3#254#0#5'Width'#3#240#0#13'ActiveControl'#7#7'chkUser'#11'BorderIco'
+  +#3'Top'#3#254#0#5'Width'#3#21#1#13'ActiveControl'#7#7'chkUser'#8'AutoSize'#9
-  +'ns'#11#12'biSystemMenu'#10'biMinimize'#0#7'Caption'#6#11'ExMachineID'#12'Cl'
+  +#11'BorderIcons'#11#12'biSystemMenu'#10'biMinimize'#0#11'BorderStyle'#7#8'bs'
-  +'ientHeight'#3#174#0#11'ClientWidth'#3#240#0#10'Font.Color'#7#6'clText'#11'F'
+  +'Dialog'#7'Caption'#6#11'ExMachineID'#12'ClientHeight'#3#157#0#11'ClientWidt'
-  +'ont.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch'#7#10'fpVar'
+  +'h'#3#21#1#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#9
-  +'iable'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#9'TGro'
+  +'TGroupBox'#9'GroupBox1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSide'
-  +'upBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3#137#0#3'Top'#2#8#5'Width'#2'q'#7
+  +'Top.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2'n'#3'Top'#2#12#5'Width'#2
-  +'Caption'#6#18' Machine Info Set '#12'ClientHeight'#2'w'#11'ClientWidth'#2'm'
+  +'r'#8'AutoSize'#9#20'BorderSpacing.Around'#2#12#7'Caption'#6#18' Machine Inf'
-  +#8'TabOrder'#2#0#0#9'TCheckBox'#7'chkUser'#4'Left'#2#24#6'Height'#2#17#3'Top'
+  +'o Set '#12'ClientHeight'#2'Z'#11'ClientWidth'#2'n'#8'TabOrder'#2#0#0#9'TChe'
-  +#2#16#5'Width'#2'('#7'Caption'#6#4'User'#8'TabOrder'#2#0#0#0#9'TCheckBox'#9
+  +'ckBox'#7'chkUser'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTo'
-  +'chkSystem'#4'Left'#2#24#6'Height'#2#17#3'Top'#2'('#5'Width'#2'4'#7'Caption'
+  +'p.Control'#7#9'GroupBox1'#4'Left'#2#16#6'Height'#2#19#3'Top'#2#4#5'Width'#2
-  +#6#6'System'#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'chkNetwork'#4'Left'#2#24#6
+  +')'#18'BorderSpacing.Left'#2#16#17'BorderSpacing.Top'#2#4#19'BorderSpacing.R'
-  +'Height'#2#17#3'Top'#2'@'#5'Width'#2':'#7'Caption'#6#7'Network'#8'TabOrder'#2
+  +'ight'#2#16#7'Caption'#6#4'User'#8'TabOrder'#2#0#0#0#9'TCheckBox'#9'chkSyste'
-  +#2#0#0#9'TCheckBox'#9'chkDrives'#4'Left'#2#24#6'Height'#2#17#3'Top'#2'X'#5'W'
+  +'m'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#7
-  +'idth'#2'0'#7'Caption'#6#6'Drives'#8'TabOrder'#2#3#0#0#0#7'TButton'#11'btnGe'
+  +'chkUser'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#19#3
-  +'nerate'#4'Left'#3#131#0#6'Height'#2#25#3'Top'#2' '#5'Width'#2'K'#25'BorderS'
+  +'Top'#2#23#5'Width'#2'8'#18'BorderSpacing.Left'#2#16#19'BorderSpacing.Right'
-  +'pacing.InnerBorder'#2#4#7'Caption'#6#8'Generate'#7'OnClick'#7#16'btnGenerat'
+  +#2#16#7'Caption'#6#6'System'#8'TabOrder'#2#1#0#0#9'TCheckBox'#10'chkNetwork'
-  +'eClick'#8'TabOrder'#2#1#0#0#5'TEdit'#12'edtMachineID'#4'Left'#3#128#0#6'Hei'
+  +#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'chk'
-  +'ght'#2#23#3'Top'#2'H'#5'Width'#2'Q'#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0
+  +'System'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#19#3
  +'Top'#2'*'#5'Width'#2'?'#18'BorderSpacing.Left'#2#16#19'BorderSpacing.Right'
  +#2#24#7'Caption'#6#7'Network'#8'TabOrder'#2#2#0#0#9'TCheckBox'#9'chkDrives'
  +#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#10'ch'
  +'kNetwork'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2#16#6'Height'#2#19
  +#3'Top'#2'='#5'Width'#2'2'#18'BorderSpacing.Left'#2#16#19'BorderSpacing.Righ'
  +'t'#2#16#20'BorderSpacing.Bottom'#2#10#7'Caption'#6#6'Drives'#8'TabOrder'#2#3
  +#0#0#0#7'TButton'#11'btnGenerate'#22'AnchorSideLeft.Control'#7#9'GroupBox1'
  +#19'AnchorSideLeft.Side'#7#9'asrBottom'#24'AnchorSideBottom.Control'#7#6'Bev'
  +'el1'#4'Left'#3#138#0#6'Height'#2#25#3'Top'#2'&'#5'Width'#2'K'#7'Anchors'#11
  +#6'akLeft'#8'akBottom'#0#18'BorderSpacing.Left'#2#12#25'BorderSpacing.InnerB'
  +'order'#2#4#7'Caption'#6#8'Generate'#7'OnClick'#7#16'btnGenerateClick'#8'Tab'
  +'Order'#2#1#0#0#5'TEdit'#12'edtMachineID'#22'AnchorSideLeft.Control'#7#11'bt'
  +'nGenerate'#21'AnchorSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9
  +'asrBottom'#4'Left'#3#138#0#6'Height'#2#23#3'Top'#2'H'#5'Width'#2'b'#19'Bord'
  +'erSpacing.Right'#2#12#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#6'TBevel'#6'Bevel1'
  +#21'AnchorSideTop.Control'#7#9'GroupBox1'#18'AnchorSideTop.Side'#7#9'asrCent'
  +'er'#4'Left'#3#128#0#6'Height'#2#9#3'Top'#2'?'#5'Width'#2#16#5'Shape'#7#8'bs'
  +'Spacer'#0#0#0
 ]);
--- a/components/onguard/examples/exmachid/umachid.pas
+++ b/components/onguard/examples/exmachid/umachid.pas
@@ -4,13 +4,14 @@ interface
 uses
  SysUtils, Classes,
-  Graphics, Controls, Forms, Dialogs,Buttons, StdCtrls,LResources;
+  Graphics, Controls, Forms, Dialogs,Buttons, StdCtrls,LResources, ExtCtrls;
 type
  { TfrmExMachineID }
  TfrmExMachineID = class(TForm)
    Bevel1: TBevel;
    GroupBox1: TGroupBox;
    chkUser: TCheckBox;
    chkSystem: TCheckBox;
@@ -30,8 +31,6 @@ var
 implementation
 uses
  onguard, ogutil;
@@ -53,10 +52,10 @@ begin
  { create the machine ID and display in hex }
  try
-  MachineID := CreateMachineID(InfoSet);
+    MachineID := CreateMachineID(InfoSet);
-  edtMachineID.Text := '$' + BufferToHex(MachineID, SizeOf(MachineID));
+    edtMachineID.Text := '$' + BufferToHex(MachineID, SizeOf(MachineID));
  except on E:Exception do
-   ShowMessage(E.Message);
+    ShowMessage(E.Message);
  end;
 end;
--- a/components/onguard/examples/exnet/EXNET.NAF
+++ b/components/onguard/examples/exnet/EXNET.NAF
--- a/components/onguard/examples/exnet/exnet.lpi
+++ b/components/onguard/examples/exnet/exnet.lpi
@@ -1,85 +1,105 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
-        <AlwaysBuild Value="False"/>
+        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="5">
      <Unit0>
        <Filename Value="exnet.lpr"/>
        <IsPartOfProject Value="True"/>
        <CursorPos X="44" Y="7"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exnetu.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exnetu"/>
-        <CursorPos X="53" Y="159"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="118"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="10"/>
+        <TopLine Value="118"/>
        <CursorPos X="59" Y="141"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="../../source/ognetwrk.pas"/>
        <UnitName Value="ognetwrk"/>
        <CursorPos X="68" Y="478"/>
        <TopLine Value="465"/>
        <CursorPos X="68" Y="478"/>
        <UsageCount Value="10"/>
      </Unit2>
      <Unit3>
        <Filename Value="../../source/ogutil.pas"/>
        <UnitName Value="ogutil"/>
        <CursorPos X="28" Y="1334"/>
        <TopLine Value="1330"/>
        <CursorPos X="28" Y="1334"/>
        <UsageCount Value="10"/>
      </Unit3>
      <Unit4>
        <Filename Value="../../source/onguard.pas"/>
        <UnitName Value="onguard"/>
        <CursorPos X="35" Y="1349"/>
        <TopLine Value="1344"/>
        <CursorPos X="35" Y="1349"/>
        <UsageCount Value="10"/>
      </Unit4>
    </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
+    <JumpHistory Count="2" HistoryIndex="1">
      <Position1>
        <Filename Value="exnetu.pas"/>
        <Caret Line="141" Column="59" TopLine="118"/>
      </Position1>
      <Position2>
        <Filename Value="exnetu.pas"/>
        <Caret Line="140" Column="59" TopLine="117"/>
      </Position2>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -92,7 +112,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -100,9 +120,6 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="2">
--- a/components/onguard/examples/exnet/exnet.lpr
+++ b/components/onguard/examples/exnet/exnet.lpr
@@ -7,6 +7,8 @@ uses
  Exnetu in 'EXNETU.PAS' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exnet/exnetu.lfm
+++ b/components/onguard/examples/exnet/exnetu.lfm
@@ -5,96 +5,119 @@ object Form1: TForm1
  Width = 490
  HorzScrollBar.Page = 489
  VertScrollBar.Page = 316
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Network Code Example'
-  Font.Height = -11
+  ClientHeight = 317
-  Font.Name = 'MS Sans Serif'
+  ClientWidth = 490
  OnCreate = FormCreate
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
-    Left = 8
+    AnchorSideLeft.Control = Memo1
-    Height = 13
+    AnchorSideTop.Control = CloseBtn
-    Top = 262
+    AnchorSideTop.Side = asrCenter
-    Width = 35
+    Left = 12
    Height = 15
    Top = 231
    Width = 32
    BorderSpacing.Bottom = 12
    Caption = 'Status'
    Color = clNone
    ParentColor = False
  end
  object Label1: TLabel
-    Left = 232
+    AnchorSideLeft.Control = CodeBtn
-    Height = 13
+    AnchorSideLeft.Side = asrBottom
-    Top = 14
+    AnchorSideTop.Control = CodeBtn
-    Width = 77
+    AnchorSideTop.Side = asrCenter
    Left = 181
    Height = 15
    Top = 17
    Width = 72
    BorderSpacing.Left = 80
    Caption = 'Current code:'
    Color = clNone
    ParentColor = False
  end
  object CodeLbl: TLabel
-    Left = 320
+    AnchorSideLeft.Control = Label1
-    Height = 13
+    AnchorSideLeft.Side = asrBottom
-    Top = 14
+    AnchorSideTop.Control = CodeBtn
-    Width = 113
+    AnchorSideTop.Side = asrCenter
    Left = 265
    Height = 15
    Top = 17
    Width = 96
    BorderSpacing.Left = 12
    Caption = '0000000000000000'
    Color = clNone
    ParentColor = False
  end
  object CodeBtn: TButton
-    Left = 8
+    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 12
    Height = 25
-    Top = 8
+    Top = 12
    Width = 89
    BorderSpacing.Around = 12
    BorderSpacing.InnerBorder = 4
    Caption = 'Enter Code'
    OnClick = CodeBtnClick
    TabOrder = 0
  end
-  object Memo1: TMemo
+  object CloseBtn: TBitBtn
-    Left = 8
+    AnchorSideTop.Control = Memo1
-    Height = 209
+    AnchorSideTop.Side = asrBottom
-    Top = 40
+    AnchorSideRight.Control = Memo1
-    Width = 465
+    AnchorSideRight.Side = asrBottom
-    Color = clBtnFace
+    Left = 403
-    Lines.Strings = (
+    Height = 25
-      'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
+    Top = 226
-      'the code is either the incorrect type or that none has been entered. '
+    Width = 75
-      ''
+    Anchors = [akTop, akRight]
-      'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
+    BorderSpacing.Bottom = 12
-      'say that the code is invalid.'
+    Kind = bkClose
      ''
      'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
      'the proper "Usage" code). '
      ''
      'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
      'will cause the TOgNetCode component to report that the code is invalid.'
    )
    ReadOnly = True
    TabOrder = 1
  end
  object CloseBtn: TBitBtn
    Left = 400
    Height = 25
    Top = 256
    Width = 75
    Kind = bkClose
    NumGlyphs = 0
    TabOrder = 2
  end
  object RemoveBtn: TButton
-    Left = 288
+    AnchorSideTop.Control = CloseBtn
    AnchorSideRight.Control = CloseBtn
    Left = 302
    Height = 25
-    Top = 256
+    Top = 226
    Width = 97
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 4
    BorderSpacing.InnerBorder = 4
    Caption = 'Remove Code'
    OnClick = RemoveBtnClick
-    TabOrder = 3
+    TabOrder = 2
  end
  object Memo1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 165
    Top = 49
    Width = 466
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgNetCode component to report that the code is invalid.'
    Color = clBtnFace
    ParentColor = False
    WordWrap = True
  end
  object OgNetCode1: TOgNetCode
    OnChecked = CodeChecked
    OnGetKey = GetKey
    OnGetCode = GetCode
    FileName = 'EXNET.NAF'
-    left = 16
+    Left = 192
-    top = 216
+    Top = 208
  end
 end
--- a/components/onguard/examples/exnet/exnetu.lrs
+++ b/components/onguard/examples/exnet/exnetu.lrs
@@ -1,34 +1,51 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#2#1#6'Height'#3'='#1#3'Top'#3#146#0#5'Wid'
-  +'th'#3#234#1#18'HorzScrollBar.Page'#3#233#1#18'VertScrollBar.Page'#3'<'#1#11
+  +'th'#3#234#1#18'HorzScrollBar.Page'#3#233#1#18'VertScrollBar.Page'#3'<'#1#8
-  +'BorderStyle'#7#8'bsDialog'#7'Caption'#6#20'Network Code Example'#11'Font.He'
+  +'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#20'Network Code Exam'
-  +'ight'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'FormCreate'#8
+  +'ple'#12'ClientHeight'#3'='#1#11'ClientWidth'#3#234#1#8'OnCreate'#7#10'FormC'
-  +'Position'#7#14'poScreenCenter'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Heigh'
+  +'reate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLa'
-  +'t'#2#13#3'Top'#3#6#1#5'Width'#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNo'
+  +'bel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Co'
-  +'ne'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#4'Left'#3#232#0#6'Height'#2#13
+  +'ntrol'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'H'
-  +#3'Top'#2#14#5'Width'#2'M'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNon'
+  +'eight'#2#15#3'Top'#3#231#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Ca'
-  +'e'#11'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13
+  +'ption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'L'
-  +#3'Top'#2#14#5'Width'#2'q'#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'cl'
+  +'abel1'#22'AnchorSideLeft.Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9
-  +'None'#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25
+  +'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
-  +#3'Top'#2#8#5'Width'#2'Y'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10
+  +'asrCenter'#4'Left'#3#181#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2'H'#18'Bord'
-  +'Enter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Me'
+  +'erSpacing.Left'#2'P'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11
-  +'mo1'#4'Left'#2#8#6'Height'#3#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9
+  +'ParentColor'#8#0#0#6'TLabel'#7'CodeLbl'#22'AnchorSideLeft.Control'#7#6'Labe'
-  +'clBtnFace'#13'Lines.Strings'#1#6'fThe label at the bottom of this form indi'
+  +'l1'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'Co'
-  +'cates the status of the code. An invalid code indicates that '#6'Ethe code '
+  +'deBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#9#1#6'Height'#2#15#3
-  +'is either the incorrect type or that none has been entered. '#6#0#6'^If the'
+  +'Top'#2#17#5'Width'#2'`'#18'BorderSpacing.Left'#2#12#7'Caption'#6#16'0000000'
-  +' proper code has not been entered or the ONGUARD.INI file was deleted, the '
+  +'000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'
-  +'message will '#6#29'say that the code is invalid.'#6#0#6'YUse the "Enter Co'
+  +#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4
-  +'de" button to enter a code (the CODEGEN program can be used to generate '#6
+  +'Left'#2#12#6'Height'#2#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpacing.Around'
-  +#26'the proper "Usage" code). '#6#0#6'\The "Remove Code" button can be used '
+  +#2#12#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClic'
-  +'to remove the entered code from the INI file. Doing so '#6'Gwill cause the '
+  +'k'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorS'
-  +'TOgNetCode component to report that the code is invalid.'#0#8'ReadOnly'#9#8
+  +'ideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorS'
-  +'TabOrder'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'T'
+  +'ideRight.Control'#7#5'Memo1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
-  +'op'#3#0#1#5'Width'#2'K'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2
+  +#3#147#1#6'Height'#2#25#3'Top'#3#226#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7
-  +#2#0#0#7'TButton'#9'RemoveBtn'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5
+  +'akRight'#0#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2
-  +'Width'#2'a'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7
+  +#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'An'
-  +'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#3#0#0#10'TOgNetCode'#10'OgNetCo'
+  +'chorSideRight.Control'#7#8'CloseBtn'#4'Left'#3'.'#1#6'Height'#2#25#3'Top'#3
-  +'de1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7
+  +#226#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Ri'
-  +'GetCode'#8'FileName'#6#9'EXNET.NAF'#4'left'#2#16#3'top'#3#216#0#0#0#0
+  +'ght'#2#4#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'O'
  +'nClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'Anch'
  +'orSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'An'
  +'chorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20
  +'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#3#165#0#3'Top'#2
  +'1'#5'Width'#3#210#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'Border'
  +'Spacing.Around'#2#12#7'Caption'#12'H'#2#0#0'The label at the bottom of this'
  +' form indicates the status of the code. An invalid code indicates that the '
  +'code is either the incorrect type or that none has been entered. '#13#10#13
  +#10'If the proper code has not been entered or the ONGUARD.INI file was dele'
  +'ted, the message will say that the code is invalid.'#13#10#13#10'Use the "E'
  +'nter Code" button to enter a code (the CODEGEN program can be used to gener'
  +'ate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be'
  +' used to remove the entered code from the INI file. Doing so will cause the'
  +' TOgNetCode component to report that the code is invalid.'#5'Color'#7#9'clB'
  +'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#10'TOgNetCode'#10'OgNetCode1'#9
  +'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCo'
  +'de'#8'FileName'#6#9'EXNET.NAF'#4'Left'#3#192#0#3'Top'#3#208#0#0#0#0
 ]);
--- a/components/onguard/examples/exnet/exnetu.pas
+++ b/components/onguard/examples/exnet/exnetu.pas
@@ -13,8 +13,8 @@ type
  TForm1 = class(TForm)
    CodeBtn: TButton;
    Memo1: TMemo;
    CloseBtn: TBitBtn;
    Memo1: TLabel;
    StatusLbl: TLabel;
    Label1: TLabel;
    CodeLbl: TLabel;
--- a/components/onguard/examples/exprot/exprot.lpi
+++ b/components/onguard/examples/exprot/exprot.lpi
@@ -1,72 +1,107 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="2"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
-    <Units Count="3">
+    <Units Count="4">
      <Unit0>
        <Filename Value="exprot.lpr"/>
        <IsPartOfProject Value="True"/>
-        <CursorPos X="30" Y="17"/>
+        <UnitName Value="ExProt"/>
-        <TopLine Value="1"/>
+        <CursorPos X="30" Y="19"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exprotu.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="EXPROTU"/>
-        <CursorPos X="15" Y="8"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="1"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="10"/>
+        <TopLine Value="13"/>
        <CursorPos X="72" Y="32"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="../../source/ogproexe.pas"/>
        <UnitName Value="ogproexe"/>
        <CursorPos X="1" Y="453"/>
        <TopLine Value="432"/>
        <EditorIndex Value="2"/>
        <TopLine Value="432"/>
        <CursorPos Y="453"/>
        <UsageCount Value="10"/>
        <Loaded Value="True"/>
      </Unit2>
      <Unit3>
        <Filename Value="exprotu.lfm"/>
        <EditorIndex Value="-1"/>
        <CursorPos Y="6"/>
        <UsageCount Value="10"/>
        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit3>
    </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
+    <JumpHistory Count="2" HistoryIndex="1">
      <Position1>
        <Filename Value="exprotu.pas"/>
        <Caret Line="8" Column="15"/>
      </Position1>
      <Position2>
        <Filename Value="exprotu.pas"/>
        <Caret Line="31" Column="72" TopLine="13"/>
      </Position2>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -74,9 +109,6 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="2">
--- a/components/onguard/examples/exprot/exprot.lpr
+++ b/components/onguard/examples/exprot/exprot.lpr
@@ -10,6 +10,8 @@ uses
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exprot/exprotu.lfm
+++ b/components/onguard/examples/exprot/exprotu.lfm
@@ -1,55 +1,71 @@
 object Form1: TForm1
  Left = 258
-  Height = 151
+  Height = 200
  Top = 146
-  Width = 446
+  Width = 384
-  HorzScrollBar.Page = 445
+  AutoSize = True
-  HorzScrollBar.Range = 441
+  BorderStyle = bsDialog
  VertScrollBar.Page = 150
  VertScrollBar.Range = 145
  ActiveControl = Memo1
  Caption = 'Protect Exe Example'
-  Font.Color = clText
+  ClientHeight = 200
-  Font.Height = 11
+  ClientWidth = 384
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
-    Left = 8
+    AnchorSideLeft.Control = Owner
-    Height = 13
+    AnchorSideTop.Control = CloseBtn
-    Top = 126
+    AnchorSideTop.Side = asrCenter
-    Width = 35
+    Left = 12
    Height = 15
    Top = 164
    Width = 32
    BorderSpacing.Left = 12
    Caption = 'Status'
    Color = clNone
    ParentColor = False
  end
-  object Memo1: TMemo
+  object CloseBtn: TBitBtn
-    Left = 8
+    AnchorSideTop.Control = Bevel1
-    Height = 105
+    AnchorSideTop.Side = asrBottom
-    Top = 8
+    AnchorSideRight.Side = asrBottom
-    Width = 433
+    Left = 297
-    Lines.Strings = (
+    Height = 25
-      'The label at the bottom of this form indicates the status of the EXE file. '
+    Top = 159
-      ''
+    Width = 75
-      'If the EXE file has not been stamped, use the StampEXE program to protect it.'
+    Anchors = [akTop, akRight]
-      ''
+    BorderSpacing.Around = 12
-      'The EXE file will need to be stamped after each compile since this re-writes the EXE file.'
+    Kind = bkClose
    )
    ReadOnly = True
    TabOrder = 0
  end
-  object CloseBtn: TBitBtn
+  object Memo1: TLabel
-    Left = 360
+    AnchorSideLeft.Control = Owner
-    Height = 25
+    AnchorSideTop.Control = Owner
-    Top = 120
+    AnchorSideRight.Control = Owner
-    Width = 75
+    AnchorSideRight.Side = asrBottom
-    Kind = bkClose
+    Left = 12
-    NumGlyphs = 0
+    Height = 120
-    TabOrder = 1
+    Top = 12
    Width = 360
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Caption = 'The label at the bottom of this form indicates the status of the EXE file. '#13#10#13#10'If the EXE file has not been stamped, use the StampEXE program to protect it.'#13#10#13#10'The EXE file will need to be stamped after each compile since this re-writes the EXE file.'
    WordWrap = True
  end
  object Bevel1: TBevel
    AnchorSideLeft.Control = Memo1
    AnchorSideTop.Control = Memo1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Memo1
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 3
    Top = 144
    Width = 360
    Anchors = [akTop, akLeft, akRight]
    Shape = bsTopLine
  end
  object OgProtectExe1: TOgProtectExe
    OnChecked = OgProtectExe1Checked
-    left = 124
+    Left = 136
-    top = 120
+    Top = 88
  end
 end
--- a/components/onguard/examples/exprot/exprotu.lrs
+++ b/components/onguard/examples/exprot/exprotu.lrs
@@ -1,20 +1,30 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
-  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#2#1#6'Height'#3#151#0#3'Top'#3#146#0#5'Wi'
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#2#1#6'Height'#3#200#0#3'Top'#3#146#0#5'Wi'
-  +'dth'#3#190#1#18'HorzScrollBar.Page'#3#189#1#19'HorzScrollBar.Range'#3#185#1
+  +'dth'#3#128#1#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#19'Pr'
-  +#18'VertScrollBar.Page'#3#150#0#19'VertScrollBar.Range'#3#145#0#13'ActiveCon'
+  +'otect Exe Example'#12'ClientHeight'#3#200#0#11'ClientWidth'#3#128#1#8'Posit'
-  +'trol'#7#5'Memo1'#7'Caption'#6#19'Protect Exe Example'#10'Font.Color'#7#6'cl'
+  +'ion'#7#14'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusL'
-  +'Text'#11'Font.Height'#2#11#9'Font.Name'#6#13'MS Sans Serif'#10'Font.Pitch'#7
+  +'bl'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'Clo'
-  +#10'fpVariable'#8'Position'#7#14'poScreenCenter'#0#6'TLabel'#9'StatusLbl'#4
+  +'seBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3
-  +'Left'#2#8#6'Height'#2#13#3'Top'#2'~'#5'Width'#2'#'#7'Caption'#6#6'Status'#5
+  +'Top'#3#164#0#5'Width'#2' '#18'BorderSpacing.Left'#2#12#7'Caption'#6#6'Statu'
-  +'Color'#7#6'clNone'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'He'
+  +'s'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TBitBtn'#8'CloseBtn'#21'Anc'
-  +'ight'#2'i'#3'Top'#2#8#5'Width'#3#177#1#13'Lines.Strings'#1#6'KThe label at '
+  +'horSideTop.Control'#7#6'Bevel1'#18'AnchorSideTop.Side'#7#9'asrBottom'#20'An'
-  +'the bottom of this form indicates the status of the EXE file. '#6#0#6'MIf t'
+  +'chorSideRight.Side'#7#9'asrBottom'#4'Left'#3')'#1#6'Height'#2#25#3'Top'#3
-  +'he EXE file has not been stamped, use the StampEXE program to protect it.'#6
+  +#159#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#20'BorderSpacing.Ar'
-  +#0#6'ZThe EXE file will need to be stamped after each compile since this re-'
+  +'ound'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'A'
-  +'writes the EXE file.'#0#8'ReadOnly'#9#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'Clos'
+  +'nchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'A'
-  +'eBtn'#4'Left'#3'h'#1#6'Height'#2#25#3'Top'#2'x'#5'Width'#2'K'#4'Kind'#7#7'b'
+  +'nchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
-  +'kClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#13'TOgProtectExe'#13'OgProtect'
+  +'Left'#2#12#6'Height'#2'x'#3'Top'#2#12#5'Width'#3'h'#1#7'Anchors'#11#5'akTop'
-  +'Exe1'#9'OnChecked'#7#20'OgProtectExe1Checked'#4'left'#2'|'#3'top'#2'x'#0#0#0
+  +#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#6#250'The l'
  +'abel at the bottom of this form indicates the status of the EXE file. '#13
  +#10#13#10'If the EXE file has not been stamped, use the StampEXE program to '
  +'protect it.'#13#10#13#10'The EXE file will need to be stamped after each co'
  +'mpile since this re-writes the EXE file.'#8'WordWrap'#9#0#0#6'TBevel'#6'Bev'
  +'el1'#22'AnchorSideLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#5'Me'
  +'mo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
  +'Memo1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2#3#3
  +'Top'#3#144#0#5'Width'#3'h'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#5
  +'Shape'#7#9'bsTopLine'#0#0#13'TOgProtectExe'#13'OgProtectExe1'#9'OnChecked'#7
  +#20'OgProtectExe1Checked'#4'Left'#3#136#0#3'Top'#2'X'#0#0#0
 ]);
--- a/components/onguard/examples/exprot/exprotu.pas
+++ b/components/onguard/examples/exprot/exprotu.pas
@@ -4,13 +4,17 @@ interface
 uses
  SysUtils, Classes,
-  Controls, Forms, Dialogs, StdCtrls, Buttons,LResources
+  Controls, Forms, Dialogs, StdCtrls, Buttons, LResources, ExtCtrls,
-  ,ogutil, ogproexe;
+  ogutil, ogproexe;
 type
  { TForm1 }
  TForm1 = class(TForm)
-    Memo1: TMemo;
+    Bevel1: TBevel;
    CloseBtn: TBitBtn;
    Memo1: TLabel;
    StatusLbl: TLabel;
    OgProtectExe1: TOgProtectExe;
    procedure OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);
@@ -25,8 +29,6 @@ var
 implementation
 procedure TForm1.OgProtectExe1Checked(Sender: TObject; Status: TExeStatus);
 var
  S : string;
--- a/components/onguard/examples/exreg/exreg.lpi
+++ b/components/onguard/examples/exreg/exreg.lpi
@@ -1,27 +1,33 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <AlwaysBuild Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <Scaled Value="True"/>
-      <TargetFileExt Value=".exe"/>
+      <UseXPManifest Value="True"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
    <RequiredPackages Count="2">
      <Item1>
@@ -33,15 +39,15 @@
        <MinVersion Major="1" Valid="True"/>
      </Item2>
    </RequiredPackages>
-    <Units Count="6">
+    <Units Count="8">
      <Unit0>
        <Filename Value="exreg.lpr"/>
        <IsPartOfProject Value="True"/>
-        <CursorPos X="7" Y="8"/>
+        <UnitName Value="ExReg"/>
-        <TopLine Value="1"/>
+        <CursorPos Y="9"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exreg1.pas"/>
@@ -50,111 +56,186 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="ExReg1"/>
-        <CursorPos X="1" Y="75"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="57"/>
        <EditorIndex Value="1"/>
        <TopLine Value="72"/>
        <CursorPos X="30" Y="96"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="../../source/onguard.pas"/>
-        <UnitName Value="onguard"/>
+        <EditorIndex Value="2"/>
        <CursorPos X="3" Y="2041"/>
        <TopLine Value="2036"/>
-        <EditorIndex Value="3"/>
+        <CursorPos X="3" Y="2041"/>
        <UsageCount Value="10"/>
        <Loaded Value="True"/>
      </Unit2>
      <Unit3>
        <Filename Value="../../../../lazarus0915/lcl/editbtn.pas"/>
        <UnitName Value="EditBtn"/>
        <CursorPos X="60" Y="313"/>
        <TopLine Value="301"/>
        <CursorPos X="60" Y="313"/>
        <UsageCount Value="10"/>
      </Unit3>
      <Unit4>
        <Filename Value="../../../../lazarus0915/fpcsrc/rtl/objpas/sysutils/datih.inc"/>
        <CursorPos X="10" Y="114"/>
        <TopLine Value="101"/>
        <CursorPos X="10" Y="114"/>
        <UsageCount Value="10"/>
      </Unit4>
      <Unit5>
        <Filename Value="../../../../../../temp/fpc/rtl/objpas/sysutils/datih.inc"/>
-        <CursorPos X="10" Y="127"/>
+        <EditorIndex Value="-1"/>
        <TopLine Value="106"/>
-        <EditorIndex Value="2"/>
+        <CursorPos X="10" Y="127"/>
        <UsageCount Value="10"/>
        <LoadedDesigner Value="True"/>
      </Unit5>
      <Unit6>
        <Filename Value="C:/Lazarus/fpc-3.2.2/source/rtl/objpas/sysutils/sysinth.inc"/>
        <EditorIndex Value="3"/>
        <TopLine Value="75"/>
        <CursorPos X="4" Y="93"/>
        <UsageCount Value="10"/>
        <Loaded Value="True"/>
-      </Unit5>
+      </Unit6>
      <Unit7>
        <Filename Value="C:/Lazarus/fpc-3.2.2/source/rtl/win/sysutils.pp"/>
        <UnitName Value="SysUtils"/>
        <EditorIndex Value="4"/>
        <TopLine Value="10"/>
        <CursorPos X="23" Y="13"/>
        <UsageCount Value="10"/>
        <Loaded Value="True"/>
      </Unit7>
    </Units>
-    <JumpHistory Count="15" HistoryIndex="14">
+    <JumpHistory Count="30" HistoryIndex="29">
      <Position1>
        <Filename Value="exreg1.pas"/>
-        <Caret Line="69" Column="27" TopLine="62"/>
+        <Caret Line="80" Column="19" TopLine="68"/>
      </Position1>
      <Position2>
-        <Filename Value="exreg1.pas"/>
+        <Filename Value="../../source/onguard.pas"/>
-        <Caret Line="79" Column="16" TopLine="68"/>
+        <Caret Line="1985" Column="34" TopLine="1979"/>
      </Position2>
      <Position3>
        <Filename Value="../../source/onguard.pas"/>
-        <Caret Line="1979" Column="61" TopLine="1979"/>
+        <Caret Line="72" Column="16" TopLine="70"/>
      </Position3>
      <Position4>
-        <Filename Value="exreg1.pas"/>
+        <Filename Value="../../source/onguard.pas"/>
        <Caret Line="80" Column="19" TopLine="68"/>
      </Position4>
      <Position5>
        <Filename Value="../../source/onguard.pas"/>
-        <Caret Line="1985" Column="34" TopLine="1979"/>
+        <Caret Line="90" Column="22" TopLine="75"/>
      </Position5>
      <Position6>
        <Filename Value="../../source/onguard.pas"/>
-        <Caret Line="72" Column="16" TopLine="70"/>
+        <Caret Line="1901" Column="28" TopLine="1886"/>
      </Position6>
      <Position7>
-        <Filename Value="../../source/onguard.pas"/>
+        <Filename Value="exreg1.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Caret Line="77" Column="62" TopLine="60"/>
      </Position7>
      <Position8>
-        <Filename Value="../../source/onguard.pas"/>
+        <Filename Value="exreg1.pas"/>
-        <Caret Line="90" Column="22" TopLine="75"/>
+        <Caret Line="73" Column="60" TopLine="60"/>
      </Position8>
      <Position9>
-        <Filename Value="../../source/onguard.pas"/>
+        <Filename Value="exreg1.pas"/>
-        <Caret Line="1901" Column="28" TopLine="1886"/>
+        <Caret Line="62" Column="13" TopLine="54"/>
      </Position9>
      <Position10>
        <Filename Value="exreg1.pas"/>
-        <Caret Line="77" Column="62" TopLine="60"/>
+        <Caret Line="65" Column="10" TopLine="54"/>
      </Position10>
      <Position11>
        <Filename Value="exreg1.pas"/>
-        <Caret Line="73" Column="60" TopLine="60"/>
+        <Caret Line="61" Column="14" TopLine="54"/>
      </Position11>
      <Position12>
        <Filename Value="exreg1.pas"/>
-        <Caret Line="62" Column="13" TopLine="54"/>
+        <Caret Line="65" Column="9" TopLine="54"/>
      </Position12>
      <Position13>
        <Filename Value="exreg1.pas"/>
-        <Caret Line="65" Column="10" TopLine="54"/>
+        <Caret Line="75" TopLine="57"/>
      </Position13>
      <Position14>
        <Filename Value="exreg1.pas"/>
-        <Caret Line="61" Column="14" TopLine="54"/>
+        <Caret Line="54" Column="37" TopLine="54"/>
      </Position14>
      <Position15>
        <Filename Value="exreg1.pas"/>
-        <Caret Line="65" Column="9" TopLine="54"/>
+        <Caret Line="32" Column="22"/>
      </Position15>
      <Position16>
        <Filename Value="exreg1.pas"/>
        <Caret Line="91" Column="18" TopLine="62"/>
      </Position16>
      <Position17>
        <Filename Value="exreg1.pas"/>
        <Caret Line="43" Column="21" TopLine="43"/>
      </Position17>
      <Position18>
        <Filename Value="exreg1.pas"/>
      </Position18>
      <Position19>
        <Filename Value="exreg1.pas"/>
        <Caret Line="91" Column="10" TopLine="61"/>
      </Position19>
      <Position20>
        <Filename Value="exreg1.pas"/>
        <Caret Line="50" Column="8" TopLine="43"/>
      </Position20>
      <Position21>
        <Filename Value="exreg1.pas"/>
      </Position21>
      <Position22>
        <Filename Value="exreg1.pas"/>
        <Caret Line="28" Column="30"/>
      </Position22>
      <Position23>
        <Filename Value="exreg1.pas"/>
        <Caret Line="62" Column="25" TopLine="62"/>
      </Position23>
      <Position24>
        <Filename Value="exreg1.pas"/>
      </Position24>
      <Position25>
        <Filename Value="exreg1.pas"/>
        <Caret Line="14" Column="11"/>
      </Position25>
      <Position26>
        <Filename Value="exreg1.pas"/>
        <Caret Line="61" Column="24" TopLine="31"/>
      </Position26>
      <Position27>
        <Filename Value="exreg1.pas"/>
        <Caret Line="92" TopLine="62"/>
      </Position27>
      <Position28>
        <Filename Value="exreg1.pas"/>
        <Caret Line="54" TopLine="18"/>
      </Position28>
      <Position29>
        <Filename Value="exreg1.pas"/>
        <Caret Line="67" Column="33" TopLine="45"/>
      </Position29>
      <Position30>
        <Filename Value="exreg1.pas"/>
        <Caret Line="30" Column="15" TopLine="12"/>
      </Position30>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -167,7 +248,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -175,11 +256,17 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <BreakPoints Count="1">
      <Item1>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsLocal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="exreg1.pas"/>
        <Line Value="61"/>
      </Item1>
    </BreakPoints>
    <Exceptions Count="2">
      <Item1>
        <Name Value="ECodetoolError"/>
--- a/components/onguard/examples/exreg/exreg.lpr
+++ b/components/onguard/examples/exreg/exreg.lpr
@@ -7,8 +7,11 @@ uses
  Forms,
  ExReg1 in 'ExReg1.pas' {frmExRegCode}, tponguard;
 {$R *.res}
 begin
  Application.Scaled:=True;
  Application.Title:='';
  Application.Initialize;
  Application.CreateForm(TfrmExRegCode, frmExRegCode);
  Application.Run;
--- a/components/onguard/examples/exreg/exreg1.lfm
+++ b/components/onguard/examples/exreg/exreg1.lfm
@@ -7,54 +7,78 @@ object frmExRegCode: TfrmExRegCode
  Caption = 'Registration Code Example'
  ClientHeight = 298
  ClientWidth = 391
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  OnCreate = FormCreate
  Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '2.3.0.0'
  object GroupBox1: TGroupBox
-    Left = 8
+    AnchorSideLeft.Control = Owner
-    Height = 129
+    AnchorSideTop.Control = Owner
-    Top = 8
+    Left = 12
-    Width = 369
+    Height = 121
    Top = 12
    Width = 370
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 12
    Caption = ' Registration Code Generator (vendor site) '
-    ClientHeight = 111
+    ClientHeight = 101
-    ClientWidth = 365
+    ClientWidth = 366
    TabOrder = 0
    object Label1: TLabel
      AnchorSideTop.Control = edtUserName1
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = Label3
      AnchorSideRight.Side = asrBottom
      Left = 39
-      Height = 14
+      Height = 15
-      Top = 28
+      Top = 8
-      Width = 57
+      Width = 70
      Alignment = taRightJustify
      Anchors = [akTop, akLeft, akRight]
      Caption = 'User Name:'
      ParentColor = False
    end
    object Label2: TLabel
-      Left = 14
+      AnchorSideTop.Control = edDate
-      Height = 14
+      AnchorSideTop.Side = asrCenter
-      Top = 60
+      AnchorSideRight.Control = Label3
-      Width = 76
+      AnchorSideRight.Side = asrBottom
      Left = 26
      Height = 15
      Top = 39
      Width = 83
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = 'Expiration Date:'
      ParentColor = False
    end
    object Label3: TLabel
-      Left = 6
+      AnchorSideLeft.Control = GroupBox1
-      Height = 14
+      AnchorSideTop.Control = edtRegCode1
-      Top = 92
+      AnchorSideTop.Side = asrCenter
-      Width = 88
+      Left = 12
      Height = 15
      Top = 70
      Width = 97
      Alignment = taRightJustify
      BorderSpacing.Left = 12
      Caption = 'Registration Code:'
      ParentColor = False
    end
    object btnGenerate: TSpeedButton
-      Left = 328
+      AnchorSideTop.Control = edtRegCode1
      AnchorSideTop.Side = asrCenter
      AnchorSideRight.Control = GroupBox1
      AnchorSideRight.Side = asrBottom
      Left = 331
      Height = 22
      Hint = 'Generate Registration Code'
-      Top = 88
+      Top = 66
      Width = 23
-      Color = clBtnFace
+      Anchors = [akTop, akRight]
      BorderSpacing.Right = 12
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000000000000000000000000
@@ -68,78 +92,123 @@ object frmExRegCode: TfrmExRegCode
        0000888800888080088880000000888888000008888880000000888888888888
        888880000000
      }
      NumGlyphs = 0
      OnClick = btnGenerateClick
      ShowHint = True
      ParentShowHint = False
    end
    object edtUserName1: TEdit
-      Left = 120
+      AnchorSideLeft.Control = edtRegCode1
      AnchorSideTop.Control = GroupBox1
      Left = 121
      Height = 23
-      Top = 24
+      Top = 4
      Width = 233
      BorderSpacing.Top = 4
      BorderSpacing.Right = 12
      TabOrder = 0
    end
    object edtRegCode1: TEdit
-      Left = 120
+      AnchorSideLeft.Control = Label3
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edDate
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = btnGenerate
      Left = 121
      Height = 23
-      Top = 88
+      Top = 66
-      Width = 201
+      Width = 206
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 12
      BorderSpacing.Top = 8
      BorderSpacing.Right = 4
      BorderSpacing.Bottom = 12
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 1
    end
    object edDate: TEdit
      AnchorSideLeft.Control = edtRegCode1
      AnchorSideTop.Control = edtUserName1
      AnchorSideTop.Side = asrBottom
      Left = 121
      Height = 23
-      Top = 57
+      Top = 35
      Width = 118
      BorderSpacing.Top = 8
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
-    Left = 8
+    AnchorSideLeft.Control = Owner
-    Height = 129
+    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 121
    Top = 152
-    Width = 369
+    Width = 367
    Anchors = [akTop, akLeft, akRight]
    AutoSize = True
    BorderSpacing.Left = 12
    BorderSpacing.Top = 24
    BorderSpacing.Right = 12
    BorderSpacing.Bottom = 12
    Caption = ' Registration Code Verification (client site) '
-    ClientHeight = 111
+    ClientHeight = 101
-    ClientWidth = 365
+    ClientWidth = 363
    TabOrder = 1
    object Label4: TLabel
-      Left = 38
+      AnchorSideTop.Control = edtUserName2
-      Height = 14
+      AnchorSideTop.Side = asrCenter
-      Top = 60
+      AnchorSideRight.Control = Label5
-      Width = 57
+      AnchorSideRight.Side = asrBottom
      Left = 48
      Height = 15
      Top = 39
      Width = 61
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = 'User Name:'
      ParentColor = False
    end
    object Label5: TLabel
-      Left = 6
+      AnchorSideLeft.Control = GroupBox2
-      Height = 14
+      AnchorSideTop.Control = edtRegCode2
-      Top = 28
+      AnchorSideTop.Side = asrCenter
-      Width = 88
+      Left = 12
      Height = 15
      Top = 8
      Width = 97
      Alignment = taRightJustify
      BorderSpacing.Left = 12
      Caption = 'Registration Code:'
      ParentColor = False
    end
    object Label6: TLabel
-      Left = 70
+      AnchorSideTop.Control = edtStatus
-      Height = 14
+      AnchorSideTop.Side = asrCenter
-      Top = 92
+      AnchorSideRight.Control = Label4
-      Width = 34
+      AnchorSideRight.Side = asrBottom
      Left = 74
      Height = 15
      Top = 70
      Width = 35
      Alignment = taRightJustify
      Anchors = [akTop, akRight]
      Caption = 'Status:'
      ParentColor = False
    end
    object btnVerify: TSpeedButton
-      Left = 224
+      AnchorSideLeft.Control = edtStatus
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = edtStatus
      AnchorSideTop.Side = asrCenter
      Left = 254
      Height = 22
      Hint = 'Verify Registration Code'
-      Top = 88
+      Top = 66
      Width = 23
-      Color = clBtnFace
+      BorderSpacing.Left = 4
      BorderSpacing.Bottom = 12
      Glyph.Data = {
        42010000424D4201000000000000760000002800000011000000110000000100
        040000000000CC00000000000000000000001000000000000000000000000000
@@ -153,30 +222,51 @@ object frmExRegCode: TfrmExRegCode
        0000888888888888888880000000888888888888888880000000888888888888
        888880000000
      }
      NumGlyphs = 0
      OnClick = btnVerifyClick
      ShowHint = True
      ParentShowHint = False
    end
    object edtUserName2: TEdit
-      Left = 120
+      AnchorSideLeft.Control = edtRegCode2
      AnchorSideTop.Control = edtRegCode2
      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = GroupBox2
      AnchorSideRight.Side = asrBottom
      Left = 121
      Height = 23
-      Top = 56
+      Top = 35
-      Width = 233
+      Width = 230
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 8
      BorderSpacing.Right = 12
      TabOrder = 0
    end
    object edtRegCode2: TEdit
-      Left = 120
+      AnchorSideLeft.Control = Label5
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = GroupBox2
      AnchorSideRight.Control = GroupBox2
      AnchorSideRight.Side = asrBottom
      Left = 121
      Height = 23
-      Top = 24
+      Top = 4
-      Width = 233
+      Width = 230
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Left = 12
      BorderSpacing.Top = 4
      BorderSpacing.Right = 12
      TabOrder = 1
    end
    object edtStatus: TEdit
-      Left = 120
+      AnchorSideLeft.Control = edtRegCode2
      AnchorSideTop.Control = edtUserName2
      AnchorSideTop.Side = asrBottom
      Left = 121
      Height = 23
-      Top = 88
+      Top = 66
-      Width = 97
+      Width = 129
      BorderSpacing.Top = 8
      BorderSpacing.Bottom = 12
      Color = clBtnFace
      ReadOnly = True
      TabOrder = 2
--- a/components/onguard/examples/exreg/exreg1.lrs
+++ b/components/onguard/examples/exreg/exreg1.lrs
@@ -1,69 +1,114 @@
-{ To jest automatycznie wygenerowany plik zasobów lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TfrmExRegCode','FORMDATA',[
  'TPF0'#13'TfrmExRegCode'#12'frmExRegCode'#4'Left'#3#135#1#6'Height'#3'*'#1#3
  +'Top'#3#180#0#5'Width'#3#135#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25
-  +'Registration Code Example'#12'ClientHeight'#3'*'#1#11'ClientWidth'#3#135#1
+  +'Registration Code Example'#12'ClientHeight'#3'*'#1#11'ClientWidth'#3#135#1#8
-  +#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'OnCreate'#7#10'For'
+  +'OnCreate'#7#10'FormCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6
-  +'mCreate'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#9'TG'
+  +#7'2.3.0.0'#0#9'TGroupBox'#9'GroupBox1'#22'AnchorSideLeft.Control'#7#5'Owner'
-  +'roupBox'#9'GroupBox1'#4'Left'#2#8#6'Height'#3#129#0#3'Top'#2#8#5'Width'#3'q'
+  +#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2'y'#3'Top'#2#12
-  +#1#7'Caption'#6'+ Registration Code Generator (vendor site) '#12'ClientHeigh'
+  +#5'Width'#3'r'#1#8'AutoSize'#9#18'BorderSpacing.Left'#2#12#17'BorderSpacing.'
-  +'t'#2'o'#11'ClientWidth'#3'm'#1#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'
+  +'Top'#2#12#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#7'Capt'
-  +#2''''#6'Height'#2#14#3'Top'#2#28#5'Width'#2'9'#9'Alignment'#7#14'taRightJus'
+  +'ion'#6'+ Registration Code Generator (vendor site) '#12'ClientHeight'#2'e'
-  +'tify'#7'Caption'#6#10'User Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'
+  +#11'ClientWidth'#3'n'#1#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#21'AnchorSideT'
-  +#4'Left'#2#14#6'Height'#2#14#3'Top'#2'<'#5'Width'#2'L'#9'Alignment'#7#14'taR'
+  +'op.Control'#7#12'edtUserName1'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'Anc'
-  +'ightJustify'#7'Caption'#6#16'Expiration Date:'#11'ParentColor'#8#0#0#6'TLab'
+  +'horSideRight.Control'#7#6'Label3'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
-  +'el'#6'Label3'#4'Left'#2#6#6'Height'#2#14#3'Top'#2'\'#5'Width'#2'X'#9'Alignm'
+  +'Left'#2''''#6'Height'#2#15#3'Top'#2#8#5'Width'#2'F'#9'Alignment'#7#14'taRig'
-  +'ent'#7#14'taRightJustify'#7'Caption'#6#18'Registration Code:'#11'ParentColo'
+  +'htJustify'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#7'Caption'#6#10'Us'
-  +'r'#8#0#0#12'TSpeedButton'#11'btnGenerate'#4'Left'#3'H'#1#6'Height'#2#22#4'H'
+  +'er Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#21'AnchorSideTop.Contro'
-  +'int'#6#26'Generate Registration Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'#7#9
+  +'l'#7#6'edDate'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRight.Con'
-  +'clBtnFace'#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0
+  +'trol'#7#6'Label3'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#26#6'He'
-  +'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#16#0#0
+  +'ight'#2#15#3'Top'#2''''#5'Width'#2'S'#9'Alignment'#7#14'taRightJustify'#7'A'
-  +#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128
+  +'nchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#16'Expiration Date:'#11'Paren'
-  +#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0
+  +'tColor'#8#0#0#6'TLabel'#6'Label3'#22'AnchorSideLeft.Control'#7#9'GroupBox1'
-  +#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128
+  +#21'AnchorSideTop.Control'#7#11'edtRegCode1'#18'AnchorSideTop.Side'#7#9'asrC'
-  +#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#0#0#8#136#136
+  +'enter'#4'Left'#2#12#6'Height'#2#15#3'Top'#2'F'#5'Width'#2'a'#9'Alignment'#7
-  +#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0#136#128#128#136#136#136#0
+  +#14'taRightJustify'#18'BorderSpacing.Left'#2#12#7'Caption'#6#18'Registration'
-  +#136#128#0#0#0#136#8#136#128#0#136#136#8#128#0#0#0#136#0#136#0#0#8#136#8#128
+  +' Code:'#11'ParentColor'#8#0#0#12'TSpeedButton'#11'btnGenerate'#21'AnchorSid'
-  +#0#0#0#128#136#128#9#137#0#128#128#128#0#0#0#128#136#128#8#152#0#136#128#128
+  +'eTop.Control'#7#11'edtRegCode1'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'An'
-  +#0#0#0#128#8#128#8#152#0#136#0#128#0#0#0#128#136#128#9#137#0#136#128#128#0#0
+  +'chorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBotto'
-  +#0#136#8#136#0#0#8#136#8#128#0#0#0#136#8#8#128#0#136#8#8#128#0#0#0#136#128
+  +'m'#4'Left'#3'K'#1#6'Height'#2#22#4'Hint'#6#26'Generate Registration Code'#3
-  +#136#8#136#136#128#136#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0#136
+  +'Top'#2'B'#5'Width'#2#23#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacin'
-  +#136#136#0#0#8#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#9
+  +'g.Right'#2#12#10'Glyph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0
-  +'NumGlyphs'#2#0#7'OnClick'#7#16'btnGenerateClick'#8'ShowHint'#9#14'ParentSho'
+  +#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#16#0
-  +'wHint'#8#0#0#5'TEdit'#12'edtUserName1'#4'Left'#2'x'#6'Height'#2#23#3'Top'#2
+  +#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0
-  +#24#5'Width'#3#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode1'#4'Left'#2
+  +#128#128#0#0#128#128#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255
-  +'x'#6'Height'#2#23#3'Top'#2'X'#5'Width'#3#201#0#5'Color'#7#9'clBtnFace'#8'Re'
+  +#0#0#0#255#0#255#0#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136
-  +'adOnly'#9#8'TabOrder'#2#1#0#0#5'TEdit'#6'edDate'#4'Left'#2'y'#6'Height'#2#23
+  +#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#0#0#8#136
-  +#3'Top'#2'9'#5'Width'#2'v'#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBox2'#4
+  +#136#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0#136#128#128#136#136#136
-  +'Left'#2#8#6'Height'#3#129#0#3'Top'#3#152#0#5'Width'#3'q'#1#7'Caption'#6'. R'
+  +#0#136#128#0#0#0#136#8#136#128#0#136#136#8#128#0#0#0#136#0#136#0#0#8#136#8
-  +'egistration Code Verification (client site) '#12'ClientHeight'#2'o'#11'Clie'
+  +#128#0#0#0#128#136#128#9#137#0#128#128#128#0#0#0#128#136#128#8#152#0#136#128
-  +'ntWidth'#3'm'#1#8'TabOrder'#2#1#0#6'TLabel'#6'Label4'#4'Left'#2'&'#6'Height'
+  +#128#0#0#0#128#8#128#8#152#0#136#0#128#0#0#0#128#136#128#9#137#0#136#128#128
-  +#2#14#3'Top'#2'<'#5'Width'#2'9'#9'Alignment'#7#14'taRightJustify'#7'Caption'
+  +#0#0#0#136#8#136#0#0#8#136#8#128#0#0#0#136#8#8#128#0#136#8#8#128#0#0#0#136
-  +#6#10'User Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#4'Left'#2#6#6'He'
+  +#128#136#8#136#136#128#136#128#0#0#0#136#136#0#136#128#128#8#136#128#0#0#0
-  +'ight'#2#14#3'Top'#2#28#5'Width'#2'X'#9'Alignment'#7#14'taRightJustify'#7'Ca'
+  +#136#136#136#0#0#8#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0
-  +'ption'#6#18'Registration Code:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'#4
+  +#0#7'OnClick'#7#16'btnGenerateClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#5
-  +'Left'#2'F'#6'Height'#2#14#3'Top'#2'\'#5'Width'#2'"'#9'Alignment'#7#14'taRig'
+  +'TEdit'#12'edtUserName1'#22'AnchorSideLeft.Control'#7#11'edtRegCode1'#21'Anc'
-  +'htJustify'#7'Caption'#6#7'Status:'#11'ParentColor'#8#0#0#12'TSpeedButton'#9
+  +'horSideTop.Control'#7#9'GroupBox1'#4'Left'#2'y'#6'Height'#2#23#3'Top'#2#4#5
-  +'btnVerify'#4'Left'#3#224#0#6'Height'#2#22#4'Hint'#6#24'Verify Registration '
+  +'Width'#3#233#0#17'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#12#8'Tab'
-  +'Code'#3'Top'#2'X'#5'Width'#2#23#5'Color'#7#9'clBtnFace'#10'Glyph.Data'#10'F'
+  +'Order'#2#0#0#0#5'TEdit'#11'edtRegCode1'#22'AnchorSideLeft.Control'#7#6'Labe'
-  +#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0#17#0#0#0#1#0#4
+  +'l3'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#6'ed'
-  +#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#16#0#0#0#0#0#0#0#0#0#0#0#0#0#128#0#0#128
+  +'Date'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#11
-  +#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128#128#0#192#192#192
+  +'btnGenerate'#4'Left'#2'y'#6'Height'#2#23#3'Top'#2'B'#5'Width'#3#206#0#7'Anc'
-  +#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0#255#255#0#0#255#255
+  +'hors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#12#17'Bor'
-  +#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
+  +'derSpacing.Top'#2#8#19'BorderSpacing.Right'#2#4#20'BorderSpacing.Bottom'#2
-  +#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
+  +#12#5'Color'#7#9'clBtnFace'#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#5'TEdit'#6'edD'
-  +#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#0#8
+  +'ate'#22'AnchorSideLeft.Control'#7#11'edtRegCode1'#21'AnchorSideTop.Control'
-  +#136#136#136#136#128#0#0#0#136#128#0#0#136#8#136#128#128#0#0#0#136#0#152#144
+  +#7#12'edtUserName1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'y'#6'Hei'
-  +#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0#136#0#137#128#0#0#0#0
+  +'ght'#2#23#3'Top'#2'#'#5'Width'#2'v'#17'BorderSpacing.Top'#2#8#8'TabOrder'#2
-  +#128#0#0#0#136#0#152#144#8#136#136#136#128#0#0#0#136#128#0#0#136#136#136#136
+  +#2#0#0#0#9'TGroupBox'#9'GroupBox2'#22'AnchorSideLeft.Control'#7#5'Owner'#23
-  +#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
+  +'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'
-  +#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136
+  +#4'Left'#2#12#6'Height'#2'y'#3'Top'#3#152#0#5'Width'#3'o'#1#7'Anchors'#11#5
-  +#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0#9'NumGlyphs'
+  +'akTop'#6'akLeft'#7'akRight'#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#12#17
-  +#2#0#7'OnClick'#7#14'btnVerifyClick'#8'ShowHint'#9#14'ParentShowHint'#8#0#0#5
+  +'BorderSpacing.Top'#2#24#19'BorderSpacing.Right'#2#12#20'BorderSpacing.Botto'
-  +'TEdit'#12'edtUserName2'#4'Left'#2'x'#6'Height'#2#23#3'Top'#2'8'#5'Width'#3
+  +'m'#2#12#7'Caption'#6'. Registration Code Verification (client site) '#12'Cl'
-  +#233#0#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode2'#4'Left'#2'x'#6'Height'#2
+  +'ientHeight'#2'e'#11'ClientWidth'#3'k'#1#8'TabOrder'#2#1#0#6'TLabel'#6'Label'
-  +#23#3'Top'#2#24#5'Width'#3#233#0#8'TabOrder'#2#1#0#0#5'TEdit'#9'edtStatus'#4
+  +'4'#21'AnchorSideTop.Control'#7#12'edtUserName2'#18'AnchorSideTop.Side'#7#9
-  +'Left'#2'x'#6'Height'#2#23#3'Top'#2'X'#5'Width'#2'a'#5'Color'#7#9'clBtnFace'
+  +'asrCenter'#23'AnchorSideRight.Control'#7#6'Label5'#20'AnchorSideRight.Side'
-  ,#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#0
+  ,#7#9'asrBottom'#4'Left'#2'0'#6'Height'#2#15#3'Top'#2''''#5'Width'#2'='#9'Ali'
  +'gnment'#7#14'taRightJustify'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'
  +#6#10'User Name:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label5'#22'AnchorSideLef'
  +'t.Control'#7#9'GroupBox2'#21'AnchorSideTop.Control'#7#11'edtRegCode2'#18'An'
  +'chorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#2#8#5'W'
  +'idth'#2'a'#9'Alignment'#7#14'taRightJustify'#18'BorderSpacing.Left'#2#12#7
  +'Caption'#6#18'Registration Code:'#11'ParentColor'#8#0#0#6'TLabel'#6'Label6'
  +#21'AnchorSideTop.Control'#7#9'edtStatus'#18'AnchorSideTop.Side'#7#9'asrCent'
  +'er'#23'AnchorSideRight.Control'#7#6'Label4'#20'AnchorSideRight.Side'#7#9'as'
  +'rBottom'#4'Left'#2'J'#6'Height'#2#15#3'Top'#2'F'#5'Width'#2'#'#9'Alignment'
  +#7#14'taRightJustify'#7'Anchors'#11#5'akTop'#7'akRight'#0#7'Caption'#6#7'Sta'
  +'tus:'#11'ParentColor'#8#0#0#12'TSpeedButton'#9'btnVerify'#22'AnchorSideLeft'
  +'.Control'#7#9'edtStatus'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSi'
  +'deTop.Control'#7#9'edtStatus'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'
  +#3#254#0#6'Height'#2#22#4'Hint'#6#24'Verify Registration Code'#3'Top'#2'B'#5
  +'Width'#2#23#18'BorderSpacing.Left'#2#4#20'BorderSpacing.Bottom'#2#12#10'Gly'
  +'ph.Data'#10'F'#1#0#0'B'#1#0#0'BMB'#1#0#0#0#0#0#0'v'#0#0#0'('#0#0#0#17#0#0#0
  +#17#0#0#0#1#0#4#0#0#0#0#0#204#0#0#0#0#0#0#0#0#0#0#0#16#0#0#0#0#0#0#0#0#0#0#0
  +#0#0#128#0#0#128#0#0#0#128#128#0#128#0#0#0#128#0#128#0#128#128#0#0#128#128
  +#128#0#192#192#192#0#0#0#255#0#0#255#0#0#0#255#255#0#255#0#0#0#255#0#255#0
  +#255#255#0#0#255#255#255#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136
  +#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0#0#0
  +#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136
  +#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136#128#0#0#136#8#136#128
  +#128#0#0#0#136#0#152#144#8#8#0#128#128#0#0#0#136#0#137#128#0#0#0#0#128#0#0#0
  +#136#0#137#128#0#0#0#0#128#0#0#0#136#0#152#144#8#136#136#136#128#0#0#0#136
  +#128#0#0#136#136#136#136#128#0#0#0#136#136#0#8#136#136#136#136#128#0#0#0#136
  +#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136#136#128#0
  +#0#0#136#136#136#136#136#136#136#136#128#0#0#0#136#136#136#136#136#136#136
  +#136#128#0#0#0#7'OnClick'#7#14'btnVerifyClick'#8'ShowHint'#9#14'ParentShowHi'
  +'nt'#8#0#0#5'TEdit'#12'edtUserName2'#22'AnchorSideLeft.Control'#7#11'edtRegC'
  +'ode2'#21'AnchorSideTop.Control'#7#11'edtRegCode2'#18'AnchorSideTop.Side'#7#9
  +'asrBottom'#23'AnchorSideRight.Control'#7#9'GroupBox2'#20'AnchorSideRight.Si'
  +'de'#7#9'asrBottom'#4'Left'#2'y'#6'Height'#2#23#3'Top'#2'#'#5'Width'#3#230#0
  +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#8#19
  +'BorderSpacing.Right'#2#12#8'TabOrder'#2#0#0#0#5'TEdit'#11'edtRegCode2'#22'A'
  +'nchorSideLeft.Control'#7#6'Label5'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
  +'AnchorSideTop.Control'#7#9'GroupBox2'#23'AnchorSideRight.Control'#7#9'Group'
  +'Box2'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'y'#6'Height'#2#23#3
  +'Top'#2#4#5'Width'#3#230#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18
  +'BorderSpacing.Left'#2#12#17'BorderSpacing.Top'#2#4#19'BorderSpacing.Right'#2
  +#12#8'TabOrder'#2#1#0#0#5'TEdit'#9'edtStatus'#22'AnchorSideLeft.Control'#7#11
  +'edtRegCode2'#21'AnchorSideTop.Control'#7#12'edtUserName2'#18'AnchorSideTop.'
  +'Side'#7#9'asrBottom'#4'Left'#2'y'#6'Height'#2#23#3'Top'#2'B'#5'Width'#3#129
  +#0#17'BorderSpacing.Top'#2#8#20'BorderSpacing.Bottom'#2#12#5'Color'#7#9'clBt'
  +'nFace'#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#0
 ]);
--- a/components/onguard/examples/exreg/exreg1.pas
+++ b/components/onguard/examples/exreg/exreg1.pas
@@ -49,7 +49,8 @@ uses
 const
  EncryptionKey : TKey = ($E5, $8F, $84, $D6, $92, $C9, $A4, $D8,
                          $1A, $FA, $6F, $8D, $AB, $FC, $DF, $B4);
-
+const
  DATE_FORMAT = 'yyyy-mm-dd';
 procedure TfrmExRegCode.btnGenerateClick(Sender: TObject);
 var
@@ -57,8 +58,13 @@ var
  Code : TCode;
  Modifier : Longint;
  D : TDateTime;
 var
  fs: TFormatSettings;
 begin
-  D := StrToDate(edDate.Text);
+  fs := FormatSettings;
  fs.ShortDateFormat := 'yyyy/mm/dd';
  fs.DateSeparator := '-';
  D := StrToDate(edDate.Text, fs);
  Key := EncryptionKey;
  Modifier := StringHashELF(edtUserName1.Text);
  ApplyModifierToKeyPrim(Modifier, Key, SizeOf(Key));
@@ -87,9 +93,13 @@ begin
 end;
 procedure TfrmExRegCode.FormCreate(Sender: TObject);
 var
  fs: TFormatSettings;
 begin
-  ShortDateFormat := 'yyyy-mm-dd';
+  fs := FormatSettings;
-  edDate.Text := DateToStr(Now);
+  fs.ShortDateFormat := 'yyyy/mm/dd';
  fs.DateSeparator := '-';
  edDate.Text := DateToStr(Now, fs);
 end;
 initialization
--- a/components/onguard/examples/exrgreg/exrgreg.lpi
+++ b/components/onguard/examples/exrgreg/exrgreg.lpi
@@ -1,63 +1,86 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="0"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="2">
      <Unit0>
        <Filename Value="exrgreg.lpr"/>
        <IsPartOfProject Value="True"/>
        <CursorPos X="48" Y="7"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exrgregu.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
-        <UnitName Value="exrgregu"/>
+        <IsVisibleTab Value="True"/>
        <CursorPos X="59" Y="108"/>
        <TopLine Value="80"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="10"/>
+        <TopLine Value="80"/>
        <CursorPos X="59" Y="108"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
    </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
+    <JumpHistory Count="2" HistoryIndex="1">
      <Position1>
        <Filename Value="exrgregu.pas"/>
        <Caret Line="108" Column="59" TopLine="80"/>
      </Position1>
      <Position2>
        <Filename Value="exrgregu.pas"/>
        <Caret Line="107" Column="59" TopLine="79"/>
      </Position2>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -70,7 +93,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -78,9 +101,6 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="2">
--- a/components/onguard/examples/exrgreg/exrgreg.lpr
+++ b/components/onguard/examples/exrgreg/exrgreg.lpr
@@ -7,6 +7,8 @@ uses
  exrgregu in 'exrgregu.pas' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exrgreg/exrgregu.lfm
+++ b/components/onguard/examples/exrgreg/exrgregu.lfm
@@ -5,94 +5,121 @@ object Form1: TForm1
  Width = 493
  HorzScrollBar.Page = 492
  VertScrollBar.Page = 307
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Registration Code Example'
-  Font.Height = -11
+  ClientHeight = 308
-  Font.Name = 'MS Sans Serif'
+  ClientWidth = 493
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
-    Left = 8
+    AnchorSideLeft.Control = Memo1
-    Height = 13
+    AnchorSideTop.Control = CloseBtn
-    Top = 262
+    AnchorSideTop.Side = asrCenter
-    Width = 35
+    Left = 12
    Height = 15
    Top = 246
    Width = 32
    BorderSpacing.Bottom = 12
    Caption = 'Status'
    Color = clNone
    ParentColor = False
  end
  object Label1: TLabel
-    Left = 232
+    AnchorSideLeft.Control = CodeBtn
-    Height = 13
+    AnchorSideLeft.Side = asrBottom
-    Top = 14
+    AnchorSideTop.Control = CodeBtn
-    Width = 77
+    AnchorSideTop.Side = asrCenter
    Left = 181
    Height = 15
    Top = 17
    Width = 72
    BorderSpacing.Left = 80
    Caption = 'Current code:'
    Color = clNone
    ParentColor = False
  end
  object CodeLbl: TLabel
-    Left = 320
+    AnchorSideLeft.Control = Label1
-    Height = 13
+    AnchorSideLeft.Side = asrBottom
-    Top = 14
+    AnchorSideTop.Control = CodeBtn
-    Width = 113
+    AnchorSideTop.Side = asrCenter
    Left = 277
    Height = 15
    Top = 17
    Width = 96
    BorderSpacing.Left = 24
    Caption = '0000000000000000'
    Color = clNone
    ParentColor = False
  end
  object CodeBtn: TButton
-    Left = 8
+    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 12
    Height = 25
-    Top = 8
+    Top = 12
    Width = 89
    BorderSpacing.Around = 12
    BorderSpacing.InnerBorder = 4
    Caption = 'Enter Code'
    OnClick = CodeBtnClick
    TabOrder = 0
  end
-  object Memo1: TMemo
+  object CloseBtn: TBitBtn
-    Left = 8
+    AnchorSideTop.Control = Memo1
-    Height = 209
+    AnchorSideTop.Side = asrBottom
-    Top = 40
+    AnchorSideRight.Control = Owner
-    Width = 465
+    AnchorSideRight.Side = asrBottom
-    Color = clBtnFace
+    Left = 406
-    Lines.Strings = (
+    Height = 25
-      'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
+    Top = 241
-      'the code is either the incorrect type or that none has been entered. '
+    Width = 75
-      ''
+    Anchors = [akTop, akRight]
-      'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
+    BorderSpacing.Right = 12
-      'say that the code is invalid.'
+    BorderSpacing.Bottom = 12
-      ''
+    Kind = bkClose
      'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
      'the proper "Usage" code). '
      ''
      'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
      'will cause the TOgRegistrationCode component to report that the code is invalid.'
    )
    ReadOnly = True
    TabOrder = 1
  end
  object CloseBtn: TBitBtn
    Left = 400
    Height = 25
    Top = 256
    Width = 75
    Kind = bkClose
    NumGlyphs = 0
    TabOrder = 2
  end
  object RemoveBtn: TButton
-    Left = 288
+    AnchorSideTop.Control = Memo1
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = CloseBtn
    Left = 305
    Height = 25
-    Top = 256
+    Top = 241
    Width = 97
    Anchors = [akTop, akRight]
    BorderSpacing.Top = 12
    BorderSpacing.Right = 4
    BorderSpacing.Bottom = 12
    BorderSpacing.InnerBorder = 4
    Caption = 'Remove Code'
    OnClick = RemoveBtnClick
-    TabOrder = 3
+    TabOrder = 2
  end
  object Memo1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 180
    Top = 49
    Width = 469
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgRegistrationCode component to report that the code is invalid.'
    Color = clBtnFace
    ParentColor = False
    WordWrap = True
  end
  object OgRegistrationCode1: TOgRegistrationCode
    OnChecked = CodeChecked
    OnGetKey = GetKey
    OnGetCode = GetCode
-    left = 16
+    Left = 128
-    top = 208
+    Top = 208
  end
 end
--- a/components/onguard/examples/exrgreg/exrgregu.lrs
+++ b/components/onguard/examples/exrgreg/exrgregu.lrs
@@ -1,34 +1,53 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#252#0#6'Height'#3'4'#1#3'Top'#3#138#0#5'W'
-  +'idth'#3#237#1#18'HorzScrollBar.Page'#3#236#1#18'VertScrollBar.Page'#3'3'#1
+  +'idth'#3#237#1#18'HorzScrollBar.Page'#3#236#1#18'VertScrollBar.Page'#3'3'#1#8
-  +#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25'Registration Code Example'#11
+  +'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#25'Registration Code'
-  +'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScre'
+  +' Example'#12'ClientHeight'#3'4'#1#11'ClientWidth'#3#237#1#8'Position'#7#14
-  +'enCenter'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Height'#2#13#3'Top'#3#6#1#5
+  +'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'Anc'
-  +'Width'#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0
+  +'horSideLeft.Control'#7#5'Memo1'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18
-  +#0#6'TLabel'#6'Label1'#4'Left'#3#232#0#6'Height'#2#13#3'Top'#2#14#5'Width'#2
+  +'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#12#6'Height'#2#15#3'Top'#3#246
-  +'M'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0
+  +#0#5'Width'#2' '#20'BorderSpacing.Bottom'#2#12#7'Caption'#6#6'Status'#5'Colo'
-  +#6'TLabel'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13#3'Top'#2#14#5'Width'#2'q'
+  +'r'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.'
-  +#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0
+  +'Control'#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideT'
-  +#7'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#25
+  +'op.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#181
-  +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12
+  +#0#6'Height'#2#15#3'Top'#2#17#5'Width'#2'H'#18'BorderSpacing.Left'#2'P'#7'Ca'
-  +'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#3
+  +'ption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLa'
-  +#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9'clBtnFace'#13'Lines.Strings'
+  +'bel'#7'CodeLbl'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLeft.Si'
-  +#1#6'fThe label at the bottom of this form indicates the status of the code.'
+  +'de'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.'
-  +' An invalid code indicates that '#6'Ethe code is either the incorrect type '
+  +'Side'#7#9'asrCenter'#4'Left'#3#21#1#6'Height'#2#15#3'Top'#2#17#5'Width'#2'`'
-  +'or that none has been entered. '#6#0#6'^If the proper code has not been ent'
+  +#18'BorderSpacing.Left'#2#24#7'Caption'#6#16'0000000000000000'#5'Color'#7#6
-  +'ered or the ONGUARD.INI file was deleted, the message will '#6#29'say that '
+  +'clNone'#11'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#22'AnchorSideLeft.Contr'
-  +'the code is invalid.'#6#0#6'YUse the "Enter Code" button to enter a code (t'
+  +'ol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2
-  +'he CODEGEN program can be used to generate '#6#26'the proper "Usage" code).'
+  +#25#3'Top'#2#12#5'Width'#2'Y'#20'BorderSpacing.Around'#2#12#25'BorderSpacing'
-  +' '#6#0#6'\The "Remove Code" button can be used to remove the entered code f'
+  +'.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12'CodeBtnClick'
-  +'rom the INI file. Doing so '#6'Pwill cause the TOgRegistrationCode componen'
+  +#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#5'Me'
-  +'t to report that the code is invalid.'#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7
+  +'mo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5
-  +'TBitBtn'#8'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2
+  +'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#3#150#1#6'Height'#2
-  +'K'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TButton'#9'R'
+  +#25#3'Top'#3#241#0#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'Bord'
-  +'emoveBtn'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'a'#25'Borde'
+  +'erSpacing.Right'#2#12#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8
-  +'rSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'Remo'
+  +'TabOrder'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#5'Mem'
-  +'veBtnClick'#8'TabOrder'#2#3#0#0#19'TOgRegistrationCode'#19'OgRegistrationCo'
+  +'o1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#8'C'
-  +'de1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7
+  +'loseBtn'#4'Left'#3'1'#1#6'Height'#2#25#3'Top'#3#241#0#5'Width'#2'a'#7'Ancho'
-  +'GetCode'#4'left'#2#16#3'top'#3#208#0#0#0#0
+  +'rs'#11#5'akTop'#7'akRight'#0#17'BorderSpacing.Top'#2#12#19'BorderSpacing.Ri'
  +'ght'#2#4#20'BorderSpacing.Bottom'#2#12#25'BorderSpacing.InnerBorder'#2#4#7
  +'Caption'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#2#0
  +#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop'
  +'.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideR'
  +'ight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2
  +#12#6'Height'#3#180#0#3'Top'#2'1'#5'Width'#3#213#1#7'Anchors'#11#5'akTop'#6
  +'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#7'Caption'#12'Q'#2#0#0'T'
  +'he label at the bottom of this form indicates the status of the code. An in'
  +'valid code indicates that the code is either the incorrect type or that non'
  +'e has been entered. '#13#10#13#10'If the proper code has not been entered o'
  +'r the ONGUARD.INI file was deleted, the message will say that the code is i'
  +'nvalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEG'
  +'EN program can be used to generate the proper "Usage" code). '#13#10#13#10
  +'The "Remove Code" button can be used to remove the entered code from the IN'
  +'I file. Doing so will cause the TOgRegistrationCode component to report tha'
  +'t the code is invalid.'#5'Color'#7#9'clBtnFace'#11'ParentColor'#8#8'WordWra'
  +'p'#9#0#0#19'TOgRegistrationCode'#19'OgRegistrationCode1'#9'OnChecked'#7#11
  +'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#4'Left'#3#128
  +#0#3'Top'#3#208#0#0#0#0
 ]);
--- a/components/onguard/examples/exrgreg/exrgregu.pas
+++ b/components/onguard/examples/exrgreg/exrgregu.pas
@@ -14,8 +14,8 @@ type
  TForm1 = class(TForm)
    CodeBtn: TButton;
    Memo1: TMemo;
    CloseBtn: TBitBtn;
    Memo1: TLabel;
    StatusLbl: TLabel;
    Label1: TLabel;
    CodeLbl: TLabel;
--- a/components/onguard/examples/exrgstr/exrgstr.lpi
+++ b/components/onguard/examples/exrgstr/exrgstr.lpi
@@ -1,26 +1,35 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
    <RequiredPackages Count="1">
      <Item1>
@@ -32,23 +41,26 @@
      <Unit0>
        <Filename Value="exrgstr.lpr"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="Exrgstr"/>
        <CursorPos X="48" Y="7"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exrgstru.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exrgstru"/>
-        <CursorPos X="23" Y="89"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="74"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="10"/>
+        <TopLine Value="65"/>
        <CursorPos Y="92"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
    </Units>
    <JumpHistory Count="8" HistoryIndex="7">
@@ -58,7 +70,6 @@
      </Position1>
      <Position2>
        <Filename Value="exrgstru.pas"/>
        <Caret Line="1" Column="1" TopLine="1"/>
      </Position2>
      <Position3>
        <Filename Value="exrgstru.pas"/>
@@ -87,10 +98,11 @@
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -103,7 +115,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -111,9 +123,6 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="2">
--- a/components/onguard/examples/exrgstr/exrgstr.lpr
+++ b/components/onguard/examples/exrgstr/exrgstr.lpr
@@ -7,6 +7,8 @@ uses
  Exrgstru in 'EXRGSTRU.PAS' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exrgstr/exrgstru.lfm
+++ b/components/onguard/examples/exrgstr/exrgstru.lfm
@@ -7,45 +7,58 @@ object Form1: TForm1
  ClientHeight = 192
  ClientWidth = 262
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Position = poScreenCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '2.3.0.0'
  object Label1: TLabel
-    Left = 69
+    AnchorSideLeft.Control = Owner
-    Height = 14
+    AnchorSideLeft.Side = asrCenter
-    Top = 98
+    AnchorSideTop.Control = Memo1
-    Width = 67
+    AnchorSideTop.Side = asrBottom
    Left = 95
    Height = 15
    Top = 103
    Width = 72
    Alignment = taCenter
    BorderSpacing.Top = 6
    Caption = 'Registered to:'
    ParentColor = False
  end
  object Memo1: TMemo
-    Left = 13
+    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 79
-    Top = 10
+    Top = 12
-    Width = 223
+    Width = 238
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 12
    Lines.Strings = (
-      'If you can edit this, then your program was '
+      'If you can edit this, then your program was allowed to run'
      'allowed to run'
    )
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object CloseBtn: TBitBtn
-    Left = 75
+    AnchorSideLeft.Control = Owner
    AnchorSideLeft.Side = asrCenter
    AnchorSideTop.Control = Label1
    AnchorSideTop.Side = asrBottom
    Left = 87
    Height = 33
-    Top = 116
+    Top = 130
    Width = 89
    BorderSpacing.Top = 12
    BorderSpacing.Bottom = 12
    Kind = bkClose
    NumGlyphs = 0
    TabOrder = 1
  end
  object OgRegistrationCode1: TOgRegistrationCode
    OnChecked = OgRegistrationCode1Checked
    OnGetKey = OgRegistrationCode1GetKey
    OnGetCode = OgRegistrationCode1GetCode
-    left = 165
+    Left = 104
-    top = 118
+    Top = 40
  end
 end
--- a/components/onguard/examples/exrgstr/exrgstru.lrs
+++ b/components/onguard/examples/exrgstr/exrgstru.lrs
@@ -1,18 +1,25 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'-'#1#6'Height'#3#192#0#3'Top'#3#218#0#5'W'
  +'idth'#3#6#1#7'Caption'#6#5'Form1'#12'ClientHeight'#3#192#0#11'ClientWidth'#3
-  +#6#1#10'Font.Color'#7#7'clBlack'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS '
+  +#6#1#10'Font.Color'#7#7'clBlack'#8'Position'#7#14'poScreenCenter'#10'LCLVers'
-  +'Sans Serif'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.27'#0#6
+  +'ion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#5'Owne'
-  +'TLabel'#6'Label1'#4'Left'#2'E'#6'Height'#2#14#3'Top'#2'b'#5'Width'#2'C'#9'A'
+  +'r'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Mem'
-  +'lignment'#7#8'taCenter'#7'Caption'#6#14'Registered to:'#11'ParentColor'#8#0
+  +'o1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'_'#6'Height'#2#15#3'Top'
-  +#0#5'TMemo'#5'Memo1'#4'Left'#2#13#6'Height'#2'O'#3'Top'#2#10#5'Width'#3#223#0
+  +#2'g'#5'Width'#2'H'#9'Alignment'#7#8'taCenter'#17'BorderSpacing.Top'#2#6#7'C'
-  +#13'Lines.Strings'#1#6',If you can edit this, then your program was '#6#14'a'
+  +'aption'#6#14'Registered to:'#11'ParentColor'#8#0#0#5'TMemo'#5'Memo1'#22'Anc'
-  +'llowed to run'#0#10'ScrollBars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBit'
+  +'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'Anc'
-  +'Btn'#8'CloseBtn'#4'Left'#2'K'#6'Height'#2'!'#3'Top'#2't'#5'Width'#2'Y'#4'Ki'
+  +'horSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4
-  +'nd'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#1#0#0#19'TOgRegistrationCod'
+  +'Left'#2#12#6'Height'#2'O'#3'Top'#2#12#5'Width'#3#238#0#7'Anchors'#11#5'akTo'
-  +'e'#19'OgRegistrationCode1'#9'OnChecked'#7#26'OgRegistrationCode1Checked'#8
+  +'p'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#12#13'Lines.Strings'#1
-  +'OnGetKey'#7#25'OgRegistrationCode1GetKey'#9'OnGetCode'#7#26'OgRegistrationC'
+  +#6':If you can edit this, then your program was allowed to run'#0#10'ScrollB'
-  +'ode1GetCode'#4'left'#3#165#0#3'top'#2'v'#0#0#0
+  +'ars'#7#10'ssVertical'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'CloseBtn'#22'AnchorS'
  +'ideLeft.Control'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'Ancho'
  +'rSideTop.Control'#7#6'Label1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'
  +#2'W'#6'Height'#2'!'#3'Top'#3#130#0#5'Width'#2'Y'#17'BorderSpacing.Top'#2#12
  +#20'BorderSpacing.Bottom'#2#12#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#19'T'
  +'OgRegistrationCode'#19'OgRegistrationCode1'#9'OnChecked'#7#26'OgRegistratio'
  +'nCode1Checked'#8'OnGetKey'#7#25'OgRegistrationCode1GetKey'#9'OnGetCode'#7#26
  +'OgRegistrationCode1GetCode'#4'Left'#2'h'#3'Top'#2'('#0#0#0
 ]);
--- a/components/onguard/examples/exselapi/exselap1.lfm
+++ b/components/onguard/examples/exselapi/exselap1.lfm
@@ -3,49 +3,47 @@ object Form1: TForm1
  Height = 266
  Top = 322
  Width = 357
-  ActiveControl = Memo1
+  AutoSize = True
  Caption = 'ExSelAPI: '
-  ClientHeight = 246
+  ClientHeight = 266
  ClientWidth = 357
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Menu = MainMenu1
  OnCreate = FormCreate
-  LCLVersion = '0.9.27'
+  LCLVersion = '2.3.0.0'
  object Memo1: TMemo
    Left = 16
    Height = 145
    Top = 8
    Width = 313
    Color = clAqua
    Lines.Strings = (
      '   This example uses the OgUsageCode and the OgSpecialCode'
      '   (via OnGuard API functions) to implement a limited use'
      '   "demo" application which allows only the required features.'
      '   The program can be run 3 times and then a special code'
      '   must be obtained to register the program and to enable'
      '   various features.  A machine modifier is used to prevent'
      '   the application from being copied and run on another'
      '   machine.  To obtain the release code you need to run the'
      '   companion example EXSLCODE.  The release codes will be '
      '   stored in a data file called EXSELECT.DAT'
    )
    ReadOnly = True
    TabOrder = 0
  end
  object ModifyBtn: TButton
-    Left = 120
+    AnchorSideLeft.Control = Owner
    AnchorSideLeft.Side = asrCenter
    AnchorSideTop.Control = Memo1
    AnchorSideTop.Side = asrBottom
    Left = 122
    Height = 25
-    Top = 176
+    Top = 182
    Width = 113
    BorderSpacing.Bottom = 16
    BorderSpacing.InnerBorder = 4
    Caption = 'Modify Features'
    OnClick = ModifyBtnClick
-    TabOrder = 1
+    TabOrder = 0
  end
  object Memo1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 150
    Top = 16
    Width = 325
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 16
    Caption = 'This example uses the OgUsageCode and the OgSpecialCode (via OnGuard API functions) to implement a limited use "demo" application which allows only the required features. The program can be run 3 times and then a special code st be obtained to register the program and to enable various features.  A machine modifier is used to prevent the application from being copied and run on another machine.  To obtain the release code you need to run the companion example EXSLCODE.  The release codes will be stored in a data file called EXSELECT.DAT'
    Color = clAqua
    ParentColor = False
    WordWrap = True
  end
  object MainMenu1: TMainMenu
-    left = 32
+    Left = 32
-    top = 168
+    Top = 168
    object FeaturesMenu: TMenuItem
      Caption = 'Features'
      object FeaturesRequired: TMenuItem
--- a/components/onguard/examples/exselapi/exselap1.lrs
+++ b/components/onguard/examples/exselapi/exselap1.lrs
@@ -1,29 +1,33 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#150#1#6'Height'#3#10#1#3'Top'#3'B'#1#5'Wi'
-  +'dth'#3'e'#1#13'ActiveControl'#7#5'Memo1'#7'Caption'#6#10'ExSelAPI: '#12'Cli'
+  +'dth'#3'e'#1#8'AutoSize'#9#7'Caption'#6#10'ExSelAPI: '#12'ClientHeight'#3#10
-  +'entHeight'#3#246#0#11'ClientWidth'#3'e'#1#11'Font.Height'#2#245#9'Font.Name'
+  +#1#11'ClientWidth'#3'e'#1#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'
-  +#6#13'MS Sans Serif'#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'#10
+  +#10'LCLVersion'#6#7'2.3.0.0'#0#7'TButton'#9'ModifyBtn'#22'AnchorSideLeft.Con'
-  +'LCLVersion'#6#6'0.9.27'#0#5'TMemo'#5'Memo1'#4'Left'#2#16#6'Height'#3#145#0#3
+  +'trol'#7#5'Owner'#19'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Co'
-  +'Top'#2#8#5'Width'#3'9'#1#5'Color'#7#6'clAqua'#13'Lines.Strings'#1#6':   Thi'
+  +'ntrol'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2'z'#6'Heig'
-  +'s example uses the OgUsageCode and the OgSpecialCode'#6'9   (via OnGuard AP'
+  +'ht'#2#25#3'Top'#3#182#0#5'Width'#2'q'#20'BorderSpacing.Bottom'#2#16#25'Bord'
-  +'I functions) to implement a limited use'#6'>   "demo" application which all'
+  +'erSpacing.InnerBorder'#2#4#7'Caption'#6#15'Modify Features'#7'OnClick'#7#14
-  +'ows only the required features.'#6'9   The program can be run 3 times and t'
+  +'ModifyBtnClick'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Co'
-  +'hen a special code'#6'9   must be obtained to register the program and to e'
+  +'ntrol'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.C'
-  +'nable'#6';   various features.  A machine modifier is used to prevent'#6'7 '
+  +'ontrol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#16#6'H'
-  +'  the application from being copied and run on another'#6';   machine.  To '
+  +'eight'#3#150#0#3'Top'#2#16#5'Width'#3'E'#1#7'Anchors'#11#5'akTop'#6'akLeft'
-  +'obtain the release code you need to run the'#6':   companion example EXSLCO'
+  +#7'akRight'#0#20'BorderSpacing.Around'#2#16#7'Caption'#12#30#2#0#0'This exam'
-  +'DE.  The release codes will be '#6',   stored in a data file called EXSELEC'
+  +'ple uses the OgUsageCode and the OgSpecialCode (via OnGuard API functions) '
-  +'T.DAT'#0#8'ReadOnly'#9#8'TabOrder'#2#0#0#0#7'TButton'#9'ModifyBtn'#4'Left'#2
+  +'to implement a limited use "demo" application which allows only the require'
-  +'x'#6'Height'#2#25#3'Top'#3#176#0#5'Width'#2'q'#25'BorderSpacing.InnerBorder'
+  +'d features. The program can be run 3 times and then a special code st be ob'
-  +#2#4#7'Caption'#6#15'Modify Features'#7'OnClick'#7#14'ModifyBtnClick'#8'TabO'
+  +'tained to register the program and to enable various features.  A machine m'
-  +'rder'#2#1#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2' '#3'top'#3#168#0#0#9'TMe'
+  +'odifier is used to prevent the application from being copied and run on ano'
-  +'nuItem'#12'FeaturesMenu'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'Feature'
+  +'ther machine.  To obtain the release code you need to run the companion exa'
-  +'sRequired'#7'Caption'#6#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'Featur'
+  +'mple EXSLCODE.  The release codes will be stored in a data file called EXSE'
-  +'esHelp'#7'Caption'#6#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamp'
+  +'LECT.DAT'#5'Color'#7#6'clAqua'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'TMainM'
-  +'les'#7'Caption'#6#8'Examples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesData'
+  +'enu'#9'MainMenu1'#4'Left'#2' '#3'Top'#3#168#0#0#9'TMenuItem'#12'FeaturesMen'
-  +'base'#7'Caption'#6#8'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'
+  +'u'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesRequired'#7'Caption'#6
-  +#7'Caption'#6#3'Fax'#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Cap'
+  +#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'FeaturesHelp'#7'Caption'#6#4'H'
-  +'tion'#6#7'Goodies'#7'Enabled'#8#0#0#0#0#0
+  +'elp'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamples'#7'Caption'#6#8'Exam'
  +'ples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDatabase'#7'Caption'#6#8'Dat'
  +'abase'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7'Caption'#6#3'Fax'#7
  +'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Caption'#6#7'Goodies'#7'E'
  +'nabled'#8#0#0#0#0#0
 ]);
--- a/components/onguard/examples/exselapi/exselap1.pas
+++ b/components/onguard/examples/exselapi/exselap1.pas
@@ -29,8 +29,8 @@ type
  { TForm1 }
  TForm1 = class(TForm)
    Memo1: TLabel;
    ModifyBtn: TButton;
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    FeaturesMenu: TMenuItem;
    FeaturesRequired: TMenuItem;
--- a/components/onguard/examples/exselapi/exselapi.lpi
+++ b/components/onguard/examples/exselapi/exselapi.lpi
@@ -1,42 +1,55 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="9">
      <Unit0>
        <Filename Value="exselapi.lpr"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="Exselapi"/>
        <EditorIndex Value="1"/>
        <CursorPos X="37" Y="9"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="23"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exselap1.pas"/>
@@ -45,59 +58,57 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exselap1"/>
-        <CursorPos X="3" Y="71"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="50"/>
-        <EditorIndex Value="1"/>
+        <CursorPos X="57" Y="68"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="../../source/ogutil.pas"/>
        <UnitName Value="ogutil"/>
        <CursorPos X="1" Y="112"/>
        <TopLine Value="108"/>
        <CursorPos Y="112"/>
        <UsageCount Value="10"/>
      </Unit2>
      <Unit3>
        <Filename Value="../../source/onguard.pas"/>
        <UnitName Value="onguard"/>
        <CursorPos X="25" Y="1192"/>
        <TopLine Value="1179"/>
        <CursorPos X="25" Y="1192"/>
        <UsageCount Value="11"/>
      </Unit3>
      <Unit4>
        <Filename Value="../../source/ogproexe.pas"/>
        <UnitName Value="ogproexe"/>
        <CursorPos X="63" Y="711"/>
        <TopLine Value="693"/>
        <CursorPos X="63" Y="711"/>
        <UsageCount Value="10"/>
      </Unit4>
      <Unit5>
        <Filename Value="../../../../fpcfix/fpc/rtl/unix/sysunixh.inc"/>
        <CursorPos X="2" Y="30"/>
        <TopLine Value="13"/>
        <CursorPos X="2" Y="30"/>
        <UsageCount Value="10"/>
      </Unit5>
      <Unit6>
        <Filename Value="../../../../fpcfix/fpc/rtl/inc/systemh.inc"/>
        <CursorPos X="32" Y="71"/>
        <TopLine Value="47"/>
        <CursorPos X="32" Y="71"/>
        <UsageCount Value="10"/>
      </Unit6>
      <Unit7>
        <Filename Value="../../../../fpcfix/fpc/rtl/objpas/sysutils/filutilh.inc"/>
        <CursorPos X="3" Y="69"/>
        <TopLine Value="52"/>
        <CursorPos X="3" Y="69"/>
        <UsageCount Value="10"/>
      </Unit7>
      <Unit8>
        <Filename Value="../../../../../../temp/fpc/rtl/inc/systemh.inc"/>
        <CursorPos X="11" Y="882"/>
        <TopLine Value="861"/>
        <CursorPos X="11" Y="882"/>
        <UsageCount Value="10"/>
      </Unit8>
    </Units>
-    <JumpHistory Count="6" HistoryIndex="5">
+    <JumpHistory Count="7" HistoryIndex="6">
      <Position1>
        <Filename Value="exselap1.pas"/>
        <Caret Line="155" Column="45" TopLine="43"/>
@@ -112,23 +123,27 @@
      </Position3>
      <Position4>
        <Filename Value="exselap1.pas"/>
-        <Caret Line="120" Column="67" TopLine="211"/>
+        <Caret Line="93" Column="12" TopLine="61"/>
      </Position4>
      <Position5>
        <Filename Value="exselap1.pas"/>
        <Caret Line="93" Column="12" TopLine="61"/>
      </Position5>
      <Position6>
        <Filename Value="exselap1.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Caret Line="71" Column="3" TopLine="50"/>
      </Position6>
      <Position7>
        <Filename Value="exselap1.pas"/>
        <Caret Line="70" Column="3" TopLine="49"/>
      </Position7>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -141,7 +156,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -149,17 +164,20 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <BreakPoints Count="2">
      <Item1>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="exselap1.pas"/>
        <Line Value="114"/>
      </Item1>
      <Item2>
        <Kind Value="bpkSource"/>
        <WatchScope Value="wpsGlobal"/>
        <WatchKind Value="wpkWrite"/>
        <Source Value="../../source/onguard.pas"/>
        <Line Value="1010"/>
      </Item2>
--- a/components/onguard/examples/exselapi/exselapi.lpr
+++ b/components/onguard/examples/exselapi/exselapi.lpr
@@ -9,6 +9,8 @@ uses
  Exselap1 in 'EXSELAP1.PAS' {Form1};
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exselect/exselec1.lfm
+++ b/components/onguard/examples/exselect/exselec1.lfm
@@ -5,47 +5,48 @@ object Form1: TForm1
  Width = 369
  HorzScrollBar.Page = 368
  VertScrollBar.Page = 249
-  ActiveControl = Memo1
+  AutoSize = True
  Caption = 'ExSelect: '
-  Font.Height = -11
+  ClientHeight = 274
-  Font.Name = 'MS Sans Serif'
+  ClientWidth = 369
  Menu = MainMenu1
  OnCreate = FormCreate
-  object Memo1: TMemo
+  LCLVersion = '2.3.0.0'
    Left = 16
    Height = 145
    Top = 8
    Width = 329
    Color = clAqua
    Lines.Strings = (
      '   This example uses the TOgUsageCode and the TOgSpecialCode'
      '   components to implement a limited use "demo" application'
      '   which allows only the required features.  The program can be '
      '   run 3 times and then a special code  must be obtained to '
      '   register the program and to enable various features.  A'
      '   machine modifier is used to prevent the application from being '
      '   copied and run on another machine.  To obtain the release '
      '   release code you need to run the companion example '
      '   EXSLCODE.  The release codes will be stored in a data file '
      '   called EXSELECT.DAT'
    )
    ReadOnly = True
    TabOrder = 0
  end
  object ModifyBtn: TButton
-    Left = 120
+    AnchorSideLeft.Control = Owner
    AnchorSideLeft.Side = asrCenter
    AnchorSideTop.Control = Memo1
    AnchorSideTop.Side = asrBottom
    Left = 128
    Height = 25
-    Top = 176
+    Top = 182
    Width = 113
    BorderSpacing.Bottom = 16
    BorderSpacing.InnerBorder = 4
    Caption = 'Modify Features'
    Enabled = False
    OnClick = ModifyBtnClick
-    TabOrder = 1
+    TabOrder = 0
  end
  object Memo1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 16
    Height = 150
    Top = 16
    Width = 337
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 16
    Caption = '   This example uses the TOgUsageCode and the TOgSpecialCode  components to implement a limited use "demo" application which allows only the required features.  The program can be run 3 times and then a special code  must be obtained to register the program and to enable various features.  A machine modifier is used to prevent the application from being copied and run on another machine.  To obtain the release release code you need to run the companion example EXSLCODE.  The release codes will be stored in a data file called EXSELECT.DAT'
    Color = clAqua
    ParentColor = False
    WordWrap = True
  end
  object MainMenu1: TMainMenu
-    left = 32
+    Left = 32
-    top = 168
+    Top = 168
    object FeaturesMenu: TMenuItem
      Caption = 'Features'
      object FeaturesRequired: TMenuItem
@@ -81,8 +82,8 @@ object Form1: TForm1
    OnGetCode = OgUsageCode1GetCode
    AutoDecrease = False
    OnChangeCode = OgUsageCode1ChangeCode
-    left = 168
+    Left = 168
-    top = 48
+    Top = 48
  end
  object OgSpecialCode1: TOgSpecialCode
    AutoCheck = False
@@ -90,7 +91,7 @@ object Form1: TForm1
    OnGetKey = OgSpecialCode1GetKey
    OnGetCode = OgSpecialCode1GetCode
    OnGetModifier = OgSpecialCode1GetModifier
-    left = 168
+    Left = 168
-    top = 16
+    Top = 16
  end
 end
--- a/components/onguard/examples/exselect/exselec1.lrs
+++ b/components/onguard/examples/exselect/exselec1.lrs
@@ -1,36 +1,41 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#31#1#6'Height'#3#18#1#3'Top'#2'f'#5'Width'
-  +#3'q'#1#18'HorzScrollBar.Page'#3'p'#1#18'VertScrollBar.Page'#3#249#0#13'Acti'
+  +#3'q'#1#18'HorzScrollBar.Page'#3'p'#1#18'VertScrollBar.Page'#3#249#0#8'AutoS'
-  +'veControl'#7#5'Memo1'#7'Caption'#6#10'ExSelect: '#11'Font.Height'#2#245#9'F'
+  +'ize'#9#7'Caption'#6#10'ExSelect: '#12'ClientHeight'#3#18#1#11'ClientWidth'#3
-  +'ont.Name'#6#13'MS Sans Serif'#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormC'
+  +'q'#1#4'Menu'#7#9'MainMenu1'#8'OnCreate'#7#10'FormCreate'#10'LCLVersion'#6#7
-  +'reate'#0#5'TMemo'#5'Memo1'#4'Left'#2#16#6'Height'#3#145#0#3'Top'#2#8#5'Widt'
+  +'2.3.0.0'#0#7'TButton'#9'ModifyBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#19
-  +'h'#3'I'#1#5'Color'#7#6'clAqua'#13'Lines.Strings'#1#6'<   This example uses '
+  +'AnchorSideLeft.Side'#7#9'asrCenter'#21'AnchorSideTop.Control'#7#5'Memo1'#18
-  +'the TOgUsageCode and the TOgSpecialCode'#6';   components to implement a li'
+  +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#3#128#0#6'Height'#2#25#3'Top'#3
-  +'mited use "demo" application'#6'@   which allows only the required features'
+  +#182#0#5'Width'#2'q'#20'BorderSpacing.Bottom'#2#16#25'BorderSpacing.InnerBor'
-  +'.  The program can be '#6'<   run 3 times and then a special code  must be '
+  +'der'#2#4#7'Caption'#6#15'Modify Features'#7'Enabled'#8#7'OnClick'#7#14'Modi'
-  +'obtained to '#6':   register the program and to enable various features.  A'
+  +'fyBtnClick'#8'TabOrder'#2#0#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Contro'
-  +#6'B   machine modifier is used to prevent the application from being '#6'= '
+  +'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRight.Contr'
-  +'  copied and run on another machine.  To obtain the release '#6'6   release'
+  +'ol'#7#5'Owner'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#16#6'Heigh'
-  +' code you need to run the companion example '#6'>   EXSLCODE.  The release '
+  +'t'#3#150#0#3'Top'#2#16#5'Width'#3'Q'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'a'
-  +'codes will be stored in a data file '#6#22'   called EXSELECT.DAT'#0#8'Read'
+  +'kRight'#0#20'BorderSpacing.Around'#2#16#7'Caption'#12#31#2#0#0'   This exam'
-  +'Only'#9#8'TabOrder'#2#0#0#0#7'TButton'#9'ModifyBtn'#4'Left'#2'x'#6'Height'#2
+  +'ple uses the TOgUsageCode and the TOgSpecialCode  components to implement a'
-  +#25#3'Top'#3#176#0#5'Width'#2'q'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
+  +' limited use "demo" application which allows only the required features.  T'
-  +#6#15'Modify Features'#7'Enabled'#8#7'OnClick'#7#14'ModifyBtnClick'#8'TabOrd'
+  +'he program can be run 3 times and then a special code  must be obtained to '
-  +'er'#2#1#0#0#9'TMainMenu'#9'MainMenu1'#4'left'#2' '#3'top'#3#168#0#0#9'TMenu'
+  +'register the program and to enable various features.  A machine modifier is'
-  +'Item'#12'FeaturesMenu'#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesR'
+  +' used to prevent the application from being copied and run on another machi'
-  +'equired'#7'Caption'#6#8'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'Features'
+  +'ne.  To obtain the release release code you need to run the companion examp'
-  +'Help'#7'Caption'#6#4'Help'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExample'
+  +'le EXSLCODE.  The release codes will be stored in a data file called EXSELE'
-  +'s'#7'Caption'#6#8'Examples'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDataba'
+  +'CT.DAT'#5'Color'#7#6'clAqua'#11'ParentColor'#8#8'WordWrap'#9#0#0#9'TMainMen'
-  +'se'#7'Caption'#6#8'Database'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7
+  +'u'#9'MainMenu1'#4'Left'#2' '#3'Top'#3#168#0#0#9'TMenuItem'#12'FeaturesMenu'
-  +'Caption'#6#3'Fax'#7'Enabled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Capti'
+  +#7'Caption'#6#8'Features'#0#9'TMenuItem'#16'FeaturesRequired'#7'Caption'#6#8
-  +'on'#6#7'Goodies'#7'Enabled'#8#0#0#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'A'
+  +'Required'#7'Checked'#9#0#0#9'TMenuItem'#12'FeaturesHelp'#7'Caption'#6#4'Hel'
-  +'utoCheck'#8#9'OnChecked'#7#19'OgUsageCode1Checked'#8'OnGetKey'#7#18'OgUsage'
+  +'p'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesExamples'#7'Caption'#6#8'Exampl'
-  +'Code1GetKey'#9'OnGetCode'#7#19'OgUsageCode1GetCode'#12'AutoDecrease'#8#12'O'
+  +'es'#7'Enabled'#8#0#0#9'TMenuItem'#16'FeaturesDatabase'#7'Caption'#6#8'Datab'
-  +'nChangeCode'#7#22'OgUsageCode1ChangeCode'#4'left'#3#168#0#3'top'#2'0'#0#0#14
+  +'ase'#7'Enabled'#8#0#0#9'TMenuItem'#11'FeaturesFax'#7'Caption'#6#3'Fax'#7'En'
-  +'TOgSpecialCode'#14'OgSpecialCode1'#9'AutoCheck'#8#9'OnChecked'#7#21'OgSpeci'
+  +'abled'#8#0#0#9'TMenuItem'#15'FeaturesGoodies'#7'Caption'#6#7'Goodies'#7'Ena'
-  +'alCode1Checked'#8'OnGetKey'#7#20'OgSpecialCode1GetKey'#9'OnGetCode'#7#21'Og'
+  +'bled'#8#0#0#0#0#12'TOgUsageCode'#12'OgUsageCode1'#9'AutoCheck'#8#9'OnChecke'
-  +'SpecialCode1GetCode'#13'OnGetModifier'#7#25'OgSpecialCode1GetModifier'#4'le'
+  +'d'#7#19'OgUsageCode1Checked'#8'OnGetKey'#7#18'OgUsageCode1GetKey'#9'OnGetCo'
-  +'ft'#3#168#0#3'top'#2#16#0#0#0
+  +'de'#7#19'OgUsageCode1GetCode'#12'AutoDecrease'#8#12'OnChangeCode'#7#22'OgUs'
  +'ageCode1ChangeCode'#4'Left'#3#168#0#3'Top'#2'0'#0#0#14'TOgSpecialCode'#14'O'
  +'gSpecialCode1'#9'AutoCheck'#8#9'OnChecked'#7#21'OgSpecialCode1Checked'#8'On'
  +'GetKey'#7#20'OgSpecialCode1GetKey'#9'OnGetCode'#7#21'OgSpecialCode1GetCode'
  +#13'OnGetModifier'#7#25'OgSpecialCode1GetModifier'#4'Left'#3#168#0#3'Top'#2
  +#16#0#0#0
 ]);
--- a/components/onguard/examples/exselect/exselec1.pas
+++ b/components/onguard/examples/exselect/exselec1.pas
@@ -29,8 +29,8 @@ type
  { TForm1 }
  TForm1 = class(TForm)
    Memo1: TLabel;
    ModifyBtn: TButton;
    Memo1: TMemo;
    MainMenu1: TMainMenu;
    FeaturesMenu: TMenuItem;
    FeaturesRequired: TMenuItem;
--- a/components/onguard/examples/exselect/exselect.lpi
+++ b/components/onguard/examples/exselect/exselect.lpi
@@ -1,69 +1,92 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="3">
      <Unit0>
        <Filename Value="exselect.lpr"/>
        <IsPartOfProject Value="True"/>
        <EditorIndex Value="1"/>
        <CursorPos X="48" Y="8"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exselec1.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exselec1"/>
-        <CursorPos X="36" Y="313"/>
+        <IsVisibleTab Value="True"/>
-        <TopLine Value="289"/>
+        <TopLine Value="290"/>
-        <EditorIndex Value="1"/>
+        <CursorPos X="22" Y="300"/>
-        <UsageCount Value="10"/>
+        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="exselec1.lrs"/>
        <CursorPos X="24" Y="5"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
      </Unit2>
    </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
+    <JumpHistory Count="2" HistoryIndex="1">
      <Position1>
        <Filename Value="exselec1.pas"/>
        <Caret Line="300" Column="22" TopLine="290"/>
      </Position1>
      <Position2>
        <Filename Value="exselec1.pas"/>
        <Caret Line="299" Column="22" TopLine="289"/>
      </Position2>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -76,7 +99,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -84,9 +107,6 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="2">
--- a/components/onguard/examples/exselect/exselect.lpr
+++ b/components/onguard/examples/exselect/exselect.lpr
@@ -8,6 +8,8 @@ uses
  Exselec1 in 'EXSELEC1.PAS' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exslcode/exslcod1.lfm
+++ b/components/onguard/examples/exslcode/exslcod1.lfm
@@ -1,111 +1,166 @@
 object Form1: TForm1
  ActiveControl = MachineID
  Caption = ' Special Code Generator '
  ClientHeight = 243
  ClientWidth = 288
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  PixelsPerInch = 96
  HorzScrollBar.Page = 287
  VertScrollBar.Page = 242
  Left = 237
  Height = 243
  Top = 152
  Width = 288
  HorzScrollBar.Page = 287
  VertScrollBar.Page = 242
  ActiveControl = MachineID
  AutoSize = True
  BorderStyle = bsDialog
  Caption = ' Special Code Generator '
  ClientHeight = 243
  ClientWidth = 288
  LCLVersion = '2.3.0.0'
  object Label1: TLabel
    AnchorSideLeft.Control = GroupBox1
    AnchorSideTop.Control = MachineID
    AnchorSideTop.Side = asrCenter
    Left = 16
    Height = 15
    Top = 20
    Width = 60
    Caption = 'Machine ID'
    Color = clNone
    ParentColor = False
    Left = 35
    Height = 14
    Top = 20
    Width = 54
  end
  object GenBtn: TButton
    AnchorSideLeft.Control = GroupBox1
    AnchorSideTop.Control = GroupBox1
    AnchorSideTop.Side = asrBottom
    Left = 16
    Height = 25
    Top = 161
    Width = 96
    BorderSpacing.Top = 16
    BorderSpacing.Bottom = 16
    BorderSpacing.InnerBorder = 4
    Caption = 'Generate Code'
    OnClick = GenBtnClick
    TabOrder = 1
    Left = 18
    Height = 25
    Top = 176
    Width = 89
  end
  object MachineID: TEdit
    AnchorSideLeft.Control = Label1
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = Owner
    AnchorSideRight.Control = GroupBox1
    AnchorSideRight.Side = asrBottom
    Left = 100
    Height = 23
    Top = 16
    Width = 150
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 24
    BorderSpacing.Top = 16
    MaxLength = 8
    TabOrder = 0
    Left = 123
    Height = 21
    Top = 16
    Width = 89
  end
  object GroupBox1: TGroupBox
-    Caption = 'Features'
+    AnchorSideLeft.Control = Owner
-    ClientHeight = 79
+    Left = 16
-    ClientWidth = 221
+    Height = 89
    TabOrder = 2
    Left = 24
    Height = 97
    Top = 56
-    Width = 225
+    Width = 234
    AutoSize = True
    BorderSpacing.Left = 16
    BorderSpacing.Right = 16
    Caption = 'Features'
    ClientHeight = 69
    ClientWidth = 230
    TabOrder = 2
    object ReqFeat: TCheckBox
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = GroupBox1
      Left = 32
      Height = 19
      Top = 0
      Width = 65
      BorderSpacing.Left = 32
      Caption = 'Required'
      Checked = True
      Enabled = False
      State = cbChecked
      TabOrder = 0
      Left = 16
      Height = 17
      Top = 24
      Width = 81
    end
    object HelpFeat: TCheckBox
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = ReqFeat
      AnchorSideTop.Side = asrBottom
      Left = 32
      Height = 19
      Top = 19
      Width = 43
      BorderSpacing.Left = 32
      Caption = 'Help'
      TabOrder = 1
      Left = 16
      Height = 17
      Top = 40
      Width = 81
    end
    object ExamplesFeat: TCheckBox
      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = HelpFeat
      AnchorSideTop.Side = asrBottom
      Left = 32
      Height = 19
      Top = 38
      Width = 68
      BorderSpacing.Left = 32
      BorderSpacing.Bottom = 12
      Caption = 'Examples'
      TabOrder = 2
      Left = 16
      Height = 17
      Top = 56
      Width = 81
    end
    object DBFeat: TCheckBox
      AnchorSideLeft.Control = ExamplesFeat
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = ReqFeat
      Left = 132
      Height = 19
      Top = 0
      Width = 66
      BorderSpacing.Left = 32
      BorderSpacing.Right = 32
      Caption = 'Database'
      TabOrder = 3
      Left = 120
      Height = 17
      Top = 24
      Width = 81
    end
    object FaxFeat: TCheckBox
      AnchorSideLeft.Control = ExamplesFeat
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = HelpFeat
      Left = 132
      Height = 19
      Top = 19
      Width = 36
      BorderSpacing.Left = 32
      Caption = 'Fax'
      TabOrder = 4
      Left = 120
      Height = 17
      Top = 40
      Width = 81
    end
    object GoodiesFeat: TCheckBox
      AnchorSideLeft.Control = ExamplesFeat
      AnchorSideLeft.Side = asrBottom
      AnchorSideTop.Control = ExamplesFeat
      Left = 132
      Height = 19
      Top = 38
      Width = 61
      BorderSpacing.Left = 32
      BorderSpacing.Right = 32
      Caption = 'Goodies'
      TabOrder = 5
      Left = 120
      Height = 17
      Top = 56
      Width = 81
    end
  end
  object CodeDisplay: TEdit
    AnchorSideLeft.Control = GenBtn
    AnchorSideLeft.Side = asrBottom
    AnchorSideTop.Control = GenBtn
    AnchorSideTop.Side = asrCenter
    AnchorSideRight.Control = GroupBox1
    AnchorSideRight.Side = asrBottom
    Left = 124
    Height = 23
    Top = 162
    Width = 126
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 12
    BorderSpacing.Bottom = 16
    Color = clAqua
    TabOrder = 3
    Left = 123
    Height = 21
    Top = 178
    Width = 126
  end
 end
--- a/components/onguard/examples/exslcode/exslcod1.lrs
+++ b/components/onguard/examples/exslcode/exslcod1.lrs
@@ -1,27 +1,56 @@
 { This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
-  'TPF0'#6'TForm1'#5'Form1'#13'ActiveControl'#7#9'MachineID'#7'Caption'#6#24' S'
+  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#237#0#6'Height'#3#243#0#3'Top'#3#152#0#5
-  +'pecial Code Generator '#12'ClientHeight'#3#243#0#11'ClientWidth'#3' '#1#11
+  +'Width'#3' '#1#18'HorzScrollBar.Page'#3#31#1#18'VertScrollBar.Page'#3#242#0
-  +'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#13'PixelsPerInch'#2'`'
+  +#13'ActiveControl'#7#9'MachineID'#8'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'
-  +#18'HorzScrollBar.Page'#3#31#1#18'VertScrollBar.Page'#3#242#0#4'Left'#3#237#0
+  +#7'Caption'#6#24' Special Code Generator '#12'ClientHeight'#3#243#0#11'Clien'
-  +#6'Height'#3#243#0#3'Top'#3#152#0#5'Width'#3' '#1#0#6'TLabel'#6'Label1'#7'Ca'
+  +'tWidth'#3' '#1#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#6'Label1'#22'AnchorS'
-  +'ption'#6#10'Machine ID'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2'#'
+  +'ideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#9'MachineID'#18
-  +#6'Height'#2#14#3'Top'#2#20#5'Width'#2'6'#0#0#7'TButton'#6'GenBtn'#25'Border'
+  +'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#16#6'Height'#2#15#3'Top'#2#20#5
-  +'Spacing.InnerBorder'#2#4#7'Caption'#6#13'Generate Code'#7'OnClick'#7#11'Gen'
+  +'Width'#2'<'#7'Caption'#6#10'Machine ID'#5'Color'#7#6'clNone'#11'ParentColor'
-  +'BtnClick'#8'TabOrder'#2#1#4'Left'#2#18#6'Height'#2#25#3'Top'#3#176#0#5'Widt'
+  +#8#0#0#7'TButton'#6'GenBtn'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'Anc'
-  +'h'#2'Y'#0#0#5'TEdit'#9'MachineID'#9'MaxLength'#2#8#8'TabOrder'#2#0#4'Left'#2
+  +'horSideTop.Control'#7#9'GroupBox1'#18'AnchorSideTop.Side'#7#9'asrBottom'#4
-  +'{'#6'Height'#2#21#3'Top'#2#16#5'Width'#2'Y'#0#0#9'TGroupBox'#9'GroupBox1'#7
+  +'Left'#2#16#6'Height'#2#25#3'Top'#3#161#0#5'Width'#2'`'#17'BorderSpacing.Top'
-  +'Caption'#6#8'Features'#12'ClientHeight'#2'O'#11'ClientWidth'#3#221#0#8'TabO'
+  +#2#16#20'BorderSpacing.Bottom'#2#16#25'BorderSpacing.InnerBorder'#2#4#7'Capt'
-  +'rder'#2#2#4'Left'#2#24#6'Height'#2'a'#3'Top'#2'8'#5'Width'#3#225#0#0#9'TChe'
+  +'ion'#6#13'Generate Code'#7'OnClick'#7#11'GenBtnClick'#8'TabOrder'#2#1#0#0#5
-  +'ckBox'#7'ReqFeat'#7'Caption'#6#8'Required'#7'Checked'#9#7'Enabled'#8#5'Stat'
+  +'TEdit'#9'MachineID'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLef'
-  +'e'#7#9'cbChecked'#8'TabOrder'#2#0#4'Left'#2#16#6'Height'#2#17#3'Top'#2#24#5
+  +'t.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7#5'Owner'#23'AnchorSideRi'
-  +'Width'#2'Q'#0#0#9'TCheckBox'#8'HelpFeat'#7'Caption'#6#4'Help'#8'TabOrder'#2
+  +'ght.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
-  +#1#4'Left'#2#16#6'Height'#2#17#3'Top'#2'('#5'Width'#2'Q'#0#0#9'TCheckBox'#12
+  +#2'd'#6'Height'#2#23#3'Top'#2#16#5'Width'#3#150#0#7'Anchors'#11#5'akTop'#6'a'
-  +'ExamplesFeat'#7'Caption'#6#8'Examples'#8'TabOrder'#2#2#4'Left'#2#16#6'Heigh'
+  +'kLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#24#17'BorderSpacing.Top'#2#16#9
-  +'t'#2#17#3'Top'#2'8'#5'Width'#2'Q'#0#0#9'TCheckBox'#6'DBFeat'#7'Caption'#6#8
+  +'MaxLength'#2#8#8'TabOrder'#2#0#0#0#9'TGroupBox'#9'GroupBox1'#22'AnchorSideL'
-  +'Database'#8'TabOrder'#2#3#4'Left'#2'x'#6'Height'#2#17#3'Top'#2#24#5'Width'#2
+  +'eft.Control'#7#5'Owner'#4'Left'#2#16#6'Height'#2'Y'#3'Top'#2'8'#5'Width'#3
-  +'Q'#0#0#9'TCheckBox'#7'FaxFeat'#7'Caption'#6#3'Fax'#8'TabOrder'#2#4#4'Left'#2
+  +#234#0#8'AutoSize'#9#18'BorderSpacing.Left'#2#16#19'BorderSpacing.Right'#2#16
-  +'x'#6'Height'#2#17#3'Top'#2'('#5'Width'#2'Q'#0#0#9'TCheckBox'#11'GoodiesFeat'
+  +#7'Caption'#6#8'Features'#12'ClientHeight'#2'E'#11'ClientWidth'#3#230#0#8'Ta'
-  +#7'Caption'#6#7'Goodies'#8'TabOrder'#2#5#4'Left'#2'x'#6'Height'#2#17#3'Top'#2
+  +'bOrder'#2#2#0#9'TCheckBox'#7'ReqFeat'#22'AnchorSideLeft.Control'#7#9'GroupB'
-  +'8'#5'Width'#2'Q'#0#0#0#5'TEdit'#11'CodeDisplay'#5'Color'#7#6'clAqua'#8'TabO'
+  +'ox1'#21'AnchorSideTop.Control'#7#9'GroupBox1'#4'Left'#2' '#6'Height'#2#19#3
-  +'rder'#2#3#4'Left'#2'{'#6'Height'#2#21#3'Top'#3#178#0#5'Width'#2'~'#0#0#0
+  +'Top'#2#0#5'Width'#2'A'#18'BorderSpacing.Left'#2' '#7'Caption'#6#8'Required'
  +#7'Checked'#9#7'Enabled'#8#5'State'#7#9'cbChecked'#8'TabOrder'#2#0#0#0#9'TCh'
  +'eckBox'#8'HelpFeat'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSide'
  +'Top.Control'#7#7'ReqFeat'#18'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2' '
  +#6'Height'#2#19#3'Top'#2#19#5'Width'#2'+'#18'BorderSpacing.Left'#2' '#7'Capt'
  +'ion'#6#4'Help'#8'TabOrder'#2#1#0#0#9'TCheckBox'#12'ExamplesFeat'#22'AnchorS'
  +'ideLeft.Control'#7#9'GroupBox1'#21'AnchorSideTop.Control'#7#8'HelpFeat'#18
  +'AnchorSideTop.Side'#7#9'asrBottom'#4'Left'#2' '#6'Height'#2#19#3'Top'#2'&'#5
  +'Width'#2'D'#18'BorderSpacing.Left'#2' '#20'BorderSpacing.Bottom'#2#12#7'Cap'
  +'tion'#6#8'Examples'#8'TabOrder'#2#2#0#0#9'TCheckBox'#6'DBFeat'#22'AnchorSid'
  +'eLeft.Control'#7#12'ExamplesFeat'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21
  +'AnchorSideTop.Control'#7#7'ReqFeat'#4'Left'#3#132#0#6'Height'#2#19#3'Top'#2
  +#0#5'Width'#2'B'#18'BorderSpacing.Left'#2' '#19'BorderSpacing.Right'#2' '#7
  +'Caption'#6#8'Database'#8'TabOrder'#2#3#0#0#9'TCheckBox'#7'FaxFeat'#22'Ancho'
  +'rSideLeft.Control'#7#12'ExamplesFeat'#19'AnchorSideLeft.Side'#7#9'asrBottom'
  +#21'AnchorSideTop.Control'#7#8'HelpFeat'#4'Left'#3#132#0#6'Height'#2#19#3'To'
  +'p'#2#19#5'Width'#2'$'#18'BorderSpacing.Left'#2' '#7'Caption'#6#3'Fax'#8'Tab'
  +'Order'#2#4#0#0#9'TCheckBox'#11'GoodiesFeat'#22'AnchorSideLeft.Control'#7#12
  +'ExamplesFeat'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contr'
  +'ol'#7#12'ExamplesFeat'#4'Left'#3#132#0#6'Height'#2#19#3'Top'#2'&'#5'Width'#2
  +'='#18'BorderSpacing.Left'#2' '#19'BorderSpacing.Right'#2' '#7'Caption'#6#7
  +'Goodies'#8'TabOrder'#2#5#0#0#0#5'TEdit'#11'CodeDisplay'#22'AnchorSideLeft.C'
  +'ontrol'#7#6'GenBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop'
  +'.Control'#7#6'GenBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorSideRi'
  +'ght.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'
  +#2'|'#6'Height'#2#23#3'Top'#3#162#0#5'Width'#2'~'#7'Anchors'#11#5'akTop'#6'a'
  +'kLeft'#7'akRight'#0#18'BorderSpacing.Left'#2#12#20'BorderSpacing.Bottom'#2
  +#16#5'Color'#7#6'clAqua'#8'TabOrder'#2#3#0#0#0
 ]);
--- a/components/onguard/examples/exslcode/exslcode.lpi
+++ b/components/onguard/examples/exslcode/exslcode.lpi
@@ -1,42 +1,55 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="3">
      <Unit0>
        <Filename Value="exslcode.lpr"/>
        <IsPartOfProject Value="True"/>
        <UnitName Value="Exslcode"/>
        <EditorIndex Value="1"/>
        <CursorPos X="48" Y="8"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exslcod1.pas"/>
@@ -45,27 +58,41 @@
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exslcod1"/>
        <IsVisibleTab Value="True"/>
        <TopLine Value="32"/>
        <CursorPos X="34" Y="68"/>
        <TopLine Value="27"/>
        <EditorIndex Value="1"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="exslcod1.lfm"/>
        <CursorPos X="11" Y="2"/>
        <TopLine Value="1"/>
        <UsageCount Value="10"/>
-        <SyntaxHighlighter Value="LFM"/>
+        <DefaultSyntaxHighlighter Value="LFM"/>
      </Unit2>
    </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
+    <JumpHistory Count="3" HistoryIndex="2">
      <Position1>
        <Filename Value="exslcod1.pas"/>
        <Caret Line="68" Column="34" TopLine="27"/>
      </Position1>
      <Position2>
        <Filename Value="exslcod1.pas"/>
        <Caret Line="69" Column="34" TopLine="33"/>
      </Position2>
      <Position3>
        <Filename Value="exslcod1.pas"/>
        <Caret Line="68" Column="34" TopLine="32"/>
      </Position3>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -78,7 +105,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -86,9 +113,6 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="2">
--- a/components/onguard/examples/exslcode/exslcode.lpr
+++ b/components/onguard/examples/exslcode/exslcode.lpr
@@ -8,6 +8,8 @@ uses
  Exslcod1 in 'EXSLCOD1.PAS' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exsnreg/exsnreg.lpi
+++ b/components/onguard/examples/exsnreg/exsnreg.lpi
@@ -1,66 +1,90 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
    <Version Value="12"/>
    <PathDelim Value="\"/>
    <Version Value="7"/>
    <General>
      <Flags>
        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <DestinationDirectory Value="$(TestDir)\publishedproject\"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="2">
      <Unit0>
        <Filename Value="exsnreg.lpr"/>
        <IsPartOfProject Value="True"/>
        <CursorPos X="48" Y="8"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exsnregu.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exsnregu"/>
-        <CursorPos X="74" Y="19"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="88"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="10"/>
+        <TopLine Value="88"/>
        <CursorPos X="24" Y="102"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
    </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
+    <JumpHistory Count="2" HistoryIndex="1">
      <Position1>
        <Filename Value="exsnregu.pas"/>
        <Caret Line="102" Column="24" TopLine="88"/>
      </Position1>
      <Position2>
        <Filename Value="exsnregu.pas"/>
        <Caret Line="101" Column="24" TopLine="87"/>
      </Position2>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <PathDelim Value="\"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -73,7 +97,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -81,9 +105,6 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="2">
--- a/components/onguard/examples/exsnreg/exsnreg.lpr
+++ b/components/onguard/examples/exsnreg/exsnreg.lpr
@@ -8,6 +8,8 @@ uses
  ExSNRegU in 'ExSNRegU.pas' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exsnreg/exsnregu.lfm
+++ b/components/onguard/examples/exsnreg/exsnregu.lfm
@@ -5,94 +5,118 @@ object Form1: TForm1
  Width = 495
  HorzScrollBar.Page = 494
  VertScrollBar.Page = 303
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Serial Number Code Example'
-  Font.Height = -11
+  ClientHeight = 304
-  Font.Name = 'MS Sans Serif'
+  ClientWidth = 495
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CloseBtn
    AnchorSideTop.Side = asrCenter
    Left = 8
-    Height = 13
+    Height = 15
-    Top = 262
+    Top = 234
-    Width = 35
+    Width = 32
    BorderSpacing.Left = 8
    Caption = 'Status'
    Color = clNone
    ParentColor = False
  end
  object Label1: TLabel
-    Left = 232
+    AnchorSideLeft.Control = CodeBtn
-    Height = 13
+    AnchorSideLeft.Side = asrBottom
-    Top = 14
+    AnchorSideTop.Control = CodeBtn
-    Width = 77
+    AnchorSideTop.Side = asrCenter
    Left = 177
    Height = 15
    Top = 13
    Width = 72
    BorderSpacing.Left = 80
    Caption = 'Current code:'
    Color = clNone
    ParentColor = False
  end
  object CodeLbl: TLabel
-    Left = 320
+    AnchorSideLeft.Control = Label1
-    Height = 13
+    AnchorSideLeft.Side = asrBottom
-    Top = 14
+    AnchorSideTop.Control = CodeBtn
-    Width = 113
+    AnchorSideTop.Side = asrCenter
    Left = 257
    Height = 15
    Top = 13
    Width = 96
    BorderSpacing.Left = 8
    Caption = '0000000000000000'
    Color = clNone
    ParentColor = False
  end
  object CodeBtn: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 8
    Height = 25
    Top = 8
    Width = 89
    BorderSpacing.Around = 8
    BorderSpacing.InnerBorder = 4
    Caption = 'Enter Code'
    OnClick = CodeBtnClick
    TabOrder = 0
  end
-  object Memo1: TMemo
+  object CloseBtn: TBitBtn
-    Left = 8
+    AnchorSideTop.Control = Memo1
-    Height = 209
+    AnchorSideTop.Side = asrBottom
-    Top = 40
+    AnchorSideRight.Control = Owner
-    Width = 465
+    AnchorSideRight.Side = asrBottom
-    Color = clBtnFace
+    Left = 412
-    Lines.Strings = (
+    Height = 25
-      'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
+    Top = 229
-      'the code is either the incorrect type or that none has been entered. '
+    Width = 75
-      ''
+    Anchors = [akTop, akRight]
-      'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
+    BorderSpacing.Right = 8
-      'say that the code is invalid.'
+    BorderSpacing.Bottom = 8
-      ''
+    Kind = bkClose
      'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
      'the proper "Usage" code). '
      ''
      'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
      'will cause the TOgSerialNumberCode component to report that the code is invalid.'
    )
    ReadOnly = True
    TabOrder = 1
  end
  object CloseBtn: TBitBtn
    Left = 400
    Height = 25
    Top = 256
    Width = 75
    Kind = bkClose
    NumGlyphs = 0
    TabOrder = 2
  end
  object RemoveBtn: TButton
-    Left = 288
+    AnchorSideTop.Control = CloseBtn
    AnchorSideRight.Control = CloseBtn
    Left = 311
    Height = 25
-    Top = 256
+    Top = 229
    Width = 97
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 4
    BorderSpacing.InnerBorder = 4
    Caption = 'Remove Code'
    OnClick = RemoveBtnClick
-    TabOrder = 3
+    TabOrder = 2
  end
  object Memo1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 8
    Height = 180
    Top = 41
    Width = 479
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 8
    Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgSerialNumberCode component to report that the code is invalid.'
    Color = clBtnFace
    ParentColor = False
    WordWrap = True
  end
  object OgSerialNumberCode1: TOgSerialNumberCode
    OnChecked = CodeChecked
    OnGetKey = GetKey
    OnGetCode = GetCode
-    left = 16
+    Left = 160
-    top = 208
+    Top = 208
  end
 end
--- a/components/onguard/examples/exsnreg/exsnregu.lrs
+++ b/components/onguard/examples/exsnreg/exsnregu.lrs
@@ -1,34 +1,51 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#252#0#6'Height'#3'0'#1#3'Top'#3#138#0#5'W'
-  +'idth'#3#239#1#18'HorzScrollBar.Page'#3#238#1#18'VertScrollBar.Page'#3'/'#1
+  +'idth'#3#239#1#18'HorzScrollBar.Page'#3#238#1#18'VertScrollBar.Page'#3'/'#1#8
-  +#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#26'Serial Number Code Example'#11
+  +'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#26'Serial Number Cod'
-  +'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'#7#14'poScre'
+  +'e Example'#12'ClientHeight'#3'0'#1#11'ClientWidth'#3#239#1#8'Position'#7#14
-  +'enCenter'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Height'#2#13#3'Top'#3#6#1#5
+  +'poScreenCenter'#10'LCLVersion'#6#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'Anc'
-  +'Width'#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'ParentColor'#8#0
+  +'horSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#8'CloseBtn'#18
-  +#0#6'TLabel'#6'Label1'#4'Left'#3#232#0#6'Height'#2#13#3'Top'#2#14#5'Width'#2
+  +'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2#8#6'Height'#2#15#3'Top'#3#234#0
-  +'M'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0
+  +#5'Width'#2' '#18'BorderSpacing.Left'#2#8#7'Caption'#6#6'Status'#5'Color'#7#6
-  +#6'TLabel'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13#3'Top'#2#14#5'Width'#2'q'
+  +'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'
-  +#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0
+  +#7#7'CodeBtn'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Contro'
-  +#7'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#25
+  +'l'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#3#177#0#6'Hei'
-  +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12
+  +'ght'#2#15#3'Top'#2#13#5'Width'#2'H'#18'BorderSpacing.Left'#2'P'#7'Caption'#6
-  +'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Left'#2#8#6'Height'#3
+  +#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'Co'
-  +#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9'clBtnFace'#13'Lines.Strings'
+  +'deLbl'#22'AnchorSideLeft.Control'#7#6'Label1'#19'AnchorSideLeft.Side'#7#9'a'
-  +#1#6'fThe label at the bottom of this form indicates the status of the code.'
+  +'srBottom'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
-  +' An invalid code indicates that '#6'Ethe code is either the incorrect type '
+  +'asrCenter'#4'Left'#3#1#1#6'Height'#2#15#3'Top'#2#13#5'Width'#2'`'#18'Border'
-  +'or that none has been entered. '#6#0#6'^If the proper code has not been ent'
+  +'Spacing.Left'#2#8#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11
-  +'ered or the ONGUARD.INI file was deleted, the message will '#6#29'say that '
+  +'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#22'AnchorSideLeft.Control'#7#5'Own'
-  +'the code is invalid.'#6#0#6'YUse the "Enter Code" button to enter a code (t'
+  +'er'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#8#6'Height'#2#25#3'Top'#2
-  +'he CODEGEN program can be used to generate '#6#26'the proper "Usage" code).'
+  +#8#5'Width'#2'Y'#20'BorderSpacing.Around'#2#8#25'BorderSpacing.InnerBorder'#2
-  +' '#6#0#6'\The "Remove Code" button can be used to remove the entered code f'
+  +#4#7'Caption'#6#10'Enter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0
-  +'rom the INI file. Doing so '#6'Pwill cause the TOgSerialNumberCode componen'
+  +#0#0#7'TBitBtn'#8'CloseBtn'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSi'
-  +'t to report that the code is invalid.'#0#8'ReadOnly'#9#8'TabOrder'#2#1#0#0#7
+  +'deTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'Anchor'
-  +'TBitBtn'#8'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2
+  +'SideRight.Side'#7#9'asrBottom'#4'Left'#3#156#1#6'Height'#2#25#3'Top'#3#229#0
-  +'K'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#7'TButton'#9'R'
+  +#5'Width'#2'K'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2
-  +'emoveBtn'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5'Width'#2'a'#25'Borde'
+  +#8#20'BorderSpacing.Bottom'#2#8#4'Kind'#7#7'bkClose'#8'TabOrder'#2#1#0#0#7'T'
-  +'rSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'Remo'
+  +'Button'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseBtn'#23'AnchorSideR'
-  +'veBtnClick'#8'TabOrder'#2#3#0#0#19'TOgSerialNumberCode'#19'OgSerialNumberCo'
+  +'ight.Control'#7#8'CloseBtn'#4'Left'#3'7'#1#6'Height'#2#25#3'Top'#3#229#0#5
-  +'de1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7
+  +'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#4
-  +'GetCode'#4'left'#2#16#3'top'#3#208#0#0#0#0
+  +#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7
  +#14'RemoveBtnClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft'
  +'.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTo'
  +'p.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSide'
  +'Right.Side'#7#9'asrBottom'#4'Left'#2#8#6'Height'#3#180#0#3'Top'#2')'#5'Widt'
  +'h'#3#223#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.A'
  +'round'#2#8#7'Caption'#12'Q'#2#0#0'The label at the bottom of this form indi'
  +'cates the status of the code. An invalid code indicates that the code is ei'
  +'ther the incorrect type or that none has been entered. '#13#10#13#10'If the'
  +' proper code has not been entered or the ONGUARD.INI file was deleted, the '
  +'message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code'
  +'" button to enter a code (the CODEGEN program can be used to generate the p'
  +'roper "Usage" code). '#13#10#13#10'The "Remove Code" button can be used to '
  +'remove the entered code from the INI file. Doing so will cause the TOgSeria'
  +'lNumberCode component to report that the code is invalid.'#5'Color'#7#9'clB'
  +'tnFace'#11'ParentColor'#8#8'WordWrap'#9#0#0#19'TOgSerialNumberCode'#19'OgSe'
  +'rialNumberCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'O'
  +'nGetCode'#7#7'GetCode'#4'Left'#3#160#0#3'Top'#3#208#0#0#0#0
 ]);
--- a/components/onguard/examples/exsnreg/exsnregu.pas
+++ b/components/onguard/examples/exsnreg/exsnregu.pas
@@ -13,8 +13,8 @@ type
  TForm1 = class(TForm)
    CodeBtn: TButton;
    Memo1: TMemo;
    CloseBtn: TBitBtn;
    Memo1: TLabel;
    StatusLbl: TLabel;
    Label1: TLabel;
    CodeLbl: TLabel;
--- a/components/onguard/examples/exspname/exspname.lpi
+++ b/components/onguard/examples/exspname/exspname.lpi
@@ -1,26 +1,35 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
    <RequiredPackages Count="1">
      <Item1>
@@ -28,36 +37,57 @@
        <MinVersion Major="1" Valid="True"/>
      </Item1>
    </RequiredPackages>
-    <Units Count="2">
+    <Units Count="4">
      <Unit0>
        <Filename Value="exspname.lpr"/>
        <IsPartOfProject Value="True"/>
-        <CursorPos X="48" Y="7"/>
+        <UnitName Value="ExSpName"/>
-        <TopLine Value="1"/>
+        <CursorPos X="25" Y="9"/>
-        <EditorIndex Value="0"/>
+        <UsageCount Value="21"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exspnamu.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="ExSpNamu"/>
-        <CursorPos X="86" Y="14"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="1"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="10"/>
+        <CursorPos X="73" Y="24"/>
        <UsageCount Value="21"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
      <Unit2>
        <Filename Value="C:/Lazarus/lazarus-main_fpc3.2.2/lcl/controls.pp"/>
        <UnitName Value="Controls"/>
        <EditorIndex Value="-1"/>
        <UsageCount Value="10"/>
      </Unit2>
      <Unit3>
        <Filename Value="C:/Lazarus/lazarus-main_fpc3.2.2/lcl/graphics.pp"/>
        <UnitName Value="Graphics"/>
        <EditorIndex Value="-1"/>
        <CursorPos X="22" Y="5"/>
        <UsageCount Value="10"/>
      </Unit3>
    </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
+    <JumpHistory Count="1">
      <Position1>
        <Filename Value="exspnamu.pas"/>
        <Caret Line="6" Column="24"/>
      </Position1>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -70,7 +100,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -78,9 +108,6 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="2">
--- a/components/onguard/examples/exspname/exspname.lpr
+++ b/components/onguard/examples/exspname/exspname.lpr
@@ -8,6 +8,8 @@ uses
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exspname/exspnamu.lfm
+++ b/components/onguard/examples/exspname/exspnamu.lfm
@@ -5,104 +5,179 @@ object Form1: TForm1
  Width = 372
  HorzScrollBar.Page = 371
  VertScrollBar.Page = 294
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Build/Check Special Code with Name string'
-  Font.Height = -11
+  ClientHeight = 295
-  Font.Name = 'MS Sans Serif'
+  ClientWidth = 372
  LCLVersion = '2.3.0.0'
  object GroupBox1: TGroupBox
-    Left = 16
+    AnchorSideLeft.Control = Owner
-    Height = 97
+    AnchorSideTop.Control = Owner
-    Top = 16
+    Left = 12
-    Width = 337
+    Height = 87
    Top = 12
    Width = 342
    BorderSpacing.Around = 12
    Caption = ' Generate the Code '
    ClientHeight = 67
    ClientWidth = 338
    TabOrder = 0
    object Label1: TLabel
-      Left = 24
+      AnchorSideLeft.Control = GroupBox1
-      Height = 13
+      AnchorSideTop.Control = edtUserName1
-      Top = 28
+      AnchorSideTop.Side = asrCenter
-      Width = 53
+      Left = 16
      Height = 15
      Top = 8
      Width = 58
      BorderSpacing.Left = 16
      Caption = 'User Name'
      Color = clNone
      ParentColor = False
    end
    object edtUserName1: TEdit
-      Left = 104
+      AnchorSideLeft.Control = edtCode1
-      Height = 21
+      AnchorSideTop.Control = GroupBox1
-      Top = 24
+      AnchorSideRight.Control = GroupBox1
-      Width = 217
+      AnchorSideRight.Side = asrBottom
      Left = 102
      Height = 23
      Top = 4
      Width = 224
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 4
      BorderSpacing.Right = 12
      TabOrder = 0
    end
    object btnGenCode: TButton
-      Left = 6
+      AnchorSideLeft.Control = GroupBox1
      AnchorSideTop.Control = edtCode1
      AnchorSideTop.Side = asrCenter
      Left = 8
      Height = 25
-      Top = 54
+      Top = 34
-      Width = 85
+      Width = 86
      BorderSpacing.Around = 8
      BorderSpacing.InnerBorder = 4
      Caption = 'Gen Code'
      OnClick = btnGenCodeClick
      TabOrder = 1
    end
    object edtCode1: TEdit
-      Left = 104
+      AnchorSideLeft.Control = btnGenCode
-      Height = 21
+      AnchorSideLeft.Side = asrBottom
-      Top = 56
+      AnchorSideTop.Control = edtUserName1
-      Width = 217
+      AnchorSideTop.Side = asrBottom
      AnchorSideRight.Control = GroupBox1
      AnchorSideRight.Side = asrBottom
      Left = 102
      Height = 23
      Top = 35
      Width = 224
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 8
      BorderSpacing.Right = 12
      ReadOnly = True
      TabOrder = 2
    end
  end
  object GroupBox2: TGroupBox
-    Left = 16
+    AnchorSideLeft.Control = Owner
-    Height = 129
+    AnchorSideTop.Control = GroupBox1
-    Top = 128
+    AnchorSideTop.Side = asrBottom
-    Width = 337
+    AnchorSideRight.Control = GroupBox1
    AnchorSideRight.Side = asrBottom
    Left = 12
    Height = 116
    Top = 111
    Width = 342
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Left = 12
    BorderSpacing.Top = 12
    BorderSpacing.Bottom = 12
    Caption = ' Check the Code '
    ClientHeight = 96
    ClientWidth = 338
    TabOrder = 1
    object Label2: TLabel
-      Left = 24
+      AnchorSideLeft.Control = GroupBox2
-      Height = 13
+      AnchorSideTop.Control = edtUserName2
-      Top = 28
+      AnchorSideTop.Side = asrCenter
-      Width = 53
+      Left = 16
      Height = 15
      Top = 8
      Width = 58
      BorderSpacing.Left = 16
      Caption = 'User Name'
      Color = clNone
      ParentColor = False
    end
    object Label3: TLabel
-      Left = 24
+      AnchorSideLeft.Control = GroupBox2
-      Height = 13
+      AnchorSideTop.Control = edtCode2
-      Top = 60
+      AnchorSideTop.Side = asrCenter
-      Width = 25
+      Left = 16
      Height = 15
      Top = 39
      Width = 28
      BorderSpacing.Left = 16
      Caption = 'Code'
      Color = clNone
      ParentColor = False
    end
    object lblCheckResult: TLabel
-      Left = 104
+      AnchorSideLeft.Control = edtUserName2
-      Height = 13
+      AnchorSideTop.Control = edtCode2
-      Top = 96
+      AnchorSideTop.Side = asrBottom
-      Width = 71
+      Left = 101
      Height = 15
      Top = 68
      Width = 78
      BorderSpacing.Top = 10
      Caption = 'lblCheckResult'
      Color = clNone
      ParentColor = False
    end
    object edtUserName2: TEdit
-      Left = 104
+      AnchorSideLeft.Control = btnCheckCode
-      Height = 21
+      AnchorSideLeft.Side = asrBottom
-      Top = 24
+      AnchorSideTop.Control = GroupBox2
-      Width = 217
+      AnchorSideRight.Control = GroupBox2
      AnchorSideRight.Side = asrBottom
      Left = 101
      Height = 23
      Top = 4
      Width = 225
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 4
      BorderSpacing.Right = 12
      TabOrder = 0
    end
    object edtCode2: TEdit
-      Left = 104
+      AnchorSideLeft.Control = edtUserName2
-      Height = 21
+      AnchorSideTop.Control = edtUserName2
-      Top = 56
+      AnchorSideTop.Side = asrBottom
-      Width = 217
+      AnchorSideRight.Control = GroupBox2
      AnchorSideRight.Side = asrBottom
      Left = 101
      Height = 23
      Top = 35
      Width = 225
      Anchors = [akTop, akLeft, akRight]
      BorderSpacing.Top = 8
      BorderSpacing.Right = 12
      TabOrder = 1
    end
    object btnCheckCode: TButton
-      Left = 6
+      AnchorSideLeft.Control = GroupBox2
      AnchorSideTop.Control = lblCheckResult
      AnchorSideTop.Side = asrCenter
      Left = 8
      Height = 25
-      Top = 88
+      Top = 63
      Width = 85
      BorderSpacing.Around = 8
      BorderSpacing.InnerBorder = 4
      Caption = 'Check Code'
      OnClick = btnCheckCodeClick
--- a/components/onguard/examples/exspname/exspnamu.lrs
+++ b/components/onguard/examples/exspname/exspnamu.lrs
@@ -1,30 +1,66 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#200#0#6'Height'#3''''#1#3'Top'#2'l'#5'Wid'
-  +'th'#3't'#1#18'HorzScrollBar.Page'#3's'#1#18'VertScrollBar.Page'#3'&'#1#7'Ca'
+  +'th'#3't'#1#18'HorzScrollBar.Page'#3's'#1#18'VertScrollBar.Page'#3'&'#1#8'Au'
-  +'ption'#6')Build/Check Special Code with Name string'#11'Font.Height'#2#245#9
+  +'toSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6')Build/Check Special C'
-  +'Font.Name'#6#13'MS Sans Serif'#0#9'TGroupBox'#9'GroupBox1'#4'Left'#2#16#6'H'
+  +'ode with Name string'#12'ClientHeight'#3''''#1#11'ClientWidth'#3't'#1#10'LC'
-  +'eight'#2'a'#3'Top'#2#16#5'Width'#3'Q'#1#7'Caption'#6#19' Generate the Code '
+  +'LVersion'#6#7'2.3.0.0'#0#9'TGroupBox'#9'GroupBox1'#22'AnchorSideLeft.Contro'
-  +#8'TabOrder'#2#0#0#6'TLabel'#6'Label1'#4'Left'#2#24#6'Height'#2#13#3'Top'#2
+  +'l'#7#5'Owner'#21'AnchorSideTop.Control'#7#5'Owner'#4'Left'#2#12#6'Height'#2
-  +#28#5'Width'#2'5'#7'Caption'#6#9'User Name'#5'Color'#7#6'clNone'#11'ParentCo'
+  +'W'#3'Top'#2#12#5'Width'#3'V'#1#20'BorderSpacing.Around'#2#12#7'Caption'#6#19
-  +'lor'#8#0#0#5'TEdit'#12'edtUserName1'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2#24
+  +' Generate the Code '#12'ClientHeight'#2'C'#11'ClientWidth'#3'R'#1#8'TabOrde'
-  +#5'Width'#3#217#0#8'TabOrder'#2#0#0#0#7'TButton'#10'btnGenCode'#4'Left'#2#6#6
+  +'r'#2#0#0#6'TLabel'#6'Label1'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'A'
-  +'Height'#2#25#3'Top'#2'6'#5'Width'#2'U'#25'BorderSpacing.InnerBorder'#2#4#7
+  +'nchorSideTop.Control'#7#12'edtUserName1'#18'AnchorSideTop.Side'#7#9'asrCent'
-  +'Caption'#6#8'Gen Code'#7'OnClick'#7#15'btnGenCodeClick'#8'TabOrder'#2#1#0#0
+  +'er'#4'Left'#2#16#6'Height'#2#15#3'Top'#2#8#5'Width'#2':'#18'BorderSpacing.L'
-  +#5'TEdit'#8'edtCode1'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2'8'#5'Width'#3#217
+  +'eft'#2#16#7'Caption'#6#9'User Name'#5'Color'#7#6'clNone'#11'ParentColor'#8#0
-  +#0#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#2#16
+  +#0#5'TEdit'#12'edtUserName1'#22'AnchorSideLeft.Control'#7#8'edtCode1'#21'Anc'
-  +#6'Height'#3#129#0#3'Top'#3#128#0#5'Width'#3'Q'#1#7'Caption'#6#16' Check the'
+  +'horSideTop.Control'#7#9'GroupBox1'#23'AnchorSideRight.Control'#7#9'GroupBox'
-  +' Code '#8'TabOrder'#2#1#0#6'TLabel'#6'Label2'#4'Left'#2#24#6'Height'#2#13#3
+  +'1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'f'#6'Height'#2#23#3'To'
-  +'Top'#2#28#5'Width'#2'5'#7'Caption'#6#9'User Name'#5'Color'#7#6'clNone'#11'P'
+  +'p'#2#4#5'Width'#3#224#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'Bo'
-  +'arentColor'#8#0#0#6'TLabel'#6'Label3'#4'Left'#2#24#6'Height'#2#13#3'Top'#2
+  +'rderSpacing.Top'#2#4#19'BorderSpacing.Right'#2#12#8'TabOrder'#2#0#0#0#7'TBu'
-  +'<'#5'Width'#2#25#7'Caption'#6#4'Code'#5'Color'#7#6'clNone'#11'ParentColor'#8
+  +'tton'#10'btnGenCode'#22'AnchorSideLeft.Control'#7#9'GroupBox1'#21'AnchorSid'
-  +#0#0#6'TLabel'#14'lblCheckResult'#4'Left'#2'h'#6'Height'#2#13#3'Top'#2'`'#5
+  +'eTop.Control'#7#8'edtCode1'#18'AnchorSideTop.Side'#7#9'asrCenter'#4'Left'#2
-  +'Width'#2'G'#7'Caption'#6#14'lblCheckResult'#5'Color'#7#6'clNone'#11'ParentC'
+  +#8#6'Height'#2#25#3'Top'#2'"'#5'Width'#2'V'#20'BorderSpacing.Around'#2#8#25
-  +'olor'#8#0#0#5'TEdit'#12'edtUserName2'#4'Left'#2'h'#6'Height'#2#21#3'Top'#2
+  +'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#8'Gen Code'#7'OnClick'#7#15'btn'
-  +#24#5'Width'#3#217#0#8'TabOrder'#2#0#0#0#5'TEdit'#8'edtCode2'#4'Left'#2'h'#6
+  +'GenCodeClick'#8'TabOrder'#2#1#0#0#5'TEdit'#8'edtCode1'#22'AnchorSideLeft.Co'
-  +'Height'#2#21#3'Top'#2'8'#5'Width'#3#217#0#8'TabOrder'#2#1#0#0#7'TButton'#12
+  +'ntrol'#7#10'btnGenCode'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSid'
-  +'btnCheckCode'#4'Left'#2#6#6'Height'#2#25#3'Top'#2'X'#5'Width'#2'U'#25'Borde'
+  +'eTop.Control'#7#12'edtUserName1'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'A'
-  +'rSpacing.InnerBorder'#2#4#7'Caption'#6#10'Check Code'#7'OnClick'#7#17'btnCh'
+  +'nchorSideRight.Control'#7#9'GroupBox1'#20'AnchorSideRight.Side'#7#9'asrBott'
-  +'eckCodeClick'#8'TabOrder'#2#2#0#0#0#0
+  +'om'#4'Left'#2'f'#6'Height'#2#23#3'Top'#2'#'#5'Width'#3#224#0#7'Anchors'#11#5
  +'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#8#19'BorderSpacing.Ri'
  +'ght'#2#12#8'ReadOnly'#9#8'TabOrder'#2#2#0#0#0#9'TGroupBox'#9'GroupBox2'#22
  +'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#9'GroupBox1'
  +#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7#9'Group'
  +'Box1'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2#12#6'Height'#2't'#3
  +'Top'#2'o'#5'Width'#3'V'#1#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#18
  +'BorderSpacing.Left'#2#12#17'BorderSpacing.Top'#2#12#20'BorderSpacing.Bottom'
  +#2#12#7'Caption'#6#16' Check the Code '#12'ClientHeight'#2'`'#11'ClientWidth'
  +#3'R'#1#8'TabOrder'#2#1#0#6'TLabel'#6'Label2'#22'AnchorSideLeft.Control'#7#9
  +'GroupBox2'#21'AnchorSideTop.Control'#7#12'edtUserName2'#18'AnchorSideTop.Si'
  +'de'#7#9'asrCenter'#4'Left'#2#16#6'Height'#2#15#3'Top'#2#8#5'Width'#2':'#18
  +'BorderSpacing.Left'#2#16#7'Caption'#6#9'User Name'#5'Color'#7#6'clNone'#11
  +'ParentColor'#8#0#0#6'TLabel'#6'Label3'#22'AnchorSideLeft.Control'#7#9'Group'
  +'Box2'#21'AnchorSideTop.Control'#7#8'edtCode2'#18'AnchorSideTop.Side'#7#9'as'
  +'rCenter'#4'Left'#2#16#6'Height'#2#15#3'Top'#2''''#5'Width'#2#28#18'BorderSp'
  +'acing.Left'#2#16#7'Caption'#6#4'Code'#5'Color'#7#6'clNone'#11'ParentColor'#8
  +#0#0#6'TLabel'#14'lblCheckResult'#22'AnchorSideLeft.Control'#7#12'edtUserNam'
  +'e2'#21'AnchorSideTop.Control'#7#8'edtCode2'#18'AnchorSideTop.Side'#7#9'asrB'
  +'ottom'#4'Left'#2'e'#6'Height'#2#15#3'Top'#2'D'#5'Width'#2'N'#17'BorderSpaci'
  +'ng.Top'#2#10#7'Caption'#6#14'lblCheckResult'#5'Color'#7#6'clNone'#11'Parent'
  +'Color'#8#0#0#5'TEdit'#12'edtUserName2'#22'AnchorSideLeft.Control'#7#12'btnC'
  +'heckCode'#19'AnchorSideLeft.Side'#7#9'asrBottom'#21'AnchorSideTop.Control'#7
  +#9'GroupBox2'#23'AnchorSideRight.Control'#7#9'GroupBox2'#20'AnchorSideRight.'
  +'Side'#7#9'asrBottom'#4'Left'#2'e'#6'Height'#2#23#3'Top'#2#4#5'Width'#3#225#0
  +#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#17'BorderSpacing.Top'#2#4#19
  +'BorderSpacing.Right'#2#12#8'TabOrder'#2#0#0#0#5'TEdit'#8'edtCode2'#22'Ancho'
  +'rSideLeft.Control'#7#12'edtUserName2'#21'AnchorSideTop.Control'#7#12'edtUse'
  +'rName2'#18'AnchorSideTop.Side'#7#9'asrBottom'#23'AnchorSideRight.Control'#7
  +#9'GroupBox2'#20'AnchorSideRight.Side'#7#9'asrBottom'#4'Left'#2'e'#6'Height'
  +#2#23#3'Top'#2'#'#5'Width'#3#225#0#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRigh'
  +'t'#0#17'BorderSpacing.Top'#2#8#19'BorderSpacing.Right'#2#12#8'TabOrder'#2#1
  +#0#0#7'TButton'#12'btnCheckCode'#22'AnchorSideLeft.Control'#7#9'GroupBox2'#21
  +'AnchorSideTop.Control'#7#14'lblCheckResult'#18'AnchorSideTop.Side'#7#9'asrC'
  +'enter'#4'Left'#2#8#6'Height'#2#25#3'Top'#2'?'#5'Width'#2'U'#20'BorderSpacin'
  +'g.Around'#2#8#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Check Code'
  +#7'OnClick'#7#17'btnCheckCodeClick'#8'TabOrder'#2#2#0#0#0#0
 ]);
--- a/components/onguard/examples/exspreg/ONGUARD.INI
+++ b/components/onguard/examples/exspreg/ONGUARD.INI
@@ -1,2 +1 @@
 [Codes]
 SpecialCode=B52A3ABB5EA876AC
--- a/components/onguard/examples/exspreg/exspreg.lpi
+++ b/components/onguard/examples/exspreg/exspreg.lpi
@@ -1,63 +1,86 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
  <ProjectOptions>
-    <Version Value="7"/>
+    <Version Value="12"/>
    <General>
      <Flags>
        <MainUnitHasCreateFormStatements Value="False"/>
        <MainUnitHasTitleStatement Value="False"/>
        <MainUnitHasScaledStatement Value="False"/>
        <LRSInOutputDirectory Value="False"/>
        <CompatibilityMode Value="True"/>
      </Flags>
-      <MainUnit Value="0"/>
+      <UseXPManifest Value="True"/>
      <TargetFileExt Value=".exe"/>
      <ActiveEditorIndexAtStart Value="1"/>
    </General>
    <BuildModes Count="1">
      <Item1 Name="default" Default="True"/>
    </BuildModes>
    <PublishOptions>
      <Version Value="2"/>
      <IgnoreBinaries Value="False"/>
      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
    </PublishOptions>
    <RunParams>
      <local>
-        <FormatVersion Value="1"/>
+        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
      </local>
      <FormatVersion Value="2"/>
      <Modes Count="1">
        <Mode0 Name="default">
          <local>
            <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
          </local>
        </Mode0>
      </Modes>
    </RunParams>
-    <RequiredPackages Count="1">
+    <RequiredPackages Count="2">
      <Item1>
        <PackageName Value="LCL"/>
      </Item1>
      <Item2>
        <PackageName Value="tponguard"/>
        <MinVersion Major="1" Valid="True"/>
-      </Item1>
+      </Item2>
    </RequiredPackages>
    <Units Count="2">
      <Unit0>
        <Filename Value="exspreg.lpr"/>
        <IsPartOfProject Value="True"/>
        <CursorPos X="48" Y="8"/>
        <TopLine Value="1"/>
        <EditorIndex Value="0"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit0>
      <Unit1>
        <Filename Value="exspregu.pas"/>
        <IsPartOfProject Value="True"/>
        <ComponentName Value="Form1"/>
        <HasResources Value="True"/>
        <ResourceBaseClass Value="Form"/>
        <UnitName Value="Exspregu"/>
-        <CursorPos X="46" Y="20"/>
+        <IsVisibleTab Value="True"/>
        <TopLine Value="1"/>
        <EditorIndex Value="1"/>
-        <UsageCount Value="10"/>
+        <CursorPos X="39" Y="22"/>
        <UsageCount Value="20"/>
        <Loaded Value="True"/>
        <LoadedDesigner Value="True"/>
      </Unit1>
    </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
+    <JumpHistory Count="2" HistoryIndex="1">
      <Position1>
        <Filename Value="exspregu.pas"/>
        <Caret Line="22" Column="39"/>
      </Position1>
      <Position2>
        <Filename Value="exspregu.pas"/>
        <Caret Line="21" Column="39"/>
      </Position2>
    </JumpHistory>
  </ProjectOptions>
  <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="11"/>
    <Parsing>
      <SyntaxOptions>
        <IncludeAssertionCode Value="True"/>
        <UseAnsiStrings Value="False"/>
      </SyntaxOptions>
    </Parsing>
    <CodeGeneration>
@@ -70,7 +93,7 @@
    </CodeGeneration>
    <Linking>
      <Debugging>
-        <UseHeaptrc Value="True"/>
+        <DebugInfoType Value="dsDwarf3"/>
      </Debugging>
      <Options>
        <Win32>
@@ -78,9 +101,6 @@
        </Win32>
      </Options>
    </Linking>
    <Other>
      <CompilerPath Value="$(CompPath)"/>
    </Other>
  </CompilerOptions>
  <Debugging>
    <Exceptions Count="2">
--- a/components/onguard/examples/exspreg/exspreg.lpr
+++ b/components/onguard/examples/exspreg/exspreg.lpr
@@ -8,6 +8,8 @@ uses
  Exspregu in 'EXSPREGU.PAS' {Form1}, tponguard;
 {$R *.res}
 begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
--- a/components/onguard/examples/exspreg/exspregu.lfm
+++ b/components/onguard/examples/exspreg/exspregu.lfm
@@ -2,97 +2,120 @@ object Form1: TForm1
  Left = 252
  Height = 303
  Top = 138
-  Width = 487
+  Width = 450
  HorzScrollBar.Page = 486
  VertScrollBar.Page = 302
  AutoSize = True
  BorderStyle = bsDialog
  Caption = 'Special Registration Data Code Example'
-  Font.Height = -11
+  ClientHeight = 303
-  Font.Name = 'MS Sans Serif'
+  ClientWidth = 450
  Constraints.MinWidth = 450
  Position = poScreenCenter
  LCLVersion = '2.3.0.0'
  object StatusLbl: TLabel
    AnchorSideLeft.Control = Memo1
    AnchorSideTop.Control = CloseBtn
    AnchorSideTop.Side = asrCenter
    Left = 8
-    Height = 13
+    Height = 15
-    Top = 262
+    Top = 249
-    Width = 35
+    Width = 32
    Caption = 'Status'
    Color = clNone
    ParentColor = False
  end
  object Label1: TLabel
-    Left = 224
+    AnchorSideTop.Control = CodeBtn
-    Height = 13
+    AnchorSideTop.Side = asrCenter
-    Top = 14
+    AnchorSideRight.Control = CodeLbl
-    Width = 77
+    Left = 266
    Height = 15
    Top = 13
    Width = 72
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 8
    Caption = 'Current code:'
    Color = clNone
    ParentColor = False
  end
  object CodeLbl: TLabel
-    Left = 320
+    AnchorSideTop.Control = CodeBtn
-    Height = 13
+    AnchorSideTop.Side = asrCenter
-    Top = 14
+    AnchorSideRight.Control = Owner
-    Width = 113
+    AnchorSideRight.Side = asrBottom
    Left = 346
    Height = 15
    Top = 13
    Width = 96
    Anchors = [akTop, akRight]
    BorderSpacing.Right = 8
    Caption = '0000000000000000'
    Color = clNone
    ParentColor = False
  end
  object CodeBtn: TButton
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = Owner
    Left = 8
    Height = 25
    Top = 8
    Width = 89
    BorderSpacing.Around = 8
    BorderSpacing.InnerBorder = 4
    Caption = 'Enter Code'
    OnClick = CodeBtnClick
    TabOrder = 0
  end
-  object Memo1: TMemo
+  object CloseBtn: TBitBtn
-    Left = 8
+    AnchorSideTop.Control = Memo1
-    Height = 209
+    AnchorSideTop.Side = asrBottom
-    Top = 40
+    AnchorSideRight.Control = Owner
-    Width = 465
+    AnchorSideRight.Side = asrBottom
-    Color = clBtnFace
+    Left = 367
-    Lines.Strings = (
+    Height = 25
-      'The label at the bottom of this form indicates the status of the code. An invalid code indicates that '
+    Top = 244
-      'the code is either the incorrect type or that none has been entered. '
+    Width = 75
-      ''
+    Anchors = [akTop]
-      'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will '
+    BorderSpacing.Around = 8
-      'say that the code is invalid.'
+    Kind = bkClose
      ''
      'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate '
      'the proper "Special" code). '
      ''
      'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so '
      'will cause the TOgSpecialCode component to report that the code is invalid.'
    )
    ReadOnly = True
    TabOrder = 1
  end
  object CloseBtn: TBitBtn
    Left = 400
    Height = 25
    Top = 256
    Width = 75
    Kind = bkClose
    NumGlyphs = 0
    TabOrder = 2
  end
  object RemoveBtn: TButton
-    Left = 288
+    AnchorSideTop.Control = CloseBtn
    AnchorSideRight.Control = CloseBtn
    Left = 262
    Height = 25
-    Top = 256
+    Top = 244
    Width = 97
    Anchors = [akTop, akRight]
    BorderSpacing.InnerBorder = 4
    Caption = 'Remove Code'
    OnClick = RemoveBtnClick
-    TabOrder = 3
+    TabOrder = 2
  end
  object Memo1: TLabel
    AnchorSideLeft.Control = Owner
    AnchorSideTop.Control = CodeBtn
    AnchorSideTop.Side = asrBottom
    AnchorSideRight.Control = Owner
    AnchorSideRight.Side = asrBottom
    Left = 8
    Height = 195
    Top = 41
    Width = 434
    Anchors = [akTop, akLeft, akRight]
    BorderSpacing.Around = 8
    Caption = 'The label at the bottom of this form indicates the status of the code. An invalid code indicates that the code is either the incorrect type or that none has been entered. '#13#10#13#10'If the proper code has not been entered or the ONGUARD.INI file was deleted, the message will say that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to enter a code (the CODEGEN program can be used to generate the proper "Special" code). '#13#10#13#10'The "Remove Code" button can be used to remove the entered code from the INI file. Doing so will cause the TOgSpecialCode component to report that the code is invalid.'
    Color = clBtnFace
    ParentColor = False
    WordWrap = True
  end
  object OgSpecialCode1: TOgSpecialCode
    OnChecked = CodeChecked
    OnGetKey = GetKey
    OnGetCode = GetCode
-    left = 16
+    Left = 168
-    top = 216
+    Top = 136
  end
 end
--- a/components/onguard/examples/exspreg/exspregu.lrs
+++ b/components/onguard/examples/exspreg/exspregu.lrs
@@ -1,34 +1,51 @@
-{ To jest automatycznie wygenerowany plik zasob�w lazarusa }
+{ This is an automatically generated lazarus resource file }
 LazarusResources.Add('TForm1','FORMDATA',[
  'TPF0'#6'TForm1'#5'Form1'#4'Left'#3#252#0#6'Height'#3'/'#1#3'Top'#3#138#0#5'W'
-  +'idth'#3#231#1#18'HorzScrollBar.Page'#3#230#1#18'VertScrollBar.Page'#3'.'#1
+  +'idth'#3#194#1#18'HorzScrollBar.Page'#3#230#1#18'VertScrollBar.Page'#3'.'#1#8
-  +#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6'&Special Registration Data Code '
+  +'AutoSize'#9#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6'&Special Registratio'
-  +'Example'#11'Font.Height'#2#245#9'Font.Name'#6#13'MS Sans Serif'#8'Position'
+  +'n Data Code Example'#12'ClientHeight'#3'/'#1#11'ClientWidth'#3#194#1#20'Con'
-  +#7#14'poScreenCenter'#0#6'TLabel'#9'StatusLbl'#4'Left'#2#8#6'Height'#2#13#3
+  +'straints.MinWidth'#3#194#1#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6
-  +'Top'#3#6#1#5'Width'#2'#'#7'Caption'#6#6'Status'#5'Color'#7#6'clNone'#11'Par'
+  +#7'2.3.0.0'#0#6'TLabel'#9'StatusLbl'#22'AnchorSideLeft.Control'#7#5'Memo1'#21
-  +'entColor'#8#0#0#6'TLabel'#6'Label1'#4'Left'#3#224#0#6'Height'#2#13#3'Top'#2
+  +'AnchorSideTop.Control'#7#8'CloseBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#4
-  +#14#5'Width'#2'M'#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'Par'
+  +'Left'#2#8#6'Height'#2#15#3'Top'#3#249#0#5'Width'#2' '#7'Caption'#6#6'Status'
-  +'entColor'#8#0#0#6'TLabel'#7'CodeLbl'#4'Left'#3'@'#1#6'Height'#2#13#3'Top'#2
+  +#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#6'Label1'#21'AnchorSid'
-  +#14#5'Width'#2'q'#7'Caption'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11
+  +'eTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9'asrCenter'#23'AnchorS'
-  +'ParentColor'#8#0#0#7'TButton'#7'CodeBtn'#4'Left'#2#8#6'Height'#2#25#3'Top'#2
+  +'ideRight.Control'#7#7'CodeLbl'#4'Left'#3#10#1#6'Height'#2#15#3'Top'#2#13#5
-  +#8#5'Width'#2'Y'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'Enter Cod'
+  +'Width'#2'H'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#8
-  +'e'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#5'TMemo'#5'Memo1'#4'Le'
+  +#7'Caption'#6#13'Current code:'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6
-  +'ft'#2#8#6'Height'#3#209#0#3'Top'#2'('#5'Width'#3#209#1#5'Color'#7#9'clBtnFa'
+  +'TLabel'#7'CodeLbl'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.'
-  +'ce'#13'Lines.Strings'#1#6'fThe label at the bottom of this form indicates t'
+  +'Side'#7#9'asrCenter'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRi'
-  +'he status of the code. An invalid code indicates that '#6'Ethe code is eith'
+  +'ght.Side'#7#9'asrBottom'#4'Left'#3'Z'#1#6'Height'#2#15#3'Top'#2#13#5'Width'
-  +'er the incorrect type or that none has been entered. '#6#0#6'^If the proper'
+  +#2'`'#7'Anchors'#11#5'akTop'#7'akRight'#0#19'BorderSpacing.Right'#2#8#7'Capt'
-  +' code has not been entered or the ONGUARD.INI file was deleted, the message'
+  +'ion'#6#16'0000000000000000'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#7'TB'
-  +' will '#6#29'say that the code is invalid.'#6#0#6'YUse the "Enter Code" but'
+  +'utton'#7'CodeBtn'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Co'
-  +'ton to enter a code (the CODEGEN program can be used to generate '#6#28'the'
+  +'ntrol'#7#5'Owner'#4'Left'#2#8#6'Height'#2#25#3'Top'#2#8#5'Width'#2'Y'#20'Bo'
-  +' proper "Special" code). '#6#0#6'\The "Remove Code" button can be used to r'
+  +'rderSpacing.Around'#2#8#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#10'E'
-  +'emove the entered code from the INI file. Doing so '#6'Kwill cause the TOgS'
+  +'nter Code'#7'OnClick'#7#12'CodeBtnClick'#8'TabOrder'#2#0#0#0#7'TBitBtn'#8'C'
-  +'pecialCode component to report that the code is invalid.'#0#8'ReadOnly'#9#8
+  +'loseBtn'#21'AnchorSideTop.Control'#7#5'Memo1'#18'AnchorSideTop.Side'#7#9'as'
-  +'TabOrder'#2#1#0#0#7'TBitBtn'#8'CloseBtn'#4'Left'#3#144#1#6'Height'#2#25#3'T'
+  +'rBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7#9
-  +'op'#3#0#1#5'Width'#2'K'#4'Kind'#7#7'bkClose'#9'NumGlyphs'#2#0#8'TabOrder'#2
+  +'asrBottom'#4'Left'#3'o'#1#6'Height'#2#25#3'Top'#3#244#0#5'Width'#2'K'#7'Anc'
-  +#2#0#0#7'TButton'#9'RemoveBtn'#4'Left'#3' '#1#6'Height'#2#25#3'Top'#3#0#1#5
+  +'hors'#11#5'akTop'#0#20'BorderSpacing.Around'#2#8#4'Kind'#7#7'bkClose'#8'Tab'
-  +'Width'#2'a'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7
+  +'Order'#2#1#0#0#7'TButton'#9'RemoveBtn'#21'AnchorSideTop.Control'#7#8'CloseB'
-  +'OnClick'#7#14'RemoveBtnClick'#8'TabOrder'#2#3#0#0#14'TOgSpecialCode'#14'OgS'
+  +'tn'#23'AnchorSideRight.Control'#7#8'CloseBtn'#4'Left'#3#6#1#6'Height'#2#25#3
-  +'pecialCode1'#9'OnChecked'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGet'
+  +'Top'#3#244#0#5'Width'#2'a'#7'Anchors'#11#5'akTop'#7'akRight'#0#25'BorderSpa'
-  +'Code'#7#7'GetCode'#4'left'#2#16#3'top'#3#216#0#0#0#0
+  +'cing.InnerBorder'#2#4#7'Caption'#6#11'Remove Code'#7'OnClick'#7#14'RemoveBt'
  +'nClick'#8'TabOrder'#2#2#0#0#6'TLabel'#5'Memo1'#22'AnchorSideLeft.Control'#7
  +#5'Owner'#21'AnchorSideTop.Control'#7#7'CodeBtn'#18'AnchorSideTop.Side'#7#9
  +'asrBottom'#23'AnchorSideRight.Control'#7#5'Owner'#20'AnchorSideRight.Side'#7
  +#9'asrBottom'#4'Left'#2#8#6'Height'#3#195#0#3'Top'#2')'#5'Width'#3#178#1#7'A'
  +'nchors'#11#5'akTop'#6'akLeft'#7'akRight'#0#20'BorderSpacing.Around'#2#8#7'C'
  +'aption'#12'N'#2#0#0'The label at the bottom of this form indicates the stat'
  +'us of the code. An invalid code indicates that the code is either the incor'
  +'rect type or that none has been entered. '#13#10#13#10'If the proper code h'
  +'as not been entered or the ONGUARD.INI file was deleted, the message will s'
  +'ay that the code is invalid.'#13#10#13#10'Use the "Enter Code" button to en'
  +'ter a code (the CODEGEN program can be used to generate the proper "Special'
  +'" code). '#13#10#13#10'The "Remove Code" button can be used to remove the e'
  +'ntered code from the INI file. Doing so will cause the TOgSpecialCode compo'
  +'nent to report that the code is invalid.'#5'Color'#7#9'clBtnFace'#11'Parent'
  +'Color'#8#8'WordWrap'#9#0#0#14'TOgSpecialCode'#14'OgSpecialCode1'#9'OnChecke'
  +'d'#7#11'CodeChecked'#8'OnGetKey'#7#6'GetKey'#9'OnGetCode'#7#7'GetCode'#4'Le'
  +'ft'#3#168#0#3'Top'#3#136#0#0#0#0
 ]);
--- a/components/onguard/examples/exspreg/exspregu.pas
+++ b/components/onguard/examples/exspreg/exspregu.pas
@@ -14,8 +14,8 @@ type
  TForm1 = class(TForm)
    CodeBtn: TButton;
    Memo1: TMemo;
    CloseBtn: TBitBtn;
    Memo1: TLabel;
    StatusLbl: TLabel;
    Label1: TLabel;
    CodeLbl: TLabel;
--- a/Show More
+++ b/Show More
`@@ -1,4 +1,4 @@`
	`unit CODEGENU;`	`unit CodeGenU;`

	`{$MODE Delphi}`	`{$MODE Delphi}`
`@@ -1,2 +1,2 @@`
	`[Codes]`	`[Codes]`
	`DaysCode=85A52AA9BB5EEE6C5D13`	`DaysCode=1CFD160ECF31269CB526`
`@@ -1,2 +1 @@`
	`[Codes]`	`[Codes]`
	`SpecialCode=B52A3ABB5EA876AC`