Icons, Add cancel button to Database comparison, add server time to database info

	modified:   TurboBird.ico
	modified:   TurboBird.lpi
	modified:   TurboBird.lpr
	modified:   TurboBird.res
	modified:   about.lfm
	modified:   about.lrs
	modified:   comparison.lfm
	modified:   comparison.pas
	modified:   copytable.pas
	modified:   createuser.lfm
	modified:   createuser.lrs
	modified:   createuser.pas
	modified:   dbinfo.lfm
	modified:   dbinfo.pas
	modified:   main.lfm
	modified:   main.lrs
	modified:   main.pas
	modified:   newtable.lfm
	modified:   newtable.lrs
	modified:   newtable.pas
	modified:   permissionmanage.lfm
	modified:   permissionmanage.lrs
	modified:   systables.pas

TurboBird.lpi

@@ -17,8 +17,8 @@
       <UseVersionInfo Value="True"/>
       <AutoIncrementBuild Value="True"/>
       <MinorVersionNr Value="9"/>
-      <RevisionNr Value="5"/>
-      <BuildNr Value="1076"/>
+      <RevisionNr Value="6"/>
+      <BuildNr Value="1078"/>
       <StringTable ProductVersion="0.9"/>
     </VersionInfo>
     <BuildModes Count="1">
@@ -62,8 +62,8 @@
         <UnitName Value="TurboBird"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="1"/>
-        <CursorPos X="26" Y="5"/>
+        <TopLine Value="7"/>
+        <CursorPos X="19" Y="27"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -74,11 +74,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="main"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="6"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="396"/>
-        <CursorPos X="3" Y="399"/>
+        <TopLine Value="404"/>
+        <CursorPos X="42" Y="461"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -90,7 +89,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="CreateDb"/>
-        <EditorIndex Value="7"/>
+        <EditorIndex Value="10"/>
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="76" Y="6"/>
@@ -105,7 +104,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Reg"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="9"/>
         <WindowIndex Value="0"/>
         <TopLine Value="235"/>
         <CursorPos X="22" Y="270"/>
@@ -127,7 +126,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="QueryWindow"/>
-        <EditorIndex Value="10"/>
+        <EditorIndex Value="13"/>
         <WindowIndex Value="0"/>
         <TopLine Value="374"/>
         <CursorPos X="20" Y="377"/>
@@ -209,10 +208,13 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="NewTable"/>
+        <EditorIndex Value="5"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="102"/>
-        <CursorPos X="67" Y="115"/>
+        <TopLine Value="285"/>
+        <CursorPos X="13" Y="288"/>
         <UsageCount Value="200"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit13>
       <Unit14>
         <Filename Value="newgen.pas"/>
@@ -232,7 +234,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="EnterPass"/>
-        <EditorIndex Value="14"/>
+        <EditorIndex Value="17"/>
         <WindowIndex Value="0"/>
         <TopLine Value="4"/>
         <CursorPos X="18" Y="22"/>
@@ -247,10 +249,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="About"/>
-        <EditorIndex Value="11"/>
+        <EditorIndex Value="14"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="4"/>
-        <CursorPos X="9" Y="7"/>
+        <TopLine Value="13"/>
+        <CursorPos X="8" Y="19"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -469,10 +471,10 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="DataModule"/>
         <UnitName Value="SysTables"/>
-        <EditorIndex Value="1"/>
+        <EditorIndex Value="2"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="568"/>
-        <CursorPos X="3" Y="573"/>
+        <TopLine Value="698"/>
+        <CursorPos X="18" Y="722"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
@@ -591,7 +593,7 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="TableManage"/>
-        <EditorIndex Value="9"/>
+        <EditorIndex Value="12"/>
         <WindowIndex Value="0"/>
         <TopLine Value="384"/>
         <CursorPos X="1" Y="405"/>
@@ -638,9 +640,9 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="BackupRestore"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="8"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="20"/>
+        <TopLine Value="105"/>
         <CursorPos X="22" Y="55"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
@@ -705,12 +707,16 @@
         <Filename Value="createuser.pas"/>
         <IsPartOfProject Value="True"/>
         <ComponentName Value="fmCreateUser"/>
+        <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="CreateUser"/>
+        <EditorIndex Value="1"/>
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
-        <CursorPos X="71" Y="7"/>
-        <UsageCount Value="172"/>
+        <CursorPos X="24" Y="12"/>
+        <UsageCount Value="175"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit68>
       <Unit69>
         <Filename Value="changepass.pas"/>
@@ -719,11 +725,11 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="ChangePass"/>
-        <EditorIndex Value="12"/>
+        <EditorIndex Value="15"/>
         <WindowIndex Value="0"/>
         <TopLine Value="3"/>
         <CursorPos X="88" Y="14"/>
-        <UsageCount Value="171"/>
+        <UsageCount Value="174"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit69>
@@ -734,11 +740,12 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="PermissionManage"/>
-        <EditorIndex Value="3"/>
+        <IsVisibleTab Value="True"/>
+        <EditorIndex Value="4"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="270"/>
+        <TopLine Value="274"/>
         <CursorPos X="33" Y="284"/>
-        <UsageCount Value="169"/>
+        <UsageCount Value="172"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit70>
@@ -749,11 +756,11 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="SQLHistory"/>
-        <EditorIndex Value="13"/>
+        <EditorIndex Value="16"/>
         <WindowIndex Value="0"/>
         <TopLine Value="4"/>
         <CursorPos X="20" Y="89"/>
-        <UsageCount Value="154"/>
+        <UsageCount Value="157"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit71>
@@ -778,11 +785,11 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="CopyTable"/>
-        <EditorIndex Value="8"/>
+        <EditorIndex Value="11"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="120"/>
-        <CursorPos X="20" Y="126"/>
-        <UsageCount Value="125"/>
+        <TopLine Value="1"/>
+        <CursorPos X="51" Y="14"/>
+        <UsageCount Value="128"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit74>
@@ -974,10 +981,13 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="dbInfo"/>
+        <EditorIndex Value="7"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="31"/>
-        <CursorPos X="19" Y="39"/>
-        <UsageCount Value="93"/>
+        <TopLine Value="39"/>
+        <CursorPos X="3" Y="64"/>
+        <UsageCount Value="96"/>
+        <Loaded Value="True"/>
+        <LoadedDesigner Value="True"/>
       </Unit98>
       <Unit99>
         <Filename Value="../../FromInternet/fpc2.4/fpc-2.4.4/packages/ibase/src/ibase60dyn.pp"/>
@@ -1009,11 +1019,11 @@
         <HasResources Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Comparison"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="3"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="600"/>
-        <CursorPos X="95" Y="626"/>
-        <UsageCount Value="80"/>
+        <TopLine Value="244"/>
+        <CursorPos X="15" Y="255"/>
+        <UsageCount Value="83"/>
         <Loaded Value="True"/>
         <LoadedDesigner Value="True"/>
       </Unit102>
@@ -1049,129 +1059,129 @@
         <WindowIndex Value="0"/>
         <TopLine Value="1"/>
         <CursorPos X="1" Y="1"/>
-        <UsageCount Value="26"/>
+        <UsageCount Value="29"/>
       </Unit106>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="main.pas"/>
-        <Caret Line="678" Column="30" TopLine="658"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="625" Column="1" TopLine="608"/>
       </Position1>
       <Position2>
-        <Filename Value="main.pas"/>
-        <Caret Line="693" Column="3" TopLine="686"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="165" Column="3" TopLine="162"/>
       </Position2>
       <Position3>
-        <Filename Value="enterpass.pas"/>
-        <Caret Line="37" Column="32" TopLine="1"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="1851" Column="7" TopLine="1789"/>
       </Position3>
       <Position4>
-        <Filename Value="enterpass.pas"/>
-        <Caret Line="38" Column="32" TopLine="3"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="165" Column="3" TopLine="162"/>
       </Position4>
       <Position5>
         <Filename Value="comparison.pas"/>
-        <Caret Line="781" Column="8" TopLine="757"/>
+        <Caret Line="668" Column="1" TopLine="651"/>
       </Position5>
       <Position6>
         <Filename Value="comparison.pas"/>
-        <Caret Line="764" Column="19" TopLine="763"/>
+        <Caret Line="165" Column="3" TopLine="162"/>
       </Position6>
       <Position7>
         <Filename Value="comparison.pas"/>
-        <Caret Line="264" Column="3" TopLine="259"/>
+        <Caret Line="674" Column="22" TopLine="654"/>
       </Position7>
       <Position8>
         <Filename Value="comparison.pas"/>
-        <Caret Line="155" Column="3" TopLine="152"/>
+        <Caret Line="165" Column="3" TopLine="162"/>
       </Position8>
       <Position9>
-        <Filename Value="main.pas"/>
-        <Caret Line="695" Column="31" TopLine="686"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="731" Column="5" TopLine="711"/>
       </Position9>
       <Position10>
-        <Filename Value="main.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="165" Column="3" TopLine="162"/>
       </Position10>
       <Position11>
-        <Filename Value="main.pas"/>
-        <Caret Line="44" Column="13" TopLine="15"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="679" Column="15" TopLine="663"/>
       </Position11>
       <Position12>
-        <Filename Value="main.pas"/>
-        <Caret Line="399" Column="3" TopLine="396"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="165" Column="3" TopLine="162"/>
       </Position12>
       <Position13>
-        <Filename Value="copytable.pas"/>
-        <Caret Line="173" Column="3" TopLine="155"/>
+        <Filename Value="comparison.pas"/>
+        <Caret Line="794" Column="15" TopLine="774"/>
       </Position13>
       <Position14>
         <Filename Value="comparison.pas"/>
-        <Caret Line="749" Column="11" TopLine="706"/>
+        <Caret Line="830" Column="15" TopLine="807"/>
       </Position14>
       <Position15>
         <Filename Value="comparison.pas"/>
-        <Caret Line="750" Column="11" TopLine="714"/>
+        <Caret Line="100" Column="15" TopLine="86"/>
       </Position15>
       <Position16>
         <Filename Value="comparison.pas"/>
-        <Caret Line="751" Column="11" TopLine="715"/>
+        <Caret Line="224" Column="24" TopLine="208"/>
       </Position16>
       <Position17>
         <Filename Value="comparison.pas"/>
-        <Caret Line="157" Column="3" TopLine="155"/>
+        <Caret Line="234" Column="27" TopLine="211"/>
       </Position17>
       <Position18>
         <Filename Value="comparison.pas"/>
-        <Caret Line="627" Column="8" TopLine="598"/>
+        <Caret Line="246" Column="19" TopLine="243"/>
       </Position18>
       <Position19>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="1" Column="1" TopLine="1"/>
+        <Filename Value="about.pas"/>
+        <Caret Line="7" Column="9" TopLine="4"/>
       </Position19>
       <Position20>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="10" Column="9" TopLine="1"/>
+        <Filename Value="newtable.pas"/>
+        <Caret Line="115" Column="67" TopLine="102"/>
       </Position20>
       <Position21>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="74" Column="21" TopLine="46"/>
+        <Filename Value="newtable.pas"/>
+        <Caret Line="117" Column="67" TopLine="104"/>
       </Position21>
       <Position22>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="75" Column="21" TopLine="47"/>
+        <Filename Value="createuser.pas"/>
+        <Caret Line="7" Column="71" TopLine="3"/>
       </Position22>
       <Position23>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="343" Column="18" TopLine="335"/>
+        <Filename Value="dbinfo.pas"/>
+        <Caret Line="39" Column="19" TopLine="31"/>
       </Position23>
       <Position24>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="346" Column="11" TopLine="334"/>
+        <Filename Value="dbinfo.pas"/>
+        <Caret Line="40" Column="19" TopLine="32"/>
       </Position24>
       <Position25>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="11" Column="40" TopLine="1"/>
+        <Filename Value="dbinfo.pas"/>
+        <Caret Line="41" Column="19" TopLine="32"/>
       </Position25>
       <Position26>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="397" Column="21" TopLine="369"/>
+        <Filename Value="dbinfo.pas"/>
+        <Caret Line="42" Column="19" TopLine="32"/>
       </Position26>
       <Position27>
-        <Filename Value="querywindow.pas"/>
-        <Caret Line="376" Column="13" TopLine="359"/>
+        <Filename Value="dbinfo.pas"/>
+        <Caret Line="41" Column="19" TopLine="32"/>
       </Position27>
       <Position28>
-        <Filename Value="backuprestore.pas"/>
-        <Caret Line="54" Column="22" TopLine="19"/>
+        <Filename Value="dbinfo.pas"/>
+        <Caret Line="42" Column="19" TopLine="33"/>
       </Position28>
       <Position29>
-        <Filename Value="createdb.pas"/>
-        <Caret Line="18" Column="115" TopLine="1"/>
+        <Filename Value="dbinfo.pas"/>
+        <Caret Line="64" Column="3" TopLine="39"/>
       </Position29>
       <Position30>
-        <Filename Value="reg.pas"/>
-        <Caret Line="269" Column="22" TopLine="234"/>
+        <Filename Value="main.pas"/>
+        <Caret Line="420" Column="3" TopLine="414"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

TurboBird.lpr

@@ -2,7 +2,7 @@
 {  TurboBird: FireBird database administration and management tool          }
 {  Developed by: Motaz Abdel Azeem http://code.sd/                          }
 {  Start development :  5.Dec.2009                                          }
-{  Last updated      : 22.Dec.2012                                          }
+{  Last updated      : 23.Dec.2012                                          }
 {  License           : GPL for GUI, LGPL for Units                          }
 {***************************************************************************}
 
@@ -24,7 +24,7 @@ uses
   sysutils, Comparison;
 
 const
-  Version = '0.9.5';
+  Version = '0.9.6';
   VersionDate = '2010 - Dec 2012';
 {$IFDEF Unix}
 {$DEFINE extdecl:=cdecl}

about.lfm

@@ -12,7 +12,7 @@ object fmAbout: TfmAbout
   Color = 15792364
   OnClose = FormClose
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.0.4.0'
   object Shape1: TShape
     Left = 9
     Height = 294
@@ -58,8 +58,8 @@ object fmAbout: TfmAbout
     Left = 24
     Height = 18
     Top = 168
-    Width = 171
-    Caption = 'http://code.sd/turbobird'
+    Width = 204
+    Caption = 'http://code-sd.com/turbobird'
     Font.Color = 7303023
     ParentColor = False
     ParentFont = False
@@ -81,15 +81,15 @@ object fmAbout: TfmAbout
     Left = 240
     Height = 18
     Top = 65
-    Width = 101
-    Caption = '2010 - Jan 2011'
+    Width = 106
+    Caption = '2010 - May 2012'
     Font.Color = 6908265
     ParentColor = False
     ParentFont = False
   end
   object BitBtn1: TBitBtn
-    Left = 24
-    Height = 30
+    Left = 9
+    Height = 43
     Top = 312
     Width = 75
     Caption = '&OK'

about.lrs

@@ -5,156 +5,157 @@ LazarusResources.Add('TfmAbout','FORMDATA',[
   +#5'Width'#3#144#1#13'ActiveControl'#7#7'BitBtn1'#11'BorderIcons'#11#0#11'Bor'
   +'derStyle'#7#8'bsDialog'#7'Caption'#6#15'About TurboBird'#12'ClientHeight'#3
   +'n'#1#11'ClientWidth'#3#144#1#5'Color'#4#236#248#240#0#7'OnClose'#7#9'FormCl'
-  +'ose'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.31'#0#6'TShape'
-  +#6'Shape1'#4'Left'#2#9#6'Height'#3'&'#1#3'Top'#2#5#5'Width'#3#128#1#11'Brush'
-  +'.Color'#7#7'clCream'#11'Brush.Style'#7#11'bsDiagCross'#9'Pen.Color'#7#12'cl'
-  +'MoneyGreen'#13'Pen.JoinStyle'#7#8'pjsMiter'#0#0#6'TLabel'#6'Label2'#4'Left'
-  +#3#240#0#6'Height'#2#20#3'Top'#2#16#5'Width'#3#139#0#7'Caption'#6#19'FireBir'
-  +'d Admin Tool'#10'Font.Color'#4'b[['#0#11'Font.Height'#2#240#10'Font.Style'
-  +#11#8'fsItalic'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#9'laVersi'
-  +'on'#4'Left'#3#240#0#6'Height'#2#18#3'Top'#2','#5'Width'#2'y'#7'Caption'#6#18
-  +'Beta Version 0.9.0'#10'Font.Color'#4'ooo'#0#11'ParentColor'#8#10'ParentFont'
-  +#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#24#6'Height'#2#18#3'Top'#3#136#0#5'Widt'
-  +'h'#3#201#0#7'Caption'#6#27'Developed By TurboBird team'#11'ParentColor'#8#0
-  +#0#6'TLabel'#9'laWebSite'#6'Cursor'#7#11'crHandPoint'#4'Left'#2#24#6'Height'
-  +#2#18#3'Top'#3#168#0#5'Width'#3#171#0#7'Caption'#6#24'http://code.sd/turbobi'
-  +'rd'#10'Font.Color'#4'ooo'#0#11'ParentColor'#8#10'ParentFont'#8#7'OnClick'#7
-  +#14'laWebSiteClick'#0#0#6'TLabel'#6'Label6'#6'Cursor'#7#11'crHandPoint'#4'Le'
-  +'ft'#2#24#6'Height'#2#18#3'Top'#3#200#0#5'Width'#3#234#0#7'Caption'#6'#Writt'
-  +'en using Free Pascal / Lazarus'#10'Font.Color'#4'ooo'#0#11'ParentColor'#8#10
-  +'ParentFont'#8#7'OnClick'#7#11'Label6Click'#0#0#6'TLabel'#13'laVersionDate'#4
-  +'Left'#3#240#0#6'Height'#2#18#3'Top'#2'A'#5'Width'#2'e'#7'Caption'#6#15'2010'
-  +' - Jan 2011'#10'Font.Color'#4'iii'#0#11'ParentColor'#8#10'ParentFont'#8#0#0
-  +#7'TBitBtn'#7'BitBtn1'#4'Left'#2#24#6'Height'#2#30#3'Top'#3'8'#1#5'Width'#2
-  +'K'#7'Caption'#6#3'&OK'#5'Color'#4#219#242#247#0#7'Default'#9#4'Kind'#7#4'bk'
-  +'OK'#11'ModalResult'#2#1#7'OnClick'#7#12'BitBtn1Click'#8'TabOrder'#2#0#0#0#6
-  +'TImage'#6'Image2'#4'Left'#2#24#6'Height'#2'='#3'Top'#2#16#5'Width'#3#201#0
-  +#12'Picture.Data'#10#195#11#0#0#10'TJpegImage'#180#11#0#0#255#216#255#224#0
-  +#16'JFIF'#0#1#1#1#0'H'#0'H'#0#0#255#254#0#19'Created with GIMP'#255#219#0'C'
-  +#0#5#3#4#4#4#3#5#4#4#4#5#5#5#6#7#12#8#7#7#7#7#15#11#11#9#12#17#15#18#18#17#15
-  +#17#17#19#22#28#23#19#20#26#21#17#17#24'!'#24#26#29#29#31#31#31#19#23'"$"'#30
-  +'$'#28#30#31#30#255#219#0'C'#1#5#5#5#7#6#7#14#8#8#14#30#20#17#20#30#30#30#30
+  +'ose'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.4.0'#0#6'TShap'
+  +'e'#6'Shape1'#4'Left'#2#9#6'Height'#3'&'#1#3'Top'#2#5#5'Width'#3#128#1#11'Br'
+  +'ush.Color'#7#7'clCream'#11'Brush.Style'#7#11'bsDiagCross'#9'Pen.Color'#7#12
+  +'clMoneyGreen'#13'Pen.JoinStyle'#7#8'pjsMiter'#0#0#6'TLabel'#6'Label2'#4'Lef'
+  +'t'#3#240#0#6'Height'#2#20#3'Top'#2#16#5'Width'#3#139#0#7'Caption'#6#19'Fire'
+  +'Bird Admin Tool'#10'Font.Color'#4'b[['#0#11'Font.Height'#2#240#10'Font.Styl'
+  +'e'#11#8'fsItalic'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#9'laVe'
+  +'rsion'#4'Left'#3#240#0#6'Height'#2#18#3'Top'#2','#5'Width'#2'y'#7'Caption'#6
+  +#18'Beta Version 0.9.0'#10'Font.Color'#4'ooo'#0#11'ParentColor'#8#10'ParentF'
+  +'ont'#8#0#0#6'TLabel'#6'Label4'#4'Left'#2#24#6'Height'#2#18#3'Top'#3#136#0#5
+  +'Width'#3#201#0#7'Caption'#6#27'Developed By TurboBird team'#11'ParentColor'
+  +#8#0#0#6'TLabel'#9'laWebSite'#6'Cursor'#7#11'crHandPoint'#4'Left'#2#24#6'Hei'
+  +'ght'#2#18#3'Top'#3#168#0#5'Width'#3#204#0#7'Caption'#6#28'http://code-sd.co'
+  +'m/turbobird'#10'Font.Color'#4'ooo'#0#11'ParentColor'#8#10'ParentFont'#8#7'O'
+  +'nClick'#7#14'laWebSiteClick'#0#0#6'TLabel'#6'Label6'#6'Cursor'#7#11'crHandP'
+  +'oint'#4'Left'#2#24#6'Height'#2#18#3'Top'#3#200#0#5'Width'#3#234#0#7'Caption'
+  +#6'#Written using Free Pascal / Lazarus'#10'Font.Color'#4'ooo'#0#11'ParentCo'
+  +'lor'#8#10'ParentFont'#8#7'OnClick'#7#11'Label6Click'#0#0#6'TLabel'#13'laVer'
+  +'sionDate'#4'Left'#3#240#0#6'Height'#2#18#3'Top'#2'A'#5'Width'#2'j'#7'Captio'
+  +'n'#6#15'2010 - May 2012'#10'Font.Color'#4'iii'#0#11'ParentColor'#8#10'Paren'
+  +'tFont'#8#0#0#7'TBitBtn'#7'BitBtn1'#4'Left'#2#9#6'Height'#2'+'#3'Top'#3'8'#1
+  +#5'Width'#2'K'#7'Caption'#6#3'&OK'#5'Color'#4#219#242#247#0#7'Default'#9#4'K'
+  +'ind'#7#4'bkOK'#11'ModalResult'#2#1#7'OnClick'#7#12'BitBtn1Click'#8'TabOrder'
+  +#2#0#0#0#6'TImage'#6'Image2'#4'Left'#2#24#6'Height'#2'='#3'Top'#2#16#5'Width'
+  +#3#201#0#12'Picture.Data'#10#195#11#0#0#10'TJpegImage'#180#11#0#0#255#216#255
+  +#224#0#16'JFIF'#0#1#1#1#0'H'#0'H'#0#0#255#254#0#19'Created with GIMP'#255#219
+  +#0'C'#0#5#3#4#4#4#3#5#4#4#4#5#5#5#6#7#12#8#7#7#7#7#15#11#11#9#12#17#15#18#18
+  +#17#15#17#17#19#22#28#23#19#20#26#21#17#17#24'!'#24#26#29#29#31#31#31#19#23
+  +'"$"'#30'$'#28#30#31#30#255#219#0'C'#1#5#5#5#7#6#7#14#8#8#14#30#20#17#20#30
   +#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30
-  +#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#255#192#0#17
-  +#8#0'<'#0#200#3#1'"'#0#2#17#1#3#17#1#255#196#0#28#0#0#1#4#3#1#0#0#0#0#0#0#0#0
-  +#0#0#0#4#0#1#7#8#3#5#6#2#255#196#0'J'#16#0#1#2#4#4#2#5#3#15#9#9#1#0#0#0#0#1#2
-  +#3#0#4#5#17#6#7#18'!1Q'#8#19#20'A'#162'Sa'#179#21#22#23'"BCRVcq'#145#149#161
-  +#210#225'27Eb'#148#177#180#195#211'#$&su'#132#133#163#178#193#255#196#0#23#1
-  +#1#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#1#2#3#255#196#0#26#17#1#0#3#1#1#1#0#0#0#0
-  +#0#0#0#0#0#0#0#1#17#18#19#3#2#255#218#0#12#3#1#0#2#17#3#17#0'?'#0#184#176#160
-  +'t'#165'c'#138#140'z'#26#185#198#173#207#155'4('#141'U'#158#25'`'#149#20#156
-  +'R'#139#131'c'#253#206'c'#250'p'#222#206'9_'#241#169#31#177#204#127'N'#26'9'
-  +#202'K'#133#28#254#15#197#148'<_Lr'#165#135''''#196#244#163'o'#22#22#224'mh'
-  +#178#194'R'#162','#176#15#5''''#233#141#205#213#223'x'#154#133#143#31#166'hQ'
-  +#135'Q'#231#11'Q'#231#13#28'e'#158#27'h'#194#20'cG'#140'q'#142#27#193#242#140
-  +'MbJ'#163'R'#13#190#178#134#181'!KR'#200#23'6JA6'#27'\'#218#194#227#152#134
-  +#161''''#202'a'#209'm'#10#241#167#194#216#142#141#138')'#8#171'Pg'#219#158
-  +#146'Z'#138#3#136#4'YC'#136' '#128'A'#243#17#222#15'|m5E'#212#28#229#146#240
-  +#175#24#239#15#189#184'CG9z'#133#0'V'#234#178#20'JT'#205'V'#171'4'#220#164
-  +#148#178'5'#188#243#135'd'#143#254#155#216#0'7$'#216'G'#13#236#227#149#223#26
-  +#145#251#28#199#244#226'h'#231')"'#21#226'6'#246'p'#202#242'm'#235#173#191
-  +#216#230'?'#167#18#4#172#195'3r'#173'MJ'#188#135#152'y'#9'q'#167#16#171#165
-  +'i"'#225'@'#247#130#13#225#162'<'#197'^'#21#224'r'#171'B'#214'9'#195'Mr'#150
-  +'{'#194#188'a'#214'!'#245#136'h'#229','#183#135#188'iq>"'#163'a'#154'C'#149
-  +'j'#236#251'RRHPIq`'#155#147#192#0#1'$'#249#128#231#2#224#236'i'#134#177'|'
-  +#179#243#24'r'#170#212#250'%'#214#16#246#148#169#10'A"'#226#233'P'#6#198#198
-  +#198#214'6<'#140'4'#156#229#210'B'#129#203#156#161'D'#220'5'#30#31'Cz'#180
-  +#242#135#8'O!'#15#10#10#136#250'C'#225'|3!'#147#152#134'vG'#14#210'%f'#155'm'
-  +#162#135#153#146'm'#11'I/6'#13#148#5#198#196#196'-'#209#2#151'L'#171'f'#29'N'
-  +'^'#171'N'#147#159'e4'#149#173'-'#204#176#151'R'#21#215'4.'#2#129#23#177';'
-  +#249#226#192't'#149#252#200'bO'#242#153#244#237#196#23#208#171#243#151'U'#255
-  +#0'F_'#166'f'#2#214#210#233'T'#186'T'#186#165#233't'#217'9'#22'T'#178#181'7,'
-  +#194'[IU'#128#189#146#0#189#128#223#204' '#189')'#228'"'#178'g'#238'q'#227
-  ,#140'-'#153#211#212#10#20#244#180#164#148#155'l'#217'&Y'#14#21#149'6'#149#146
-  +#162#160'O'#186#182#214#216'D'#187#140#177#141'R'#155#145'ncIDK'#162#164#186
-  +'T'#188#202'AI-'#161#199'B.@''p5'#146#1#228'/x'#14#251'J~'#8#133#165'?'#4'}'
-  +#17'Y'#242'S9'#177#173'q'#204'R'#138#220#196#164#240#166#208'&jr'#228#203#165
-  +#187'8'#214#155'$'#232#181#210'uo'#223#176#177#17#203'a'#28#253#205#9#170#199
-  +'aJ%'#171's3'#136'S'#18#178#194'Q()u_'#146#161#160#2'l{'#142#214#191#14'0'#23
-  +#7'B~'#8#250'"'#182't'#226#0'Ka+'#15'w7'#251#153#143'X'#198#167#210'O'#13#246
-  +';'#186#138#184#153'oQ4'#186'b&:'#149'w'#161'vn'#224#239#199#129#238'&9'#174
-  +#146#179#152#142#161#151'yy9'#139'e'#4#165'i'#212'N'#25#166#180'h '#221#160
-  +#146'S'#238'TS'#164#145#220'I'#22#28' $'#190#134#128#28#168#154#184#253'.'
-  +#247#163'j&'#189')'#228'"'#162't{'#169'fuC'#15#185#134'0'#7'a'#167'K'#177'4'
-  +#228#220#229'Nq'#189'M'#234'ZP'#148#181#186'U'#191#181#190#192#157#251#128
-  +#223'._'#231'~cM'#230'='#22#139'U'#169#202'NJ'#205'T'#218#147'}'#190#200#218
-  +#1'J'#220#8'$'#20#128'A'#23#184#249#183#128#182#218'S'#200'B'#210'"'#165'fFx'
-  +'f%?1'#171'tzUNVRRR'#160#228#163#13#137'F'#215'`'#133#148#2'J'#129'$'#155'\'
-  +#252#251'GQ'#153#181#140#247#192#24'q5'#218#182'/'#160#204'K'#170'a,'#4'J'
-  +#202'%K'#212#160#162#15#182'h'#11'{S'#223#1'"'#244#153'H'#25#31#136#207#234
-  +'1'#252'Cq'#2't@'#165'S*'#248#250#168#197'R'#157'''>'#210')jZQ2'#194']HWZ'
-  +#216#184#10#7'{'#19#191#158'6'#146#217#137#137'q'#222'B'#230#19'X'#145#246'&'
-  +'\'#167#246#2#203#168'e-'#168#135#31#23'I'#9#176#176#234#197#182#190#231#205
-  +#17#254'HU'#241'U;'#18'NH`'#185'0'#253'f'#173'&d'#218't'#240#150'IZT'#167'Ov'
-  +#193'<N'#194#247#223#129#14#131':'#240#155#181#172#254#156#195'8B'#153'.\ZXJ'
-  +'X'#149'BP'#219'G'#170'IR'#149#167'd'#129'{'#147#19#30'8'#204#217'|'#156#165
-  +'a'#172'!5Gv'#177'6'#205'!'#148#184#235'o'#134'['#178#19#213#220']$'#155#148
-  +'('#218#194#194#220#226#12#157#173#227#188#153#197#245'J,'#181'R'#158#186#147
-  +#197#15'M'#205#161#132#190#167'u'#164','#13'n''W}'#200#231#188'v'#249#255#0
-  +#153'5'#160#206#13'Ri'#244'5'#153#234#3#21'7L'#205'9'#169#157'.<='#178'S'#214
-  +#133'iH'#210'8o'#204#157#160#182#176#216#10#187'/'#140'0};'#18'KK;,'#212#243
-  +'ea'#167#8'*A'#10')"'#227#136#184'6='#226#220'#w'#217#211#202'+~5'#205#220'['
-  +'E'#201#204#9'T'#163#153#9#9#186#162'&'#18#250#154#149'N'#148#165#133#4'$!'#7
-  +#218#164#27#220#128'6'#182#214#27'G'#156#185#204'<'#232#204'yF'#233#184'yt'
-  +#201'7d'#138#213';W'#152#151#1#183'/'#249#13#145#165'@+'#143#228#167'}'#137
-  +#183'|'#165#212#172#151'P9B'#234'|'#209'^'#176'N)'#233#0's'#22#159'I'#175'Rf'
-  +#158#166#137#208#204#235#139#166'%'#182':'#171#217'kK'#169'H'#27#11#144'A'
-  +#220#128'7'#189#163#150#204#140#240#204'J~cV'#232#244#170#156#172#164#164#165
-  +'A'#201'F'#27#18#141#174#193#11'('#4#149#2'I6'#185#249#246#133#27#148#147#211
-  +#5#189'9N'#209#183#233'F'#127#240#228'r='#8#145#172'b'#237#175'n'#197#252#248
-  +#208#244#130#169'f}7'#14#167#13'c'#254#195'R'#149#153#153'nfN'#165'&'#222#150
-  +#210#164'%AM'#155'%;'#251'k'#216#128'v'#218#227#135'E'#208'l'#128'1'#135#251
-  +'/'#231#194#147'Sv'#177#221'O'#234#152'PF'#161#206#20')w&'#188'"'#187'q0('
-  +#153#191#154#24#184'U'#21#151#11#210'MAY%'#137#0'7'#254#201#159'N'#220'A'#157
-  +#10#246#204#170#169#238#245#29'~'#153#152#180#243'L'#179'7,'#236#180#211'->'
-  +#195#169'(q'#167#16#20#149#164#236'A'#7'b'#15'('#14#135'A'#160'P'#203#166#139
-  +'D'#166'S'#11#214#235'{'#28#170#25#215'n'#23#210#5#237's'#199#156#5'?'#233'M'
-  +#249#240#174#30'h'#150#254#29#184#239'3/5(SY'#31'L'#193't'#18#170#164#251#212
-  +#169'f'#231#148#218#20#17'&'#150#210#222#173'F'#219#157'I'#182#219#14'$'#240
-  +#6#192'Vp'#214#25#173'M&j'#179#135#169#21''''#210#157#9'vnI'#183'V'#19#198
-  +#192#168#19'm'#206#209#226'C'#11'aZr&'#17'N'#195'Ti4'#204#182'Z|1"'#211'a'
-  +#212#30')U'#146'5'''#204'v'#128#168#189#31'o'#215#227#155#3#190#14#159#31'kq'
-  +#235#162#206#217#219'F<'#155#153#244#11#139'wF'#195#212#10'/]'#234'5'#14#153
-  +'M'#235#128#14#246'ID5'#214#1#195'V'#144'/'#196#241#231#30'('#248'k'#13#209
-  +#166#149'7H'#195#244#154't'#194#210'R'#167'ed'#219'ijI7 '#148#128'mp :'#16
-  +#228'V'#238#155#231'T'#190#19'='#218#230#255#0's1a'#181'y'#224#26#205'&'#147
-  +'Z'#150'L'#181'f'#153'%Ra*'#214#150#230#229#208#234'B'#184'\'#5#2'/'#185#222
-  +#2#4#232#199#152#24'?'#11#229#228#197':'#189']'#151#144#154'UI'#199'CKJ'#201
-  +'((l'#3#176'='#224#253#17#11'e'#202#210#230'pa'#199#27':'#146#170#252#178#146
-  +'Gx'#237#9'1s'#189'a`O'#137'Xo'#234#182'~'#236'g'#167'a'#28'%L'#157'nv'#157
-  +#133#232'rsM'#220#182#244#188#131'M'#173#23#22'6RR'#8#218#2#149#230#146#130
-  +'3w'#18#173'f'#192'V'#166#9''''#151'\'#168#155'zMf'#22#13#197#25'p'#221'6'
-  +#131'^'#151#158#155#21#6#157'-!+'#7'HJ'#193';'#129#204'D'#207'S'#194#152'J'
-  +#167':'#228#237'O'#11#209'''f'#156#182#183#166'$'#26'q'#197'XX]JI''h'#28'`L'
-  +#9#241'+'#13#253'V'#199#221#128#170#153'm'#127'a'#12#208#176';'#166#151#233
-  +#215#6't^'#196#244',+'#141'j3'#213#250#147'R'#18#238#211#148#210#28'p'#18#10
-  +#250#198#205#182#7#184#31#162'-'#140#141#10#129'#M~'#153'!D'#166'JH'#204'_'
-  ,#175#150'fQ'#8'i'#219#139#29'I'#2#198#227'm'#196'k}a`_'#137'Xo'#234#182'~'
-  +#236#5'F'#233#7'\'#165'b,'#210#168'Uh'#211#168#156#146'u'#166'R'#135'P'#8#4
-  +#165#180#131#196#3#196'A'#217#247'~'#163#0'\'#17#254#14#144#31'b'#162#214#12
-  +#5#129'A'#191#172#188'8?'#226#217#251#177#176#172#208'p'#253'h2+'#20':eD0'#8
-  +'dM'#202'!'#222#172#27'_N'#160'm'#192'p'#229#1'R3/W'#176'VX'#220#16#0#168#250
-  +'d'#196#211#208#237'e9U47'#222#172#241#255#0#173#168#147#231#168't'#26#133'5'
-  +#138'd'#245#22#155'5#/n'#166'Y'#233'T-'#166#236',4'#160#139#11#13#182#16'U2B'
-  +'B'#153'$'#137'*d'#148#180#148#171'w'#208#204#187'Im'#9#185#185#178'R'#0#27
-  +#192#27#214'|'#241'BsIA'#25#185#137#22#189#128#173'L'#18'O.'#185'Q|'#174'#GR'
-  +#194'8J'#167':'#228#237'K'#11#209'''f'#156#182#183#166'$'#26'qj'#176#176#186
-  +#148#146'N'#194#2#20#233'/'#152'X?'#20'e'#211't'#218#21'v^zlT'#26't'#180#132
-  +#168#29'!+'#4#238#7'1'#24#186#18#29')'#197#199'}'#251#23#243#226'h'#245#131
-  +#129'>%'#225#191#170#217#251#177#181#163#210')'#20'Yu'#203#209#233'r4'#214'V'
-  +#173'jnR]'#13'%J'#181#174'B@'#4#236'7'#128#216'-'#197#30#23#133#30'/'#231#133
-  +#0#7'n'#30'K'#197#14''''#237#239'^/'#194#1#133#18#214#135#250#160'<'#151#138
-  +#17#168'|'#151#139#240#128#4'8'#2#22'P'#222#223#242'^/'#194#28'O'#252#151#139
-  +#240#128#244#139'CZ'#5#14#237#227#201'x'#191#8']'#188'y?'#20#2'a'#160'P'#254
-  +#220'<'#159#138#23'm'#30'O'#197#0'B'#133#148'?'#182#143#129#226#143'*'#157
-  +#191#184#251'`#'#13#2#134'v'#203'{'#143#182#31#183'|'#151#138#2#133#11'(h'
-  +#159#3#222#188'_'#132'z'#245'C'#228#188'_'#132#1#10#22'P'#211'?'#127'z'#241
-  +'G'#147';'#127'{'#251'`HP'#178#133#246#195#228#252'P'#132#242#190#7#219#2'B'
-  +#133#148'3'#183#31''''#246#254#16#226'~'#222#245#226#128#161'B'#202#28'j'#31
-  +'%'#226#134#237#255#0''''#226#128#161'B'#202#28''''#129#247#30'(P'#16#133#2
-  +#159#255#217#0#0#6'TLabel'#6'Label5'#4'Left'#2#24#6'Height'#2#18#3'Top'#3#232
-  +#0#5'Width'#3#131#0#7'Caption'#6#19'License: GPL / LGPL'#10'Font.Color'#4'55'
-  +'5'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#8'laTarget'#4'Left'#2
-  +#24#6'Height'#2#18#3'Top'#3#16#1#5'Width'#2#127#8'AutoSize'#8#7'Caption'#6#9
-  +'Target OS'#10'Font.Color'#4'555'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#0
+  +#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#30#255
+  +#192#0#17#8#0'<'#0#200#3#1'"'#0#2#17#1#3#17#1#255#196#0#28#0#0#1#4#3#1#0#0#0
+  +#0#0#0#0#0#0#0#0#4#0#1#7#8#3#5#6#2#255#196#0'J'#16#0#1#2#4#4#2#5#3#15#9#9#1#0
+  +#0#0#0#1#2#3#0#4#5#17#6#7#18'!1Q'#8#19#20'A'#162'Sa'#179#21#22#23'"BCRVcq'
+  +#145#149#161#210#225'27Eb'#148#177#180#195#211'#$&su'#132#133#163#178#193#255
+  +#196#0#23#1#1#1#1#1#0#0#0#0#0#0#0#0#0#0#0#0#0#1#2#3#255#196#0#26#17#1#0#3#1#1
+  +#1#0#0#0#0#0#0#0#0#0#0#0#1#17#18#19#3#2#255#218#0#12#3#1#0#2#17#3#17#0'?'#0
+  +#184#176#160't'#165'c'#138#140'z'#26#185#198#173#207#155'4('#141'U'#158#25'`'
+  +#149#20#156'R'#139#131'c'#253#206'c'#250'p'#222#206'9_'#241#169#31#177#204
+  +#127'N'#26'9'#202'K'#133#28#254#15#197#148'<_Lr'#165#135''''#196#244#163'o'
+  +#22#22#224'mh'#178#194'R'#162','#176#15#5''''#233#141#205#213#223'x'#154#133
+  +#143#31#166'hQ'#135'Q'#231#11'Q'#231#13#28'e'#158#27'h'#194#20'cG'#140'q'#142
+  +#27#193#242#140'MbJ'#163'R'#13#190#178#134#181'!KR'#200#23'6JA6'#27'\'#218
+  +#194#227#152#134#161''''#202'a'#209'm'#10#241#167#194#216#142#141#138')'#8
+  +#171'Pg'#219#158#146'Z'#138#3#136#4'YC'#136' '#128'A'#243#17#222#15'|m5E'#212
+  +#28#229#146#240#175#24#239#15#189#184'CG9z'#133#0'V'#234#178#20'JT'#205'V'
+  +#171'4'#220#164#148#178'5'#188#243#135'd'#143#254#155#216#0'7$'#216'G'#13#236
+  +#227#149#223#26#145#251#28#199#244#226'h'#231')"'#21#226'6'#246'p'#202#242'm'
+  +#235#173#191#216#230'?'#167#18#4#172#195'3r'#173'MJ'#188#135#152'y'#9'q'#167
+  +#16#171#165'i"'#225'@'#247#130#13#225#162'<'#197'^'#21#224'r'#171'B'#214'9'
+  +#195'Mr'#150'{'#194#188'a'#214'!'#245#136'h'#229','#183#135#188'iq>"'#163'a'
+  +#154'C'#149'j'#236#251'RRHPIq`'#155#147#192#0#1'$'#249#128#231#2#224#236'i'
+  +#134#177'|'#179#243#24'r'#170#212#250'%'#214#16#246#148#169#10'A"'#226#233'P'
+  +#6#198#198#198#214'6<'#140'4'#156#229#210'B'#129#203#156#161'D'#220'5'#30#31
+  +'Cz'#180#242#135#8'O!'#15#10#10#136#250'C'#225'|3!'#147#152#134'vG'#14#210'%'
+  +'f'#155'm'#162#135#153#146'm'#11'I/6'#13#148#5#198#196#196'-'#209#2#151'L'
+  +#171'f'#29'N^'#171'N'#147#159'e4'#149#173'-'#204#176#151'R'#21#215'4.'#2#129
+  +#23#177';'#249#226#192't'#149#252#200'bO'#242#153#244#237#196#23#208#171#243
+  +#151'U'#255#0'F_'#166'f'#2#214#210#233'T'#186'T'#186#165#233't'#217'9'#22'T'
+  +#178#181'7,'#194'[IU'#128#189#146#0#189#128#223#204' '#189')'#228'"'#178'g'
+  ,#238'q'#227#140'-'#153#211#212#10#20#244#180#164#148#155'l'#217'&Y'#14#21#149
+  +'6'#149#146#162#160'O'#186#182#214#216'D'#187#140#177#141'R'#155#145'ncIDK'
+  +#162#164#186'T'#188#202'AI-'#161#199'B.@''p5'#146#1#228'/x'#14#251'J~'#8#133
+  +#165'?'#4'}'#17'Y'#242'S9'#177#173'q'#204'R'#138#220#196#164#240#166#208'&jr'
+  +#228#203#165#187'8'#214#155'$'#232#181#210'uo'#223#176#177#17#203'a'#28#253
+  +#205#9#170#199'aJ%'#171's3'#136'S'#18#178#194'Q()u_'#146#161#160#2'l{'#142
+  +#214#191#14'0'#23#7'B~'#8#250'"'#182't'#226#0'Ka+'#15'w7'#251#153#143'X'#198
+  +#167#210'O'#13#246';'#186#138#184#153'oQ4'#186'b&:'#149'w'#161'vn'#224#239
+  +#199#129#238'&9'#174#146#179#152#142#161#151'yy9'#139'e'#4#165'i'#212'N'#25
+  +#166#180'h '#221#160#146'S'#238'TS'#164#145#220'I'#22#28' $'#190#134#128#28
+  +#168#154#184#253'.'#247#163'j&'#189')'#228'"'#162't{'#169'fuC'#15#185#134'0'
+  +#7'a'#167'K'#177'4'#228#220#229'Nq'#189'M'#234'ZP'#148#181#186'U'#191#181#190
+  +#192#157#251#128#223'._'#231'~cM'#230'='#22#139'U'#169#202'NJ'#205'T'#218#147
+  +'}'#190#200#218#1'J'#220#8'$'#20#128'A'#23#184#249#183#128#182#218'S'#200'B'
+  +#210'"'#165'fFxf%?1'#171'tzUNVRRR'#160#228#163#13#137'F'#215'`'#133#148#2'J'
+  +#129'$'#155'\'#252#251'GQ'#153#181#140#247#192#24'q5'#218#182'/'#160#204'K'
+  +#170'a,'#4'J'#202'%K'#212#160#162#15#182'h'#11'{S'#223#1'"'#244#153'H'#25#31
+  +#136#207#234'1'#252'Cq'#2't@'#165'S*'#248#250#168#197'R'#157'''>'#210')jZQ2'
+  +#194']HWZ'#216#184#10#7'{'#19#191#158'6'#146#217#137#137'q'#222'B'#230#19'X'
+  +#145#246'&\'#167#246#2#203#168'e-'#168#135#31#23'I'#9#176#176#234#197#182#190
+  +#231#205#17#254'HU'#241'U;'#18'NH`'#185'0'#253'f'#173'&d'#218't'#240#150'IZT'
+  +#167'Ov'#193'<N'#194#247#223#129#14#131':'#240#155#181#172#254#156#195'8B'
+  +#153'.\ZXJX'#149'BP'#219'G'#170'IR'#149#167'd'#129'{'#147#19#30'8'#204#217'|'
+  +#156#165'a'#172'!5Gv'#177'6'#205'!'#148#184#235'o'#134'['#178#19#213#220']$'
+  +#155#148'('#218#194#194#220#226#12#157#173#227#188#153#197#245'J,'#181'R'#158
+  +#186#147#197#15'M'#205#161#132#190#167'u'#164','#13'n''W}'#200#231#188'v'#249
+  +#255#0#153'5'#160#206#13'Ri'#244'5'#153#234#3#21'7L'#205'9'#169#157'.<='#178
+  +'S'#214#133'iH'#210'8o'#204#157#160#182#176#216#10#187'/'#140'0};'#18'KK;,'
+  +#212#243'ea'#167#8'*A'#10')"'#227#136#184'6='#226#220'#w'#217#211#202'+~5'
+  +#205#220'[E'#201#204#9'T'#163#153#9#9#186#162'&'#18#250#154#149'N'#148#165
+  +#133#4'$!'#7#218#164#27#220#128'6'#182#214#27'G'#156#185#204'<'#232#204'yF'
+  +#233#184'yt'#201'7d'#138#213';W'#152#151#1#183'/'#249#13#145#165'@+'#143#228
+  +#167'}'#137#183'|'#165#212#172#151'P9B'#234'|'#209'^'#176'N)'#233#0's'#22#159
+  +'I'#175'Rf'#158#166#137#208#204#235#139#166'%'#182':'#171#217'kK'#169'H'#27
+  +#11#144'A'#220#128'7'#189#163#150#204#140#240#204'J~cV'#232#244#170#156#172
+  +#164#164#165'A'#201'F'#27#18#141#174#193#11'('#4#149#2'I6'#185#249#246#133#27
+  +#148#147#211#5#189'9N'#209#183#233'F'#127#240#228'r='#8#145#172'b'#237#175'n'
+  +#197#252#248#208#244#130#169'f}7'#14#167#13'c'#254#195'R'#149#153#153'nfN'
+  +#165'&'#222#150#210#164'%AM'#155'%;'#251'k'#216#128'v'#218#227#135'E'#208'l'
+  +#128'1'#135#251'/'#231#194#147'Sv'#177#221'O'#234#152'PF'#161#206#20')w&'#188
+  +'"'#187'q0('#153#191#154#24#184'U'#21#151#11#210'MAY%'#137#0'7'#254#201#159
+  +'N'#220'A'#157#10#246#204#170#169#238#245#29'~'#153#152#180#243'L'#179'7,'
+  +#236#180#211'->'#195#169'(q'#167#16#20#149#164#236'A'#7'b'#15'('#14#135'A'
+  +#160'P'#203#166#139'D'#166'S'#11#214#235'{'#28#170#25#215'n'#23#210#5#237's'
+  +#199#156#5'?'#233'M'#249#240#174#30'h'#150#254#29#184#239'3/5(SY'#31'L'#193
+  +'t'#18#170#164#251#212#169'f'#231#148#218#20#17'&'#150#210#222#173'F'#219#157
+  +'I'#182#219#14'$'#240#6#192'Vp'#214#25#173'M&j'#179#135#169#21''''#210#157#9
+  +'vnI'#183'V'#19#198#192#168#19'm'#206#209#226'C'#11'aZr&'#17'N'#195'Ti4'#204
+  +#182'Z|1"'#211'a'#212#30')U'#146'5'''#204'v'#128#168#189#31'o'#215#227#155#3
+  +#190#14#159#31'kq'#235#162#206#217#219'F<'#155#153#244#11#139'wF'#195#212#10
+  +'/]'#234'5'#14#153'M'#235#128#14#246'ID5'#214#1#195'V'#144'/'#196#241#231#30
+  +'('#248'k'#13#209#166#149'7H'#195#244#154't'#194#210'R'#167'ed'#219'ijI7 '
+  +#148#128'mp :'#16#228'V'#238#155#231'T'#190#19'='#218#230#255#0's1a'#181'y'
+  +#224#26#205'&'#147'Z'#150'L'#181'f'#153'%Ra*'#214#150#230#229#208#234'B'#184
+  +'\'#5#2'/'#185#222#2#4#232#199#152#24'?'#11#229#228#197':'#189']'#151#144#154
+  +'UI'#199'CKJ'#201'((l'#3#176'='#224#253#17#11'e'#202#210#230'pa'#199#27':'
+  +#146#170#252#178#146'Gx'#237#9'1s'#189'a`O'#137'Xo'#234#182'~'#236'g'#167'a'
+  +#28'%L'#157'nv'#157#133#232'rsM'#220#182#244#188#131'M'#173#23#22'6RR'#8#218
+  +#2#149#230#146#130'3w'#18#173'f'#192'V'#166#9''''#151'\'#168#155'zMf'#22#13
+  +#197#25'p'#221'6'#131'^'#151#158#155#21#6#157'-!+'#7'HJ'#193';'#129#204'D'
+  +#207'S'#194#152'J'#167':'#228#237'O'#11#209'''f'#156#182#183#166'$'#26'q'#197
+  +'XX]JI''h'#28'`L'#9#241'+'#13#253'V'#199#221#128#170#153'm'#127'a'#12#208#176
+  +';'#166#151#233#215#6't^'#196#244',+'#141'j3'#213#250#147'R'#18#238#211#148
+  +#210#28'p'#18#10#250#198#205#182#7#184#31#162'-'#140#141#10#129'#M~'#153'!D'
+  ,#166'JH'#204'_'#175#150'fQ'#8'i'#219#139#29'I'#2#198#227'm'#196'k}a`_'#137'X'
+  +'o'#234#182'~'#236#5'F'#233#7'\'#165'b,'#210#168'Uh'#211#168#156#146'u'#166
+  +'R'#135'P'#8#4#165#180#131#196#3#196'A'#217#247'~'#163#0'\'#17#254#14#144#31
+  +'b'#162#214#12#5#129'A'#191#172#188'8?'#226#217#251#177#176#172#208'p'#253'h'
+  +'2+'#20':eD0'#8'dM'#202'!'#222#172#27'_N'#160'm'#192'p'#229#1'R3/W'#176'VX'
+  +#220#16#0#168#250'd'#196#211#208#237'e9U47'#222#172#241#255#0#173#168#147#231
+  +#168't'#26#133'5'#138'd'#245#22#155'5#/n'#166'Y'#233'T-'#166#236',4'#160#139
+  +#11#13#182#16'U2BB'#153'$'#137'*d'#148#180#148#171'w'#208#204#187'Im'#9#185
+  +#185#178'R'#0#27#192#27#214'|'#241'BsIA'#25#185#137#22#189#128#173'L'#18'O.'
+  +#185'Q|'#174'#GR'#194'8J'#167':'#228#237'K'#11#209'''f'#156#182#183#166'$'#26
+  +'qj'#176#176#186#148#146'N'#194#2#20#233'/'#152'X?'#20'e'#211't'#218#21'v^zl'
+  +'T'#26't'#180#132#168#29'!+'#4#238#7'1'#24#186#18#29')'#197#199'}'#251#23#243
+  +#226'h'#245#131#129'>%'#225#191#170#217#251#177#181#163#210')'#20'Yu'#203#209
+  +#233'r4'#214'V'#173'jnR]'#13'%J'#181#174'B@'#4#236'7'#128#216'-'#197#30#23
+  +#133#30'/'#231#133#0#7'n'#30'K'#197#14''''#237#239'^/'#194#1#133#18#214#135
+  +#250#160'<'#151#138#17#168'|'#151#139#240#128#4'8'#2#22'P'#222#223#242'^/'
+  +#194#28'O'#252#151#139#240#128#244#139'CZ'#5#14#237#227#201'x'#191#8']'#188
+  +'y?'#20#2'a'#160'P'#254#220'<'#159#138#23'm'#30'O'#197#0'B'#133#148'?'#182
+  +#143#129#226#143'*'#157#191#184#251'`#'#13#2#134'v'#203'{'#143#182#31#183'|'
+  +#151#138#2#133#11'(h'#159#3#222#188'_'#132'z'#245'C'#228#188'_'#132#1#10#22
+  +'P'#211'?'#127'z'#241'G'#147';'#127'{'#251'`HP'#178#133#246#195#228#252'P'
+  +#132#242#190#7#219#2'B'#133#148'3'#183#31''''#246#254#16#226'~'#222#245#226
+  +#128#161'B'#202#28'j'#31'%'#226#134#237#255#0''''#226#128#161'B'#202#28''''
+  +#129#247#30'(P'#16#133#2#159#255#217#0#0#6'TLabel'#6'Label5'#4'Left'#2#24#6
+  +'Height'#2#18#3'Top'#3#232#0#5'Width'#3#131#0#7'Caption'#6#19'License: GPL /'
+  +' LGPL'#10'Font.Color'#4'555'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLa'
+  +'bel'#8'laTarget'#4'Left'#2#24#6'Height'#2#18#3'Top'#3#16#1#5'Width'#2#127#8
+  +'AutoSize'#8#7'Caption'#6#9'Target OS'#10'Font.Color'#4'555'#0#11'ParentColo'
+  +'r'#8#10'ParentFont'#8#0#0#0
 ]);

comparison.lfm

@@ -61,6 +61,42 @@ object fmComparison: TfmComparison
     Top = 320
     Width = 154
     Caption = 'Start Comparison'
+    Glyph.Data = {
+      36040000424D3604000000000000360000002800000010000000100000000100
+      2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000080208
+      04240000002200000006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000152383
+      45DE1B6130CD0104024500000005FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000200000004000000040000000400000004FFFFFF000000001C238D
+      4DF027934DFF206F37E6061309570000000DFFFFFF00FFFFFF00000000040000
+      001F00000040000000490000004600000046000000470000004000000054218F
+      51F3269752FF27934CFF237B3DF20B25117500000018000000010000001613A1
+      74D218BC85FF1AB87FFF1BB479FF1DB074FF1EAB6EFF20A768FF22A362FF239F
+      5DFF259A57FF269651FF28924BFF268540F9113619930000001D0000002115C1
+      8EFC17C08AFF19BC84FF1AB77EFF1CB379FF1DAF73FF1FAB6DFF20A667FF22A2
+      61FF239E5CFF259A56FF269550FF28914AFF288943FC0E2C14540000001B14C5
+      92FC16C38FFF17BF89FF19BB83FF1AB77DFF1CB278FF1DAE72FF1FAA6CFF20A6
+      66FF22A160FF249D5BFF259955FF27954FFF248442EC081B0D2A0000000710B0
+      84AC13BF8EF215BA87F316B682F318B27CF31AAE76F31BAA72F21DA66CF41FA8
+      6AFE21A565FF22A160FF249D5AFF21864AE40F391E37FFFFFF00FFFFFF000000
+      00040000000E000000120000001000000011000000110000000A000000251CA1
+      68F11FA96AFF21A465FF1D8851D90B2F1B28FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000161BA5
+      6EEF1EAC6FFF1A8855CC061E121CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000001119A7
+      71D9178B5CB301070518FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000030D59
+      3D1300000006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+    }
     OnClick = bbStartClick
     TabOrder = 1
   end
@@ -78,9 +114,9 @@ object fmComparison: TfmComparison
   end
   object laScript: TLabel
     Cursor = crHandPoint
-    Left = 190
+    Left = 280
     Height = 18
-    Top = 330
+    Top = 332
     Width = 273
     Caption = 'Script differences in compared database'
     Font.Style = [fsUnderline]
@@ -230,4 +266,49 @@ object fmComparison: TfmComparison
       TabOrder = 0
     end
   end
+  object bbCancel: TBitBtn
+    Left = 184
+    Height = 30
+    Top = 320
+    Width = 78
+    Caption = 'Cancel'
+    Glyph.Data = {
+      36040000424D3604000000000000360000002800000010000000100000000100
+      2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF0026061A2823051B5E23051B5E2305185E2305185E2305185E2305185E2305
+      185E2305165E2305165E2305165E22040B43FFFFFF00FFFFFF00FFFFFF001A1A
+      B30A1B1E97F51A21A2FF1A219EFF1A209BFF1A2097FF1A2094FF1A2090FF1A1F
+      8DFF1A1F89FF191F86FF191F82FF1B1A6DF622000025FFFFFF00FFFFFF002020
+      AA181B21A9FF1A21A5FF1A21A2FF1A219EFF1A209BFF1A2097FF1A2094FF1A20
+      90FF1A1F8DFF1A1F8AFF191F86FF191F82FF2800002DFFFFFF00FFFFFF002020
+      B5181B21ACFF1B21A9FF1B21A6FF1A21A2FF1A219FFF1A209BFF1A2098FF1A20
+      94FF1A2091FF1A1F8DFF1A1F8AFF191F86FF2800002DFFFFFF00FFFFFF002020
+      B5181B22B0FF1B21ADFF1B21A9FF1B21A6FF1A21A2FF1A219FFF1A209BFF1A20
+      98FF1A2094FF1A2091FF1A1F8DFF1A1F8AFF2800002DFFFFFF00FFFFFF002020
+      B5181B22B4FF1B22B0FF1B21ADFF1B21A9FF1B21A6FF1A21A2FF1A219FFF1A20
+      9BFF1A2098FF1A2094FF1A2091FF1A1F8DFF2800002DFFFFFF00FFFFFF002020
+      BF181B22B7FF1B22B4FF1B22B0FF1B21ADFF1B21A9FF1B21A6FF1A21A2FF1A21
+      9FFF1A209BFF1A2098FF1A2094FF1A2091FF2800002DFFFFFF00FFFFFF002020
+      BF181B22BBFF1B22B8FF1B22B4FF1B22B0FF1B21ADFF1B21AAFF1B21A6FF1A21
+      A3FF1A219FFF1A209CFF1A2098FF1A2095FF2800002DFFFFFF00FFFFFF002020
+      BF181B23BFFF1B22BBFF1B22B8FF1B22B4FF1B22B1FF1B22ADFF1B21AAFF1B21
+      A6FF1A21A3FF1A219FFF1A209CFF1A2098FF2800002DFFFFFF00FFFFFF002020
+      CA181B23C2FF1B23BFFF1B22BBFF1B22B8FF1B22B4FF1B22B1FF1B22ADFF1B21
+      AAFF1B21A6FF1A21A3FF1A219FFF1A209CFF2800002DFFFFFF00FFFFFF002020
+      CA181C23C6FF1B23C2FF1B23BFFF1B22BBFF1B22B8FF1B22B4FF1B22B1FF1B22
+      ADFF1B21AAFF1B21A6FF1A21A3FF1A219FFF2800002DFFFFFF00FFFFFF002020
+      CA181C23C9FF1C23C6FF1B23C2FF1B23BFFF1B22BCFF1B22B8FF1B22B4FF1B22
+      B1FF1B22AEFF1B21AAFF1B21A7FF1A21A3FF2800002DFFFFFF00FFFFFF002020
+      DF081C22C2E11C23CAFF1C23C6FF1B23C3FF1B23BFFF1B22BCFF1B22B8FF1B22
+      B5FF1B22B1FF1B22AEFF1B21AAFF1D1E95DF33000005FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+    }
+    OnClick = bbCancelClick
+    TabOrder = 8
+  end
 end

comparison.pas

@@ -19,6 +19,7 @@ type
   TfmComparison = class(TForm)
     bbClose: TBitBtn;
     bbStart: TBitBtn;
+    bbCancel: TBitBtn;
     cbComparedDatabase: TComboBox;
     cxIgnoreLength: TCheckBox;
     cxRemovedObjects: TCheckBox;
@@ -40,6 +41,7 @@ type
     laComparedDatabase: TLabel;
     meLog: TMemo;
     StatusBar1: TStatusBar;
+    procedure bbCancelClick(Sender: TObject);
     procedure bbCloseClick(Sender: TObject);
     procedure bbStartClick(Sender: TObject);
     procedure cbComparedDatabaseChange(Sender: TObject);
@@ -71,6 +73,7 @@ type
     RemovedFieldsList: TStringList;
 
     fQueryWindow: TfmQueryWindow;
+    fCanceled: Boolean;
 
     procedure CheckRemovedDBObjects;
     procedure DisplayStatus(AStatus: string);
@@ -130,6 +133,12 @@ var
   Connected: Boolean;
 begin
   ComparedDBIndex:= cbComparedDatabase.ItemIndex;
+  if ComparedDBIndex = fdbIndex then
+  begin
+    ShowMessage('Could not compare database with it self');
+    cbComparedDatabase.ItemIndex:= -1;
+  end
+  else
   if (ComparedDBIndex <> -1) then
   begin
     Connected:= True;
@@ -159,48 +168,71 @@ begin
   DiffCount:= 0;
   StatusBar1.Color:= clBlue;
   DisplayStatus('Searching for missing DB Objects...');
+  bbCancel.Enabled:= True;
+  fCanceled:= False;
 
   CheckMissingDBObjects;
+  Application.ProcessMessages;
 
-  if cxTables.Checked then
+  if cxTables.Checked and not fCanceled then
   begin
     CheckMissingIndices;
-    CheckMissingConstraints;
-    CheckMissingFields;
-    CheckModifiedFields;
-    CheckModifiedIndices;
-    CheckModifiedConstraints;
+    if not fCanceled then
+      CheckMissingConstraints;
+    if not fCanceled then
+      CheckMissingFields;
+    if not fCanceled then
+      CheckModifiedFields;
+    if not fCanceled then
+      CheckModifiedIndices;
+    if not fCanceled then
+      CheckModifiedConstraints;
   end;
+  Application.ProcessMessages;
 
   DisplayStatus('Searching for modified db Objects...');
-  if cxViews.Checked then
+  if cxViews.Checked and not fCanceled then
     CheckModifiedViews;
+  Application.ProcessMessages;
 
-  if cxTriggers.Checked then
+  if cxTriggers.Checked and not fCanceled then
     CheckModifiedTriggers;
+  Application.ProcessMessages;
 
-  if cxStoredProcs.Checked then
+  if cxStoredProcs.Checked and not fCanceled then
     CheckModifiedProcedures;
+  Application.ProcessMessages;
 
-  if cxUDFs.Checked then
+  if cxUDFs.Checked and not fCanceled then
     CheckModifiedFunctions;
+  Application.ProcessMessages;
 
-  if cxDomains.Checked then
+  if cxDomains.Checked and not fCanceled then
     CheckModifiedDomains;
+  Application.ProcessMessages;
 
   DisplayStatus('Searching for removed db Objects...');
 
-  if cxRemovedObjects.Checked then
+  if cxRemovedObjects.Checked and not fCanceled then
     CheckRemovedDBObjects;
+  Application.ProcessMessages;
 
-  if cxTables.Checked and cxRemovedObjects.Checked then
+  if cxTables.Checked and cxRemovedObjects.Checked and not fCanceled then
     CheckRemovedFields;
+  Application.ProcessMessages;
 
   StatusBar1.Color:= clDefault;
-  DisplayStatus('Comparison Finished, ' + IntToStr(DiffCount) + ' difference(s) found');
-  if DiffCount = 0 then
-   meLog.Text:= 'No difference';
-  meLog.Visible:= True;
+  if not fCanceled then
+  begin
+    DisplayStatus('Comparison Finished, ' + IntToStr(DiffCount) + ' difference(s) found');
+    if DiffCount = 0 then
+      meLog.Text:= 'No difference';
+    meLog.Visible:= True;
+  end
+  else
+    DisplayStatus('Canceled');
+  bbCancel.Enabled:= False;
+
 end;
 
 procedure TfmComparison.bbCloseClick(Sender: TObject);
@@ -209,6 +241,12 @@ begin
   Parent.Free;
 end;
 
+procedure TfmComparison.bbCancelClick(Sender: TObject);
+begin
+  fCanceled:= True;
+  laScript.Enabled:= False;
+end;
+
 procedure TfmComparison.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 var
   i: Integer;
@@ -502,6 +540,13 @@ begin
 
     List.CommaText:= dmSysTables.GetDBObjectNames(fdbIndex, x, Count);
 
+    Application.ProcessMessages;
+    if fCanceled then
+    begin
+      ComparedList.Free;
+      List.Free;
+      Exit;
+    end;
     ComparedList.CommaText:= dmSysTables.GetDBObjectNames(cbComparedDatabase.ItemIndex, x, Count);
     dbObjectsList[x].Clear;
     dbExistingObjectsList[x].Clear;
@@ -577,6 +622,15 @@ begin
   ExistFieldsList.Clear;
   for i:= 0 to dbExistingObjectsList[1].Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+    begin
+      FieldsList.Free;
+      ComparedList.Free;
+      Exit;
+    end;
+
     dmSysTables.GetTableFields(fdbIndex, dbExistingObjectsList[1].Strings[i], FieldsList);
     dmSysTables.GetTableFields(cbComparedDatabase.ItemIndex, dbExistingObjectsList[1].Strings[i], ComparedList);
 
@@ -615,14 +669,22 @@ begin
 
   for i:= 0 to ExistFieldsList.Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+      Exit;
+
     Line:= ExistFieldsList[i];
     ATableName:= copy(Line, 1, Pos(',', Line) - 1);
     System.Delete(Line, 1, Pos(',', Line));
     AFieldName:= Line;
 
+    // Read all field properties
     dmSysTables.GetFieldInfo(fdbIndex, ATableName, AFieldName, FieldType, FieldSize, NotNull, DefaultValue, Description);
     dmSysTables.GetFieldInfo(cbComparedDatabase.ItemIndex, ATableName, AFieldName, CFieldType, CFieldSize, CNotNull,
       CDefaultValue, CDescription);
+
+    // Compare
     if (FieldType <> CFieldType) or ((FieldSize <> CFieldSize) and (not cxIgnoreLength.Checked)) or
        (NotNull <> CNotNull) or (DefaultValue <> CDefaultValue)
        or (Description <> CDescription) then
@@ -658,14 +720,26 @@ begin
 
   for i:= 0 to ExistIndicesList.Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+    begin
+      FieldsList.Free;
+      CFieldsList.Free;
+      Exit;
+    end;
+
     Line:= ExistIndicesList[i];
     ATableName:= copy(Line, 1, Pos(',', Line) - 1);
     System.Delete(Line, 1, Pos(',', Line));
     AIndexName:= Line;
 
+    // Read all Index properties
     dmSysTables.GetIndexInfo(fdbIndex, ATableName, AIndexName, FieldsList, ConstraintName, Unique, Ascending, IsPrimary);
     dmSysTables.GetIndexInfo(cbComparedDatabase.ItemIndex, ATableName, AIndexName, CFieldsList, CConstraintName,
       CUnique, CAscending, IsPrimary);
+
+    // Compare
     if (FieldsList.CommaText <> CFieldsList.CommaText) or (Unique <> CUnique) or (Ascending <> CAscending) then
     begin
       meLog.Lines.Add(' ' + ExistIndicesList[i]);
@@ -698,13 +772,20 @@ begin
 
   for i:= 0 to ExistConstraintsList.Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+      Exit;
+
     Line:= ExistConstraintsList[i];
     ATableName:= copy(Line, 1, Pos(',', Line) - 1);
     System.Delete(Line, 1, Pos(',', Line));
     AConstraintName:= Line;
 
+    // Read all contraint properties
     Exist:= (dmSysTables.GetConstraintInfo(fdbIndex, ATableName, AConstraintName, KeyName, CurrentTableName, CurrentFieldName,
         OtherTablename, OtherFieldName, UpdateRole, DeleteRole));
+
     if Exist then
       OtherFieldNames:= dmSysTables.GetConstraintForiegnKeyFields(OtherFieldName, dmSysTables.sqQuery);
 
@@ -718,6 +799,7 @@ begin
     if not Exist then
       meLog.Lines.Add(' -- Error: Constraint: ' + AConstraintName + ' not exist on table: ' + ATableName);
 
+    // Compare
     if Exist then
     if (CurrentTableName <> CCurrentTableName) or (CurrentFieldName <> CCurrentFieldName) or
        (OtherTablename <> COtherTablename) or (OtherFieldNames <> COtherFieldNames) or (UpdateRole <> CUpdateRole) or
@@ -745,8 +827,15 @@ begin
 
   for i:= 0 to dbExistingObjectsList[4].Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+      Exit;
+
     ViewName:= dbExistingObjectsList[4][i];
     fmMain.GetViewInfo(fdbIndex, ViewName, Columns, Body);
+
+    // Compare
     if fmMain.GetViewInfo(cbComparedDatabase.ItemIndex, ViewName, CColumns, CBody) then
     if  (Trim(Body) <> Trim(CBody)) then
     begin
@@ -776,10 +865,17 @@ begin
 
   for i:= 0 to dbExistingObjectsList[3].Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+      Exit;
+
     TriggerName:= dbExistingObjectsList[3][i];
     dmSysTables.GetTriggerInfo(fdbIndex, TriggerName, AfterBefor, OnTable, Event, Body, TriggerEnabled, TPosition);
+
+    // Read all trigger properties
     if dmSysTables.GetTriggerInfo(cbComparedDatabase.ItemIndex, TriggerName, CAfterBefor, COnTable, CEvent, CBody,
-      CTriggerEnabled, CTPosition) then
+      CTriggerEnabled, CTPosition) then // Compare
     if  (StringReplace(Body, ' ', '', [rfReplaceAll]) <> StringReplace(CBody, ' ', '', [rfReplaceAll]))
        or (AfterBefor <> CAfterBefor) or (TriggerEnabled <> CTriggerEnabled)
        or (TPosition <> CTPosition) then
@@ -808,9 +904,18 @@ begin
 
   for i:= 0 to dbExistingObjectsList[5].Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+      Exit;
+
     ProcName:= dbExistingObjectsList[5][i];
+
+    // Read procedure script
     Body:= fmMain.GetStoredProcBody(fdbIndex, ProcName, SPOwner);
     CBody:= fmMain.GetStoredProcBody(cbComparedDatabase.ItemIndex, ProcName, CSPOwner);
+
+    // Compare
     if  (Trim(Body) <> Trim(CBody)) then
     begin
       meLog.Lines.Add(' ' + ProcName);
@@ -834,9 +939,18 @@ begin
 
   for i:= 0 to dbExistingObjectsList[6].Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+      Exit;
+
     FunctionName:= dbExistingObjectsList[6][i];
+
+    // Get function properties
     fmMain.GetUDFInfo(fdbIndex, FunctionName, ModuleName, EntryPoint, Params);
+
     if fmMain.GetUDFInfo(cbComparedDatabase.ItemIndex, FunctionName, CModuleName, CEntryPoint, CParams) then
+    // Compare
     if  (ModuleName <> CModuleName) or (EntryPoint <> CEntryPoint) or (Params <> CParams) then
     begin
       meLog.Lines.Add(' ' + FunctionName);
@@ -863,9 +977,18 @@ begin
 
   for i:= 0 to dbExistingObjectsList[8].Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+      Exit;
+
     DomainName:= dbExistingObjectsList[8][i];
+
+    // Read all domain properties
     dmSysTables.GetDomainInfo(fdbIndex, DomainName, DomainType, DomainSize, DefaultValue);
     dmSysTables.GetDomainInfo(cbComparedDatabase.ItemIndex, DomainName, CDomainType, CDomainSize, CDefaultValue);
+
+    // Compare
     if (DomainType <> CDomainType) or (DomainSize <> CDomainSize) or (DefaultValue <> CDefaultValue) then
     begin
       meLog.Lines.Add(' ' + DomainName);
@@ -899,7 +1022,13 @@ begin
   meLog.Lines.Add('Checking removed indices');
   for i:= 0 to ComparedList.Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+      Break;
+
     Po:= OrigList.IndexOf(ComparedList[i]);
+    // Compare
     if (Po = -1) or (TablesList[Po] <> CTablesList[i]) then
     begin
       dbRemovedObjectsList[12].Add(CTablesList[i] + ',' + ComparedList[i]);
@@ -936,7 +1065,14 @@ begin
   meLog.Lines.Add('Checking removed constraints');
   for i:= 0 to ComparedList.Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+      Break;
+
     Po:= OrigList.IndexOf(ComparedList[i]);
+
+    // Compare
     if (Po = -1) or (TablesList[Po] <> CTablesList[i]) then
     begin
       dbRemovedObjectsList[13].Add(CTablesList[i] + ',' + ComparedList[i]);
@@ -965,6 +1101,12 @@ begin
   RemovedFieldsList.Clear;
   for i:= 0 to dbExistingObjectsList[1].Count - 1 do
   begin
+    // Check for cancel button press
+    Application.ProcessMessages;
+    if fCanceled then
+      Break;
+
+    // Read all table fields
     dmSysTables.GetTableFields(fdbIndex, dbExistingObjectsList[1].Strings[i], FieldsList);
     dmSysTables.GetTableFields(cbComparedDatabase.ItemIndex, dbExistingObjectsList[1].Strings[i], ComparedList);
 
@@ -1608,6 +1750,7 @@ var
   i: Integer;
   Servername: string;
 begin
+  bbCancel.Enabled:= False;
   cxTables.Checked:= True;
   cxGenerators.Checked:= True;
   cxDomains.Checked:= True;
@@ -1681,7 +1824,17 @@ begin
   try
     for i:= 0 to TablesList.Count - 1 do
     begin
-     // PrimaryIndexName:= dmSysTables.GetPrimaryKeyIndexName(fdbIndex, TablesList[i], ConstraintName);
+
+      // Check for cancel button press
+      Application.ProcessMessages;
+      if fCanceled then
+      begin
+        List.Free;
+        ComparedList.Free;
+        TablesList.Free;
+        Exit;
+      end;
+
       List.Clear;
       dmSysTables.GetIndices(fdbIndex, TablesList[i], '', List);
       ComparedList.Clear;
@@ -1737,9 +1890,21 @@ begin
   meLog.Lines.Add('');
   meLog.Lines.Add('Missing Constraints:');
   try
+
     dbObjectsList[13].Clear;
     for i:= 0 to TablesList.Count - 1 do
     begin
+
+      // Check for cancel button press
+      Application.ProcessMessages;
+      if fCanceled then
+      begin
+        List.Free;
+        ComparedList.Free;
+        TablesList.Free;
+        Exit;
+      end;
+
       dmSysTables.Init(fdbIndex);
       List.Clear;
       dmSysTables.GetTableConstraints(TablesList[i], dmSysTables.sqQuery, List);

copytable.pas

@@ -107,6 +107,7 @@ begin
   Delete(Values, Length(Values), 1);
   Statement:= Statement + ') Values (' + Values + ')';
 
+  // Enter password if it is not saved
   with fmMain.RegisteredDatabases[cbDestDatabase.ItemIndex] do
   begin
     if IBConnection.Password = '' then
@@ -177,6 +178,8 @@ begin
   fSourceIndex:= SourceIndex;
   laSourceDatabase.Caption:= fmMain.RegisteredDatabases[SourceIndex].RegRec.Title;
   cbDestDatabase.Clear;
+
+  // Display databases in destination combo box
   for i:= 0 to High(fmMain.RegisteredDatabases) do
     cbDestDatabase.Items.Add(fmMain.RegisteredDatabases[i].RegRec.Title);
   laDatabase.Caption:= '';

createuser.lfm

@@ -2,13 +2,13 @@ object fmCreateUser: TfmCreateUser
   Left = 482
   Height = 244
   Top = 444
-  Width = 374
+  Width = 428
   BorderStyle = bsDialog
   Caption = 'Create New User'
   ClientHeight = 244
-  ClientWidth = 374
+  ClientWidth = 428
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.0.4.0'
   object Label1: TLabel
     Left = 8
     Height = 18
@@ -21,7 +21,7 @@ object fmCreateUser: TfmCreateUser
     Left = 7
     Height = 18
     Top = 88
-    Width = 62
+    Width = 67
     Caption = 'Password'
     ParentColor = False
   end
@@ -33,7 +33,7 @@ object fmCreateUser: TfmCreateUser
     TabOrder = 0
   end
   object edPassword: TEdit
-    Left = 129
+    Left = 128
     Height = 27
     Top = 82
     Width = 160
@@ -43,25 +43,25 @@ object fmCreateUser: TfmCreateUser
   end
   object cxGrantRole: TCheckBox
     Left = 7
-    Height = 22
+    Height = 24
     Top = 125
-    Width = 92
+    Width = 97
     Caption = 'Grant Role'
     OnChange = cxGrantRoleChange
     TabOrder = 2
   end
   object cbRoles: TComboBox
-    Left = 54
+    Left = 128
     Height = 29
-    Top = 157
-    Width = 162
+    Top = 152
+    Width = 160
     ItemHeight = 0
     TabOrder = 3
     Visible = False
   end
   object bbCreate: TBitBtn
     Left = 18
-    Height = 30
+    Height = 40
     Top = 199
     Width = 86
     Caption = 'Create'
@@ -73,7 +73,7 @@ object fmCreateUser: TfmCreateUser
   end
   object bbCanel: TBitBtn
     Left = 176
-    Height = 30
+    Height = 40
     Top = 199
     Width = 91
     Cancel = True
@@ -87,11 +87,127 @@ object fmCreateUser: TfmCreateUser
     Left = 13
     Height = 18
     Top = 8
-    Width = 262
+    Width = 253
     Caption = 'Requires FireBird version 2.5.0 or above'
     Font.Color = clGray
     Font.Style = [fsItalic]
     ParentColor = False
     ParentFont = False
   end
+  object Image1: TImage
+    Left = 310
+    Height = 90
+    Top = 30
+    Width = 90
+    Picture.Data = {
+      1754506F727461626C654E6574776F726B477261706869634F0D000089504E47
+      0D0A1A0A0000000D4948445200000040000000400806000000AA6971DE00000D
+      164944415478DAED9B795894F516C70FC322B85446CA0E3303C366F67405D79B
+      91084AA2E28690248280ECC826B2EF2020E68A698AA0622EB9A0E2928262565A
+      9699799FBA379F5B8FD76E3EA5D6BDDDEB4D4BCF3DEF32C3CB3830C36CFA547F
+      9CE7151C66DECFF73DBFEF39E7F7BE038808BFE7F8CD8285EE196611DEE0EA04
+      00A61426BF2B014243C1346AAB644F6493EBB5510BED7C4900AB9E44F84D0A10
+      D52C5917D9EC8A115B5C31B4C1F53BAF60EB0012A0BF2A118CBFE6E824284490
+      B6E30928EE7083947DB6F4B3191FA2DED25593886E96142E6896E2AB041FBED9
+      0D4337CA70FA2AD9F7EE93558B603CF0EAB376B0EC9334A8BD740A6A3FFB8902
+      A1F632420D1397EE41E585CFA1F0EC6B90D63A8E4ED28211A3CFF05B25B172F8
+      57087EEE1B329CFDBA3BCE6870C7A07AF79BB2494F072A8B609C2BBEEC522C2C
+      BFF22F0A843A065C0EFF29C232262E21547FC245E5C50790DBB1037C13C8C086
+      59689A11D15BC421515BA5BFBEDA2480DFC0C14F5BEB8153567B6240ADC74D49
+      E0D04942110C0B5FFAA123D45D3E06CBFF42E01AC0575D24013EE6A2F8FD6F21
+      EA8D70009B018C93F7BAE69B24E3A39AA5FF9B4FF0F31ADD308CE0E76C90E18C
+      F55DF093577A61C00A6F7CB1D2F3965004C35DF59A4F42A0FECA0F0FC1D7A880
+      AF5282AFF808A1FC0242D98507907E781B80E3D3F49EE6AAB221AA493A9CE07F
+      50C06F7263E16712FCF4751E184CF0412CBC174E58EE8DE34ABD6E5B0F7B2289
+      DECB91F51D8308507646DC95F272F8CB02F84B02F88B02F88FBAE0CB3F240128
+      4A3F4098B7A68232612873C2C2CF89DC2675A6B4BF4EE50E23E4F01B05F06B38
+      F84082F767E04B3C6F0D72E95F45EF338BC2C12002B04E5EF3E9A95EE1AB55C0
+      57F4005F7A1EA1E0EC1DF0981502207E4A6E8E915B1DAC09FE73B6DC3592E36F
+      E21C7F16995E08C14F65E0577976C117797C37D0C1928484300A0F832C01F60D
+      2B2FA629E06BB5802F53822FA1283E8790B4F73300DB6100F6FD434B870C24C7
+      3FBF80AFF5F272C7C23730F01EF832C14F7ACD0B27D67BE3D802F71BFD6D2DCB
+      E8FC4229DC858D917E05C83F25A52BFEDF3E991D0B7F4100FF8100FE1C075FFC
+      3E42D17B08D3AAD6585ADAB944374B8FF654EEA6AE5582CF77FFC6F2198B6202
+      9E432153EE0AF57BF52B2E14F719BE5C057C890AF8C2F7982CF87A66B57837A5
+      7E7778A5723799E003087E749EEC9AE5608B027ECDBB52581AAC1162878EEA8F
+      2FF6085FA50BFCBB6CC8EA2A1F30F0ACE36FE6CADDEC1ECADD981CD7AF2C0699
+      E5D179CDA090AA82D7AF003EF1FDA1F6D3FBEA9CDE754D239A94BDCF0197AB58
+      EF2572F0EEF0432B1B717EB33B76953BD943E56E325FEE46E7B87E6936C02C87
+      80C938414CD1CFA0C3109BFE8B9A5DD5C1FB6CACC3BA776C71F2A66884BC760E
+      561D7CC1BB38A0B415C3B73C8F9A94BB5159D22FCCAC44D9744ED3285CF8B6DA
+      B0E3302B405AEB0BBD39BDCFC65A5C4EF0759D36B8ACC3169F2D4943C8799B03
+      963BBD3CE515F067D1ACB01DA76FF4434DCADDC874E915513F51169D4F3085B3
+      3A787D0A2082B095CFF66476DDE04FD962E5493B2C38E28C3659D508B9ED1CB0
+      D0EC7878283883FEEB425151EE36F55CEE46A64A2E89CC4519742E2F53386902
+      AF5F0106795A43D5C7F794E17D09BEFEAC00BEDD0ECBDEB6C3E263F698BCCB13
+      AD5237D2723845F0EF2AC19FC53FADC84055E58E8517943B9F24C94722112CA6
+      F308E23B3C734D87283DCEF86E34DF9FBBA60A7EF9191BAC21F8AA765B2C3F41
+      F0C7ED29031C30F7B023866D1885A2D45D24C26982E7C021FF1D1457D7B3575E
+      5DB91B11EF729ED95DA07360061CFBBEC0EBB90C3A5A4146DB5BF29E7EF8EB6B
+      BBE04FDB28E04B08BEF0A803E6117CCE4147CC3CE0847ED55311D2F693089D04
+      7F06ADCBB6E1AB4D9E6ACB9D4FA2F803FAE0140A66B3C3AEAFF07A168066F7C9
+      45B3E4F5DDAAE20426EDFB33D6127C7587127C9B030B9F45F0E9FB9C31758F0B
+      7A2C8D43483F845685073174B3AFDA72E79B2ABECC5FF9401EDEEC91EE0A735B
+      5AF6CE9073F22ADBDC949E43B39C4394BE7E5841A6574AF045049FCFC01F12C0
+      BFE58249BB5D3076BB146D17E763F07A7FB5E56E74BAF44B911964F36BDE5E5B
+      787D0B2062A7B5C0DC142A6BF7D9DA4E6BDA24E3009DF4342C22D363E097127C
+      76AB1366107C1A0F1FBF538CB12D128CDAEAD663B90BE6CBDD9874C937661666
+      457CA9630DEFB1B92F4046481D97833BCC5DB99F6B6BA9B61791A9651CC6D195
+      11B8F4A01307BF9F8177C664824F20F8B81D125CB84D8A916ACADDD82CE96D33
+      2BF315D475CFD6B4CE1B59003E0BCC242F42ECF62B8ACE8E71F7CC36F42A48C6
+      C57B5D306DAF123CA57FB7722784E7CBDDB81CD77F9B0FE8DF48F0117C6FAF33
+      BC41F6043927762153720A81D9F5E7156D2DB93B641D41A7EC5C5CB4C30D1377
+      89E9C8C04B70819AE96E7C9EDB1DCB2707ECA2B75EC48FB4FDF4016F28014CB8
+      A56023010BD730886EFA9B7CA06145C83C8A4333CA317A9B0C63B633EBBEF7E9
+      CEBFDAE3DE40DB4107099E1CDF62584F53DD63756F1022EB0740D6890CC8EFFC
+      463ED0C81B1CB6D69308F6D985E4F66EA8BC932B777C063E70C5301CEC37E61A
+      583C554A028C24F081FA84374C062C39EE4DD05F09079A2EF8335C2CA5D637E3
+      088A976452DACB1EDEC9E5CB9DDD2BC108933291E68C5B30A38A5ADD2103D56D
+      913F5A13CC3BE547D0B7957BFA6EF0B99401B9D4F6E690088B0FA18C1A20D6F1
+      85F0647AB2F889081369620C5F8990B8975E7B1421E28DD55465ACF9DB688F8F
+      07B0EB3EBF339CAEFACF6AE1979EE6821160C94984D403E8953BAF5BB97B3E7B
+      2CC2844484393508F13427A4B57102A41D4198B59CCAA0ED107D89A01FF8BC8E
+      B904FF4061767270057CA700FE140FDF4141A370D60966AF0F87E7CFE06A7DC9
+      0834F58F4198518E10D742021DEE82678448697B00532ACAA9017C46970E507F
+      02641F73A151F6871EE1737B81CF6682B220E3189A24EC42AF9C196839351E61
+      5A31C2C266823D44F04738F8D4362E524890E483F761C212AA0ACE8375F504DD
+      1B9FFC33ED0F39BDA6F05927B90CC87C9B0621825CB493B90BC4C3B7127C9B00
+      FE3007CF88927C10216AFB75CA8211BC319A3C1A01B28EF8AB353BF97ACFE910
+      C09FEC0ECF0465019BE2C90738C83415F0C93C7C121324D0D89455E407625DE6
+      01DDAE7E6EE7699DE13398384E19708C0B79CAF7069F48F089245444E3B73409
+      BF08F0F413DA3C4FA09B002907866BE4F472F86C35F08CD109CD4EBEDED99497
+      C3B776C127ECE76254C26AB6EBD4320BB477FEAC63F96A9D3E47C9EC587039FC
+      71DDE0E399D88710BAEEEF9405E3B5CD02EDEF022D693FD327A7D7043E55057C
+      522FF08BA8418A6EF9999AA3F9148EDA9445ED0410475912FC5DADE1D37B8257
+      727A053C032E87DFD7051FF71617837D2AC90CBD996D39E308306FB3543BA717
+      9ADD51A51ADF83D3AB838FDD83E0318B46655B1A96C4960617805DFF712D7EBA
+      39FD51CD9D5E08BF48057CCC6E8431C96769094C00786690C17785D9F217B733
+      422BA75705AF89D3CBAFBA027E4F177C0CCD0A81C57FA5A628846F8F458616C0
+      1462B72F32AAD30BE16395E017524CADFD276540246F84A68617605E4388D64E
+      9FA685D3AB825FC8C34753FB3CB1804AA14302CD06D2BE5602ED0408CCF3D5DE
+      E9DBB4737A167EB7007E27071FFD26C2E8C42B2440222F80B9E13D60888F1DC1
+      3F30AAD3C7A8808F22F8A81D08DEE1E768FD4753381923034C00A44F42FAD19B
+      3A3B7D521F9CBE27F805148E01C72803420186DA18C3034CD8C757176EDF6B54
+      A797AF7726E515F02D087337DE0553E7CD008E41FCFE80C808ADB05B3FF00EF3
+      A72CF84567A74FD0D0E955C147528C88B94AA95F471930867FAED8C438B300B3
+      DEC21A8E1BCDE9E5F00B04F0115B7E052BF7C3742E299401CC0D130BE34D834C
+      D7250D9E4AB0F7FAE4F4895A3ABD7CBDB3F0DB11E6538C5DFC0F826FA036F865
+      7EB75864CC0D11EE76B85FD66A483B7C5F2F4E1FABC6EC84F0130B6F82A9F800
+      8167728FD0F67D0ED05500136E3FCECE1746C63543FCDEBB06757A21FCF8CC1B
+      60E2D8469F5D451721806F814D1FC5A6A829F7E18E2FC153232A21B8F22A01FE
+      AA93D32FECC1EC18F8B00DF7E0F968EAFAEC5BE9CA13BCED14AEFD1DA6F59D62
+      7D7C01CA9CBB51E13096AE483C984BD7822CA413C6267D012FA47F0D2F2DB90E
+      01053720A8EC3B98BAEC16CCACFF11E6ACF98960EE4044E35D886CFE85C6EBBB
+      3077FD1D98B9EA3FD4D7FF084115B729C5BF07BF2537604CCA75786EFE551007
+      5D021317BAEAF64DF45979740C04B076D0055E7F3746583F18FC24FB70049792
+      31F4EF423AD653ACA5584F3F6FA0E3268A468A66FA791B1D5B28DEA4D8C91F5B
+      F8DF37F1AFA3D73BBC4EC735143514D91461ECB2E3EE0E993F360F48700F4730
+      B7C59966C4CE856AF2B3DC26059B19E3B979DD7E122D9729DCE86A379B8EE174
+      8CA098CF1D5938E6F7D3F9D705B2CB0BECC7D1EF7DE8E8C93D7BC07D8FE8B17B
+      4042F19D40362398D4640471B462BEE4C01926B5D0AC408C6F305F8119620BE0
+      644FAF71E08ECCCFCCEF9992C6BC8E793DF377CC7B30EFE563AE2F70A37E6F90
+      17C64420903C4C5584F0FF157FF7C797A7FF10C030F17FABD399BD9753C16500
+      00000049454E44AE426082
+    }
+  end
 end

createuser.lrs

@@ -2,26 +2,172 @@
 
 LazarusResources.Add('TfmCreateUser','FORMDATA',[
   'TPF0'#13'TfmCreateUser'#12'fmCreateUser'#4'Left'#3#226#1#6'Height'#3#244#0#3
-  +'Top'#3#188#1#5'Width'#3'v'#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#15
-  +'Create New User'#12'ClientHeight'#3#244#0#11'ClientWidth'#3'v'#1#8'Position'
-  +#7#14'poScreenCenter'#10'LCLVersion'#6#6'0.9.31'#0#6'TLabel'#6'Label1'#4'Lef'
-  +'t'#2#8#6'Height'#2#18#3'Top'#2'1'#5'Width'#2'i'#7'Caption'#6#13'New User na'
-  +'me'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#7#6'Height'#2#18#3
-  +'Top'#2'X'#5'Width'#2'>'#7'Caption'#6#8'Password'#11'ParentColor'#8#0#0#5'TE'
-  +'dit'#10'edUserName'#4'Left'#3#128#0#6'Height'#2#27#3'Top'#2'('#5'Width'#3
-  +#160#0#8'TabOrder'#2#0#0#0#5'TEdit'#10'edPassword'#4'Left'#3#129#0#6'Height'
+  +'Top'#3#188#1#5'Width'#3#172#1#11'BorderStyle'#7#8'bsDialog'#7'Caption'#6#15
+  +'Create New User'#12'ClientHeight'#3#244#0#11'ClientWidth'#3#172#1#8'Positio'
+  +'n'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.4.0'#0#6'TLabel'#6'Label1'#4
+  +'Left'#2#8#6'Height'#2#18#3'Top'#2'1'#5'Width'#2'i'#7'Caption'#6#13'New User'
+  +' name'#11'ParentColor'#8#0#0#6'TLabel'#6'Label2'#4'Left'#2#7#6'Height'#2#18
+  +#3'Top'#2'X'#5'Width'#2'C'#7'Caption'#6#8'Password'#11'ParentColor'#8#0#0#5
+  +'TEdit'#10'edUserName'#4'Left'#3#128#0#6'Height'#2#27#3'Top'#2'('#5'Width'#3
+  +#160#0#8'TabOrder'#2#0#0#0#5'TEdit'#10'edPassword'#4'Left'#3#128#0#6'Height'
   +#2#27#3'Top'#2'R'#5'Width'#3#160#0#8'EchoMode'#7#10'emPassword'#12'PasswordC'
   +'har'#6#1'*'#8'TabOrder'#2#1#0#0#9'TCheckBox'#11'cxGrantRole'#4'Left'#2#7#6
-  +'Height'#2#22#3'Top'#2'}'#5'Width'#2'\'#7'Caption'#6#10'Grant Role'#8'OnChan'
+  +'Height'#2#24#3'Top'#2'}'#5'Width'#2'a'#7'Caption'#6#10'Grant Role'#8'OnChan'
   +'ge'#7#17'cxGrantRoleChange'#8'TabOrder'#2#2#0#0#9'TComboBox'#7'cbRoles'#4'L'
-  +'eft'#2'6'#6'Height'#2#29#3'Top'#3#157#0#5'Width'#3#162#0#10'ItemHeight'#2#0
-  +#8'TabOrder'#2#3#7'Visible'#8#0#0#7'TBitBtn'#8'bbCreate'#4'Left'#2#18#6'Heig'
-  +'ht'#2#30#3'Top'#3#199#0#5'Width'#2'V'#7'Caption'#6#6'Create'#5'Color'#4#219
-  +#242#247#0#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#8'TabOrder'#2#4
-  +#0#0#7'TBitBtn'#7'bbCanel'#4'Left'#3#176#0#6'Height'#2#30#3'Top'#3#199#0#5'W'
-  +'idth'#2'['#6'Cancel'#9#7'Caption'#6#6'Cancel'#5'Color'#4#219#242#247#0#4'Ki'
-  +'nd'#7#8'bkCancel'#11'ModalResult'#2#2#8'TabOrder'#2#5#0#0#6'TLabel'#6'Label'
-  +'3'#4'Left'#2#13#6'Height'#2#18#3'Top'#2#8#5'Width'#3#6#1#7'Caption'#6'(Requ'
-  +'ires FireBird version 2.5.0 or above'#10'Font.Color'#7#6'clGray'#10'Font.St'
-  +'yle'#11#8'fsItalic'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#0
+  +'eft'#3#128#0#6'Height'#2#29#3'Top'#3#152#0#5'Width'#3#160#0#10'ItemHeight'#2
+  +#0#8'TabOrder'#2#3#7'Visible'#8#0#0#7'TBitBtn'#8'bbCreate'#4'Left'#2#18#6'He'
+  +'ight'#2'('#3'Top'#3#199#0#5'Width'#2'V'#7'Caption'#6#6'Create'#5'Color'#4
+  +#219#242#247#0#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#8'TabOrder'
+  +#2#4#0#0#7'TBitBtn'#7'bbCanel'#4'Left'#3#176#0#6'Height'#2'('#3'Top'#3#199#0
+  +#5'Width'#2'['#6'Cancel'#9#7'Caption'#6#6'Cancel'#5'Color'#4#219#242#247#0#4
+  +'Kind'#7#8'bkCancel'#11'ModalResult'#2#2#8'TabOrder'#2#5#0#0#6'TLabel'#6'Lab'
+  +'el3'#4'Left'#2#13#6'Height'#2#18#3'Top'#2#8#5'Width'#3#253#0#7'Caption'#6'('
+  +'Requires FireBird version 2.5.0 or above'#10'Font.Color'#7#6'clGray'#10'Fon'
+  +'t.Style'#11#8'fsItalic'#0#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TImage'#6
+  +'Image1'#4'Left'#3'6'#1#6'Height'#2'Z'#3'Top'#2#30#5'Width'#2'Z'#12'Picture.'
+  +'Data'#10'k'#13#0#0#23'TPortableNetworkGraphicO'#13#0#0#137'PNG'#13#10#26#10
+  +#0#0#0#13'IHDR'#0#0#0'@'#0#0#0'@'#8#6#0#0#0#170'iq'#222#0#0#13#22'IDATx'#218
+  +#237#155'yX'#148#245#22#199#15#195'"'#184'TF'#202#14'3'#3#195'f'#246't'#5#215
+  +#155#145#8'J'#162#226#134#144'$'#130#128#236#200'&'#178#239'  '#230#138'i'
+  +#138#160'b.'#185#160#226#146#130'bVZ'#150#153'y'#159#186'7'#159'['#143#215'n'
+  +'>'#165#214#189#221#235'MK'#207'='#239'2'#195#203'80'#195'l'#250'T'#127#156
+  +#231#21#28'f'#222#207#247'='#191#239'9'#231#247#190#3#136#8#191#231#248#205
+  +#130#133#238#25'f'#17#222#224#234#4#0#166#20'&'#191'+'#1'BC'#193'4j'#171'dOd'
+  +#147#235#181'Q'#11#237'|I'#0#171#158'D'#248'M'#10#16#213',Y'#23#217#236#138
+  +#17'[\1'#180#193#245';'#175'`'#235#0#18#160#191'*'#17#140#191#230#232'$(D'
+  +#144#182#227#9'('#238'p'#131#148'}'#182#244#179#25#31#162#222#210'U'#147#136
+  +'n'#150#20'.h'#150#226#171#4#31#190#217#13'C7'#202'p'#250'*'#217#247#238#147
+  +'U'#139'`<'#240#234#179'v'#176#236#147'4'#168#189't'#10'j?'#251#137#2#161#246
+  +'2B'#13#19#151#238'A'#229#133#207#161#240#236'k'#144#214':'#142'N'#210#130#17
+  +#163#207#240'[%'#177'r'#248'W'#8'~'#238#27'2'#156#253#186';'#206'hp'#199#160
+  +'z'#247#155#178'IO'#7'*'#139'`'#156'+'#190#236'R,,'#191#242'/'#10#132':'#6'\'
+  +#14#255')'#194'2&.!T'#127#194'E'#229#197#7#144#219#177#3'|'#19#200#192#134'Y'
+  +'h'#154#17#209'['#196'!Q['#165#191#190#218'$'#128#223#192#193'O['#235#129'SV'
+  +'{b@'#173#199'MI'#224#208'IB'#17#12#11'_'#250#161'#'#212']>'#6#203#255'B'#224
+  +#26#192'W]$'#1'>'#230#162#248#253'o!'#234#141'p'#0#155#1#140#147#247#186#230
+  +#155'$'#227#163#154#165#255#155'O'#240#243#26#221'0'#140#224#231'l'#144#225
+  +#140#245']'#240#147'Wza'#192#10'o|'#177#210#243#150'P'#4#195']'#245#154'OB'
+  +#160#254#202#15#15#193#215#168#128#175'R'#130#175#248#8#161#252#2'B'#217#133
+  +#7#144'~x'#27#128#227#211#244#158#230#170#178'!'#170'I:'#156#224#127'P'#192
+  +'orc'#225'g'#18#252#244'u'#30#24'L'#240'A,'#188#23'NX'#238#141#227'J'#189'n['
+  +#15'{"'#137#222#203#145#245#29#131#8'PvF'#220#149#242'r'#248#203#2#248'K'#2
+  +#248#139#2#248#143#186#224#203'?$'#1'(J?@'#152#183#166#130'2a(s'#194#194#207
+  +#137#220'&u'#166#180#191'N'#229#14'#'#228#240#27#5#240'k8'#248'@'#130#247'g'
+  +#224'K<o'#13'r'#233'_E'#239'3'#139#194#193' '#2#176'N^'#243#233#169'^'#225
+  +#171'U'#192'W'#244#0'_z'#30#161#224#236#29#240#152#21#2' ~Jn'#142#145'['#29
+  +#172#9#254's'#182#220'5'#146#227'o'#226#28#127#22#153'^'#8#193'Oe'#224'Wyv'
+  +#193#23'y|7'#208#193#146#132#132'0'#10#15#131','#1#246#13'+/'#166')'#224'k'
+  +#181#128'/S'#130'/'#161'(>'#135#144#180#247'3'#0#219'a'#0#246#253'CK'#135#12
+  +'$'#199'?'#191#128#175#245#242'r'#199#194'70'#240#30#248'2'#193'Oz'#205#11
+  +''''#214'{'#227#216#2#247#27#253'm-'#203#232#252'B)'#220#133#141#145'~'#5#200
+  +'?%'#165'+'#254#223'>'#153#29#11#127'A'#0#255#129#0#254#28#7'_'#252'>B'#209
+  +'{'#8#211#170#214'XZ'#218#185'D7K'#143#246'T'#238#166#174'U'#130#207'w'#255
+  +#198#242#25#139'b'#2#158'C!S'#238#10#245'{'#245'+.'#20#247#25#190'\'#5'|'#137
+  +#10#248#194#247#152','#248'zf'#181'x7'#165'~wx'#165'r7'#153#224#3#8'~t'#158
+  +#236#154#229'`'#139#2'~'#205#187'RX'#26#172#17'b'#135#142#234#143'/'#246#8'_'
+  ,#165#11#252#187'l'#200#234'*'#31'0'#240#172#227'o'#230#202#221#236#30#202#221
+  +#152#28#215#175','#6#153#229#209'y'#205#160#144#170#130#215#175#0'>'#241#253
+  +#161#246#211#251#234#156#222'uM#'#154#148#189#207#1#151#171'X'#239'%r'#240
+  +#238#240'C+'#27'q~'#179';v'#149';'#217'C'#229'n2_'#238'F'#231#184'~i6'#192','
+  +#135#128#201'8AL'#209#207#160#195#16#155#254#139#154']'#213#193#251'l'#172
+  +#195#186'wlq'#242#166'h'#132#188'v'#14'V'#29'|'#193#187'8'#160#180#21#195#183
+  +'<'#143#154#148#187'QY'#210'/'#204#172'D'#217'tN'#211'(\'#248#182#218#176#227
+  +'0+@Z'#235#11#189'9'#189#207#198'Z\N'#240'u'#157'6'#184#172#195#22#159'-IC'
+  +#200'y'#155#3#150';'#189'<'#229#21#240'g'#209#172#176#29#167'o'#244'CM'#202
+  +#221#200't'#233#21'Q?Q'#22#157'O0'#133#179':x}'#10' '#130#176#149#207#246'dv'
+  +#221#224'O'#217'b'#229'I;,8'#226#140'6Y'#213#8#185#237#28#176#208#236'xx(8'
+  +#131#254#235'BQQ'#238'6'#245'\'#238'F'#166'J.'#137#204'E'#25't./S8i'#2#175'_'
+  +#1#6'yZC'#213#199#247#148#225'}'#9#190#254#172#0#190#221#14#203#222#182#195
+  +#226'c'#246#152#188#203#19#173'R7'#210'r8E'#240#239'*'#193#159#197'?'#173#200
+  +'@U'#229#142#133#23#148';'#159'$'#201'G"'#17','#166#243#8#226';<sM'#135'(='
+  +#206#248'n4'#223#159#187#166#10'~'#249#25#27#172'!'#248#170'v[,?A'#240#199
+  +#237')'#3#28'0'#247#176'#'#134'm'#24#133#162#212']$'#194'i'#130#231#192'!'
+  +#255#29#20'W'#215#179'W^]'#185#27#17#239'r'#158#217']'#160's`'#6#28#251#190
+  +#192#235#185#12':ZAF'#219'['#242#158'~'#248#235'k'#187#224'O'#219'('#224'K'#8
+  +#190#240#168#3#230#17'|'#206'AG'#204'<'#224#132'~'#213'S'#17#210#246#147#8
+  +#157#4#127#6#173#203#182#225#171'M'#158'j'#203#157'O'#162#248#3#250#224#20#10
+  +'f'#179#195#174#175#240'z'#22#128'f'#247#201'E'#179#228#245#221#170#226#4'&'
+  +#237#251'3'#214#18'|u'#135#18'|'#155#3#11#159'E'#240#233#251#156'1u'#143#11
+  +'z,'#141'CH?'#132'V'#133#7'1t'#179#175#218'r'#231#155'*'#190#204'_'#249'@'#30
+  +#222#236#145#238#10's[Z'#246#206#144's'#242'*'#219#220#148#158'C'#179#156'C'
+  +#148#190'~XA'#166'WJ'#240'E'#4#159#207#192#31#18#192#191#229#130'I'#187']0v'
+  +#187#20'm'#23#231'c'#240'z'#127#181#229'nt'#186#244'K'#145#25'd'#243'k'#222
+  +'^[x}'#11' b'#167#181#192#220#20'*k'#247#217#218'Nk'#218'$'#227#0#157#244'4,'
+  +'"'#211'c'#224#151#18'|v'#171#19'f'#16'|'#26#15#31#191'S'#140#177'-'#18#140
+  +#218#234#214'c'#185#11#230#203#221#152't'#201'7f'#22'fE|'#169'c'#13#239#177
+  +#185'/@FH'#29#151#131';'#204']'#185#159'kk'#169#182#23#145#169'e'#28#198#209
+  +#149#17#184#244#160#19#7#191#159#129'w'#198'd'#130'O '#248#184#29#18'\'#184
+  +'M'#138#145'j'#202#221#216','#233'm3+'#243#21#212'u'#207#214#180#206#27'Y'#0
+  +'>'#11#204'$/B'#236#246'+'#138#206#142'q'#247#204'6'#244'*H'#198#197'{]0m'
+  +#175#18'<'#165#127#183'r'''#132#231#203#221#184#28#215#127#155#15#232#223'H'
+  +#240#17'|o'#175'3'#188'A'#246#4'9''v!Sr'#10#129#217#245#231#21'm-'#185';d'#29
+  +'A'#167#236'\\'#180#195#13#19'w'#137#233#200#192'Kp'#129#154#233'n|'#158#219
+  +#29#203''''#7#236#162#183'^'#196#143#180#253#244#1'o('#1'L'#184#165'`#'#1#11
+  +#215'0'#136'n'#250#155'|'#160'aE'#200'<'#138'C3'#202'1z'#155#12'c'#182'3'#235
+  +#190#247#233#206#191#218#227#222'@'#219'A'#7#9#158#28#223'bXOS'#221'cuo'#16
+  +'"'#235#7'@'#214#137#12#200#239#252'F>'#208#200#27#28#182#214#147#8#246#217
+  +#133#228#246'n'#168#188#147'+w|'#6'>p'#197'0'#28#236'7'#230#26'X<UJ'#2#140'$'
+  +#240#129#250#132'7L'#6',9'#238'M'#208'_'#9#7#154'.'#248'3\,'#165#214'7'#227#8
+  +#138#151'dR'#218#203#30#222#201#229#203#157#221'+'#193#8#147'2'#145#230#140
+  +'[0'#163#138'Z'#221'!'#3#213'm'#145'?Z'#19#204';'#229'G'#208#183#149'{'#250
+  +'n'#240#185#148#1#185#212#246#230#144#8#139#15#161#140#26' '#214#241#133#240
+  +'dz'#178#248#137#8#19'ib'#12'_'#137#144#184#151'^{'#20'!'#226#141#213'Te'#172
+  +#249#219'h'#143#143#7#176#235'>'#191'3'#156#174#250#207'j'#225#151#158#230
+  +#130#17'`'#201'I'#132#212#3#232#149';'#175'['#185'{>{,'#194#132'D'#132'95'#8
+  +#241'4'''#164#181'q'#2#164#29'A'#152#181#156#202#160#237#16'}'#137#160#31#248
+  +#188#142#185#4#255'@avrp'#5'|'#167#0#254#20#15#223'AA'#163'p'#214#9'f'#175#15
+  +#135#231#207#224'j}'#201#8'4'#245#143'A'#152'Q'#142#16#215'B'#2#29#238#130'g'
+  +#132'Hi{'#0'S*'#202#169#1'|F'#151#14'P'#127#2'd'#31's'#161'Q'#246#135#30#225
+  +'s{'#129#207'f'#130#178' '#227#24#154'$'#236'B'#175#156#25'h95'#30'aZ1'#194
+  +#194'f'#130'=D'#240'G8'#248#212'6.RH'#144#228#131#247'a'#194#18#170#10#206
+  +#131'u'#245#4#221#27#159#252'3'#237#15'9'#189#166#240'Y'''#185#12#200'|'#155
+  +#6'!'#130'\'#180#147#185#11#196#195#183#18'|'#155#0#254'0'#7#207#136#146'|'
+  +#16'!j'#251'u'#202#130#17#188'1'#154'<'#26#1#178#142#248#171'5;'#249'z'#207
+  +#233#16#192#159#236#14#207#4'e'#1#155#226#201#7'8'#200'4'#21#240#201'<|'#18
+  +#19'$'#208#216#148'U'#228#7'b]'#230#1#221#174'~n'#231'i'#157#225'3'#152'8N'
+  +#25'p'#140#11'y'#202#247#6#159'H'#240#137'$TD'#227#183'4'#9#191#8#240#244#19
+  +#218'<O'#160#155#0')'#7#134'k'#228#244'r'#248'l5'#240#140#209#9#205'N'#190
+  +#222#217#148#151#195#183'v'#193''''#236#231'bT'#194'j'#182#235#212'2'#11#180
+  +'w'#254#172'c'#249'j'#157'>G'#201#236'Xp9'#252'q'#221#224#227#153#216#135#16
+  ,#186#238#239#148#5#227#181#205#2#237#239#2'-i?'#211''''#167#215#4'>U'#5'|R/'
+  +#240#139#168'A'#138'n'#249#153#154#163#249#20#142#218#148'E'#237#4#16'GY'#18
+  +#252']'#173#225#211'{'#130'Wrz'#5'<'#3'.'#135#223#215#5#31#247#22#23#131'}*'
+  +#201#12#189#153'm9'#227#8'0o'#179'T;'#167#23#154#221'Q'#165#26#223#131#211
+  +#171#131#143#221#131#224'1'#139'Fe['#26#150#196#150#6#23#128']'#255'q-~'#186
+  +'9'#253'Q'#205#157'^'#8#191'H'#5'|'#204'n'#132'1'#201'gi'#9'L'#0'xf'#144#193
+  +'w'#133#217#242#23#183'3B+'#167'W'#5#175#137#211#203#175#186#2'~O'#23'|'#12
+  +#205#10#129#197#127#165#166'('#132'o'#143'E'#134#22#192#20'b'#183'/2'#170#211
+  +#11#225'c'#149#224#23'RL'#173#253'''e@$o'#132#166#134#23'`^C'#136#214'N'#159
+  +#166#133#211#171#130'_'#200#195'GS'#251'<'#177#128'J'#161'C'#2#205#6#210#190
+  +'V'#2#237#4#8#204#243#213#222#233#219#180'sz'#22'~'#183#0'~'''#7#31#253'&'
+  +#194#232#196'+$@"/'#128#185#225'=`'#136#143#29#193'?0'#170#211#199#168#128
+  +#143'"'#248#168#29#8#222#225#231'h'#253'GS8'#25'#'#3'L'#0#164'OB'#250#209#155
+  +':;}R'#31#156#190''''#248#5#20#142#1#199'('#3'B'#1#134#218#24#195#3'L'#216
+  +#199'W'#23'n'#223'kT'#167#151#175'w&'#229#21#240'-'#8's7'#222#5'S'#231#205#0
+  +#142'A'#252#254#128#200#8#173#176'[?'#240#14#243#167','#248'Eg'#167'O'#208
+  +#208#233'U'#193'GR'#140#136#185'J'#169'_G'#25'0'#134#127#174#216#196'8'#179#0
+  +#179#222#194#26#142#27#205#233#229#240#11#4#240#17'[~'#5'+'#247#195't.)'#148
+  +#1#204#13#19#11#227'M'#131'L'#215'%'#13#158'J'#176#247#250#228#244#137'Z:'
+  +#189'|'#189#179#240#219#17#230'S'#140']'#252#15#130'o'#160'6'#248'e~'#183'Xd'
+  +#204#13#17#238'v'#184'_'#214'jH;|_/N'#31#171#198#236#132#240#19#11'o'#130#169
+  +#248#0#129'gr'#143#208#246'}'#14#208'U'#0#19'n?'#206#206#23'F'#198'5C'#252
+  +#222#187#6'uz!'#252#248#204#27'`'#226#216'F'#159']E'#23'!'#128'o'#129'M'#31
+  +#197#166#168')'#247#225#142'/'#193'S#*!'#184#242'*'#1#254#170#147#211'/'#236
+  +#193#236#24#248#176#13#247#224#249'h'#234#250#236'['#233#202#19#188#237#20
+  +#174#253#29#166#245#157'b}|'#1#202#156#187'Q'#225'0'#150#174'H<'#152'K'#215
+  +#130','#164#19#198'&}'#1'/'#164#127#13'/-'#185#14#1#5'7 '#168#236';'#152#186
+  +#236#22#204#172#255#17#230#172#249#137'`'#238'@D'#227']'#136'l'#254#133#198
+  +#235#187'0w'#253#29#152#185#234'?'#212#215#255#8'A'#21#183')'#197#191#7#191
+  +'%7`L'#202'uxn'#254'U'#16#7']'#2#19#23#186#234#246'M'#244'Yyt'#12#4#176'v'
+  +#208#5'^'#127'7FX?'#24#252'$'#251'p'#4#151#146'1'#244#239'B:'#214'S'#172#165
+  +'XO?o'#160#227'&'#138'F'#138'f'#250'y'#27#29'[('#222#164#216#201#31'['#248
+  +#223'7'#241#175#163#215';'#188'N'#199'5'#20'5'#20#217#20'a'#236#178#227#238
+  +#14#153'?6'#15'Hp'#15'G0'#183#197#153'f'#196#206#133'j'#242#179#220'&'#5#155
+  +#25#227#185'y'#221'~'#18'-'#151')'#220#232'j7'#155#142#225't'#140#160#152#207
+  +#29'Y8'#230#247#211#249#215#5#178#203#11#236#199#209#239'}'#232#232#201'={'
+  +#192'}'#143#232#177'{@B'#241#157'@6#'#152#212'd'#4'q'#180'b'#190#228#192#25
+  +'&'#181#208#172'@'#140'o0_'#129#25'b'#11#224'dO'#175'q'#224#142#204#207#204
+  +#239#153#146#198#188#142'y='#243'w'#204'{0'#239#229'c'#174'/p'#163'~o'#144#23
+  +#198'D '#144'<LU'#132#240#255#21#127#247#199#151#167#255#16#192'0'#241#127
+  +#171#211#153#189#151'S'#193'e'#0#0#0#0'IEND'#174'B`'#130#0#0#0
 ]);

createuser.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  StdCtrls, Buttons;
+  StdCtrls, Buttons, ExtCtrls;
 
 type
 
@@ -19,6 +19,7 @@ type
     cxGrantRole: TCheckBox;
     edUserName: TEdit;
     edPassword: TEdit;
+    Image1: TImage;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;

dbinfo.lfm

@@ -1,18 +1,18 @@
 object fmDBInfo: TfmDBInfo
   Left = 323
-  Height = 390
+  Height = 471
   Top = 158
   Width = 701
   Caption = 'fmDBInfo'
-  ClientHeight = 390
+  ClientHeight = 471
   ClientWidth = 701
   OnClose = FormClose
   Position = poScreenCenter
-  LCLVersion = '0.9.31'
+  LCLVersion = '1.0.4.0'
   object Label1: TLabel
     Left = 15
     Height = 18
-    Top = 36
+    Top = 49
     Width = 65
     Caption = 'Database'
     ParentColor = False
@@ -20,12 +20,12 @@ object fmDBInfo: TfmDBInfo
   object edName: TEdit
     Left = 144
     Height = 21
-    Top = 33
+    Top = 46
     Width = 479
     Anchors = [akTop, akLeft, akRight]
     AutoSelect = False
     BorderStyle = bsNone
-    Font.Color = clNavy
+    Font.Color = clBlack
     ParentFont = False
     ReadOnly = True
     TabOrder = 0
@@ -34,7 +34,7 @@ object fmDBInfo: TfmDBInfo
   object Label2: TLabel
     Left = 15
     Height = 18
-    Top = 72
+    Top = 79
     Width = 84
     Caption = 'ODS Version'
     ParentColor = False
@@ -42,11 +42,11 @@ object fmDBInfo: TfmDBInfo
   object edODSVer: TEdit
     Left = 144
     Height = 21
-    Top = 69
+    Top = 76
     Width = 88
     AutoSelect = False
     BorderStyle = bsNone
-    Font.Color = clNavy
+    Font.Color = clBlack
     ParentFont = False
     ReadOnly = True
     TabOrder = 1
@@ -55,7 +55,7 @@ object fmDBInfo: TfmDBInfo
   object Label3: TLabel
     Left = 15
     Height = 18
-    Top = 104
+    Top = 110
     Width = 54
     Caption = 'CharSet'
     ParentColor = False
@@ -63,11 +63,11 @@ object fmDBInfo: TfmDBInfo
   object edCharset: TEdit
     Left = 144
     Height = 21
-    Top = 104
+    Top = 107
     Width = 88
     AutoSelect = False
     BorderStyle = bsNone
-    Font.Color = clNavy
+    Font.Color = clBlack
     ParentFont = False
     ReadOnly = True
     TabOrder = 2
@@ -76,7 +76,7 @@ object fmDBInfo: TfmDBInfo
   object Label4: TLabel
     Left = 15
     Height = 18
-    Top = 136
+    Top = 142
     Width = 94
     Caption = 'Creation Date'
     ParentColor = False
@@ -84,11 +84,11 @@ object fmDBInfo: TfmDBInfo
   object edCreationDate: TEdit
     Left = 144
     Height = 21
-    Top = 136
+    Top = 139
     Width = 176
     AutoSelect = False
     BorderStyle = bsNone
-    Font.Color = clNavy
+    Font.Color = clBlack
     ParentFont = False
     ReadOnly = True
     TabOrder = 3
@@ -97,7 +97,7 @@ object fmDBInfo: TfmDBInfo
   object Label5: TLabel
     Left = 15
     Height = 18
-    Top = 168
+    Top = 172
     Width = 64
     Caption = 'Page Size'
     ParentColor = False
@@ -105,11 +105,11 @@ object fmDBInfo: TfmDBInfo
   object edPageSize: TEdit
     Left = 144
     Height = 21
-    Top = 168
+    Top = 169
     Width = 88
     AutoSelect = False
     BorderStyle = bsNone
-    Font.Color = clNavy
+    Font.Color = clBlack
     ParentFont = False
     ReadOnly = True
     TabOrder = 4
@@ -118,11 +118,11 @@ object fmDBInfo: TfmDBInfo
   object edDBSize: TEdit
     Left = 144
     Height = 21
-    Top = 200
+    Top = 201
     Width = 176
     AutoSelect = False
     BorderStyle = bsNone
-    Font.Color = clNavy
+    Font.Color = clBlack
     ParentFont = False
     ReadOnly = True
     TabOrder = 5
@@ -131,7 +131,7 @@ object fmDBInfo: TfmDBInfo
   object Label6: TLabel
     Left = 15
     Height = 18
-    Top = 200
+    Top = 204
     Width = 95
     Caption = 'Database Size'
     ParentColor = False
@@ -139,17 +139,23 @@ object fmDBInfo: TfmDBInfo
   object Label7: TLabel
     Left = 16
     Height = 18
-    Top = 234
+    Top = 270
     Width = 122
     Caption = 'Connected Clients'
     ParentColor = False
   end
   object meClients: TMemo
     Left = 16
-    Height = 116
-    Top = 264
+    Height = 157
+    Top = 304
     Width = 673
     Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Left = 2
+    BorderSpacing.Top = 2
+    BorderSpacing.Right = 2
+    BorderSpacing.Bottom = 2
+    BorderSpacing.Around = 2
+    BorderSpacing.InnerBorder = 2
     Font.Height = -11
     Font.Name = 'courier 10 pitch [bitstream]'
     ParentFont = False
@@ -173,11 +179,11 @@ object fmDBInfo: TfmDBInfo
   object edConnections: TEdit
     Left = 144
     Height = 21
-    Top = 231
+    Top = 267
     Width = 112
     AutoSelect = False
     BorderStyle = bsNone
-    Font.Color = clNavy
+    Font.Color = clBlack
     ParentFont = False
     ReadOnly = True
     TabOrder = 8
@@ -185,11 +191,258 @@ object fmDBInfo: TfmDBInfo
   end
   object bbRefresh: TBitBtn
     Left = 16
-    Height = 30
-    Top = 0
-    Width = 75
+    Height = 37
+    Top = 6
+    Width = 93
     Caption = 'Refresh'
+    Glyph.Data = {
+      36090000424D3609000000000000360000002800000018000000180000000100
+      2000000000000009000064000000640000000000000000000000FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      000100000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      000100000004FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000000200000004200000081C00
+      00251C0000252200000F2B00000600000003FFFFFF00FFFFFF00000000012339
+      1A3A2023118900000006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00000000012B0000061D382057205532B9226F3EE62384
+      49F6237640F0226235E8214A27D21E0C076E1B00001300000004294A291F2A81
+      3DF5276C32EF1800002A00000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00000000011835203F217043D2239E5CFE239E5CFF249C59FF249B
+      57FF259955FF269752FF269650FF268847FA224A26D51B0A0567277339D3298D
+      45FF298840FE1C0D056400000003FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0022945E26219F61FA21A363FF22A261FF23A05EFF239E5CFF249C
+      5AFF249B57FF259955FF269753FF269650FF27944EFF278847FB28914AFF298F
+      47FF298D45FF21371AB000000005FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF001D9C632C20A567FD21A566FF21A463FF22A261FF22A05FFF239E
+      5CFF249D5AFF249B58FF259955FF269853FF269651FF27944FFF27934CFF2891
+      4AFF298F48FF24572AE22400000EFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF001EA1648A20A768FF21A364FE208752B72292584B2380
+      46162196592E24975778249957FA259A56FF259853FF269651FF27954FFF2793
+      4DFF28914AFF27793DF41A00003B00000002FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF003399660521A467542099602800000002FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00208F5440249755F7259A56FF259854FF269652FF2795
+      4FFF27934DFF28904BFF1D190D7A00000003FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF000000000120653947239A5AFD249C59FF259A56FF259854FF2697
+      52FF269550FF27934DFF234323BD33000005FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF002E5D2E0B218F55EC239F5EFF239E5BFF249C59FF259A57FF2599
+      55FF269752FF269550FF235A30B600000004FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00000000012192597321A363FF22A160FF23A05EFF239C5AFB239254E8248A
+      4ECF24854AB02483467F20603010FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF000000
+      0001000000011F9B5D29209A606021985F3E2291551E00330005000000030000
+      00020000000200000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0000000002000000040000000433000005240000072300
+      00161C00002E1A0704461D0D064F00000002FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0000000002192E20481B4831981C5B3CB71C6946D31D784FE61D89
+      59F01E9A64F81FA96BFE1E7248DC33000005FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF001BA876381AB37CFC1AB77DFF1BB57BFF1CB379FF1CB276FF1DB0
+      74FF1DAE72FF1EAB6EFF1D5E3C7200000002FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF0018B17E4B19BA82FF1AB980FF1AB77EFF1BB57BFF1BB379FF1CB2
+      77FF1DB074FF1D794FC400000006FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF000000000200000001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF001199660F18BA84FC19BA82FF1AB980FF1AB77EFF1BB57CFF1BB4
+      79FF1CB075FE1C271A9D1100000F000000020000000100000001000000031700
+      000B1D0704471A00002800000002FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF000000000219B17DD018BC85FF19BB83FF19B981FF1AB77EFF1BB6
+      7CFF1BB47AFF1CA36DF91D3422B21B00004B180000201B00002F1E442B781F83
+      52E620A465FE1F5533D51B00001C00000001FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0017B4818418BE88FF18BD85FF19BB83FF19B981FF1AB8
+      7FFF1BB67CFF1BB47AFF1CB378FF1CA26CF91D8A5BF11EA069FA1EAC6EFF1FAA
+      6CFF20A86AFF20A366FD1F2E1B9600000004FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF0016B4843A17C08AFF17BF88FF18BD86FF19BB84FF19BA
+      81FF1AB87FFF1BB67DFF1BB47AFF1CB378FF1CB176FF1DAF73FF1EAE71FF1EAC
+      6FFF1FAA6DFF1FA96AFF1E603DA000000003FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF000066330516BC89F517C18BFF17B581FB1B825D6019B0
+      7CB519BA82FE1AB87FFF1AB67DFF1BB57BFF1CB378FF1CB176FF1DB074FF1DAE
+      71FF1EA46AF71D84548B00604008FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF000000000116B384BB16C28DFF1974548F000000040000
+      000118AF7B361AAE79BD1AB27BF21AB77DFF1BB57BFF1CB077FC1CA06ADA1D95
+      62972380511600000002FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF0013BE8D4315A4798300000003FFFFFF00FFFF
+      FF00FFFFFF00000000010000000312805B0E1FA870291774460B000000030000
+      0001FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000001FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00
+    }
     OnClick = bbRefreshClick
     TabOrder = 9
   end
+  object Image1: TImage
+    Left = 568
+    Height = 90
+    Top = 95
+    Width = 90
+    Picture.Data = {
+      1754506F727461626C654E6574776F726B477261706869639211000089504E47
+      0D0A1A0A0000000D4948445200000040000000400806000000AA6971DE000011
+      594944415478DAE55B795C94D7B9B69A7AD126B6494CA311A388E0C28D499AD6
+      C436B1242ACA45106667D3414401917D5F64D891618761876147406457407641
+      714514C5BD595C50D3FE91DFEF36B7A6FAF67DBF99D1091119181AB4F78FF3FB
+      98E19B739EE7F9DEF32EE73B671A004CFBFFDCFE6389712BF4660A24DA0BA74D
+      9B3603DB2FA65C80E6E666DDC3CDF5760D8DB5A975F5552D07EB2A2F55D554DC
+      AB3CB8FFBBFD9525C3256585178B4AF29BF30B7352A485B9C2DCDCDCC51326CF
+      9D364358A055B155AAFDF5EAEDF37F8F02CC1A4D84899B0E76F8BC76F2F40997
+      E3277BBFEAEEED78D4DAD104CDAD8D70B8A51E1A9B6AA1FE5035D4361C84EABA
+      038022008A0015074A617F65319496174271590114964801C580ACDCF4471939
+      693772F2D36DC71A53814D98AF95BA355F1B2CF3B4812BD1BEBFC2E8CDF5F8FF
+      D9CF1261C2C44522D1746A5C2E7786A20D0E9D771CB870E62F274E1F7BDCD9D3
+      06EDDD47A0ADB3198EB41F9E980045B99057900D39D24C1202D233531E67E5A4
+      5D2B2AC9DEA63CAE020BE1124AB582B6E52F012B242FC8590ADC4C1D3049D479
+      A0BBF1D9228C9B3C0DA4AFAFFF0A5E5FD9B973E72F83838335AE5DBFD2D47FFE
+      D4E36327BBA1A7AF13BA8FB5834280D6491420235B422280243D195224898FA4
+      85D955343EE1203CDBF3B5772AC89B23795E960EB0D375C154A20B9B6275BFD5
+      317863C34811C621C0B45F90DA3498A1A1E17F0985428D8B4317ED86AE0C3E3C
+      79F618F49DEE819F5900484A8987E4D4F87F1416E7590B33977285054BFE6925
+      55229F21236F9CB20CFE276939ACDFB7EC5BAD0DBF35501641E5272F37B799C6
+      C6C6B3F1FAEAB51B972583430370BABF0F265F807C950548488A85D01457D85E
+      A0F3833592B7C85D0A7C24CFC9D001D3B4A7E43726AC80F5712B616DF8F2BF2A
+      8BA0B2D913790303835FE1F5D7D76F5CCE23F267074E4EB90051297E602B5D01
+      4FC8672F65C89B217993D4656084E43731E457C0E7E295F047D18ABFBDA937C7
+      117969627B45250168CED393373535FD4D574FFB869B5F5E83FE0BA7A75C00B1
+      2404ECA4EF01863BB05490CF54229F2C23BF01C97F41E48397FFF5B545B32390
+      130BDB029504503C7D434BC339787DEBD6EDAF6F9FBF7476CA0548488B027BE9
+      47C084BB5CF4F8D9328FCF42A7B705C96F26F289CB9F920F5A76FFD5051A6148
+      9A8F6D994A534069EECFC2F6864060F2CE9DBBB71E0F5C3C33A502A4A4C58153
+      DE1AD8268FF58A70C7909710F9656088E40DE257C0BAD895B026407778F63C8D
+      10E4C3C5A6AB9C18A964FED6D6D634F7DF6A38D4B0190580A914202D23095CF3
+      BE80D1C2DDE69411E4FD756F6BCC9D198C5C38D8744666852A09405E1FDBBCB2
+      8A7CC3070FEE4DA9007EB96CC070F763F223C2DD4624BF1EC97FECABF3CDEC37
+      348290071B9B36368D7125427433C57D4B4B4B9AFF0B72A4924DF7EEDD812BD7
+      2F4E890061B9F60C79C6E3E7C8C21D7B9470F789D7D2AF67FF46433463C68C51
+      C9AB2C00853E6CEF666427195DBD3104F71FDC8573831313A0A2791F54D75740
+      4D7DD5B80488CD0B009B021DA570A7F39370B7511EEE3EF55D7EE7B5375F8B9C
+      356B96F99C3973968E465E25012802585858BC8E57ADD4ACC42D1786FAE1D6ED
+      AFE0F69D6F00D3DF710950D6EA0FB1DDF320B9860B58FDC181EA7295049048C5
+      6057F0DF2A853B93D0CF40EF83E5D2B973E7EED0D4D45CA5A7A7F72AF2983EA1
+      7258210045003EDF543B353DC18C0418BC7C8E11811C62FFC0299504286FF387
+      38241FD3F93644B5CD83C84C2114144B19F2CF13203B5F02BBF33F5629DC6D09
+      F93378F97980FE176BC357AD5AF919FAAF7994B64F783D807E481D189B1BCF35
+      E39BE926A5C672490045FBEA9B9B404EF1EAF5213871A67754012A3A029E926F
+      9F07E147E683E8D042884EF184E2D202A8A82A7BA600D2A21CF02A307C1AEEB2
+      470F77AC90CFC1DBDF13C3642A3838D9D96F34DEA867C8357C4B3D0144D3A653
+      071402518015F1496281B200D486AE5E602C61F8DE5D46885338259405A8EC0C
+      82F8A34AE45BE74348F37CD87BF81DF0ABD285B89430A6F829AF2CF98900A2C2
+      6DCF0C770C79A570C716AD035F7F2F48CF9230E577D4BE70CB2DDC2D2B093723
+      8068825380B240A1505FC3C4DCE46DB6395B4F9C186D39520045BB78E53CDCB8
+      79158687EF30820C5E1A809A9E5086BCB8EB6D8846F211ADF320B405C937BD03
+      018D0BC0B75E133C0B7E0738B5D02714405945D11301628BBCD0E36B8F19EEB8
+      C11BC037C01B3273D2A0ADAB05A3D32910C7455B115EC24DF889871A02083528
+      07C00E57C526446D1D4D008A0AA7CE1E87DEBE2EE83BD503EDFD1248E8992F23
+      DFF1F613F2C1483EF0D002F043F2DEB59AE05EBD103CD2D633A65B5C2A7BF229
+      F961E8F175C70C77DC900DE01FE803D979198CB511794AD30927E125DC845F2D
+      01280D6659B1E6B3D9EC0FF7C546D8A822403B3E89BAA65248685A0DFB907C64
+      DB08F20D0B18F21E48DEB5EA5DD853B108DCC53CACED1340921B07BBF2DF1F33
+      DCB142F599274FF90191A7F115580827E125DC845F6D010402C13B78FD08E796
+      9D2A027420A043CD7550509203A1659F4018393D241F84E4FD897C9D12F9CA45
+      E058BE08761669814BB035ECCE5D3366B833C350E7EDEF219BF328B632796A84
+      93F0CA71AB270095C12C164B133B5A1DB12FD45E55019A8E34C0C1DA4A267D0D
+      CCFD0282D0E911791F24EF59B310DC90BCB39CFCAEB2C5B0A3580BCD5E7BD470
+      67240F7726A16BC0C3DB05D2B028228747663F120BE124BC849BF0AB2D8040B0
+      652176B8263C4AB45B550128F1A96BAC66421C81F54D3502DFBA8532F20789FC
+      BBB01BC9DB2379BB122DD85EB804B68E11EE3687AD863DEE8E90901C0B473A0E
+      C3D9F32799393F120BE124BC845B6D010CAC0D7EC5B2602DE2F1587F0A8B0C76
+      1E8F00F5876A986C8FC25C6A5A227889B9E07600C91F1841BE68C98FC39D3279
+      79B8330AFF08EC9DED707E474103D613A391A74638092FE126FC6A0940A530CE
+      A5C5D8E1DA90B020B7F10A40A96E594531480B722031390E3C22709E972E0187
+      FD8B6127435E0BB68D51DD19457C083B760B919808AA6A2BE0F8A9A3A392A746
+      38092FE126FC6A0B801E750976F879705880D74405282CCE832C8CD571F131E0
+      26B201BB426DB045F26355778662AC01ECCD21283880C913BA7BDBE1F4B9BE51
+      C953239C849770AB25807C35E855AA030402CEBAE090201F7504C8C1784DCB59
+      D13111B047640142243E722557E1F189FCA6783DE03B6C012F1F77A6286A693F
+      C4A4DB67064E3C5F00C4497809B77C2D63865A02605BCAE1730C6C6D850EEA0A
+      909691225BCA0E178183888DE4757EBA922B0F77A64E1BC0C9D991F11F7587AA
+      31BD6E65CCFFB9025CEA071B9B6DF6849770AB2D808989C96B7C2C84B043C388
+      A810D1F98BEA0B40BE609F38929E14D88A36CB3CBE3279747AC69E9F81DDCEED
+      CC7D9518495AB0A2ECEA6D1B5380DE13DDE0E6E9124C780937E1574F80ED4C07
+      CBB0C3CDA191C11157AF0D4D8A0031E8CD23A3C360AF2810AC441B7E14EE0C03
+      7E0FD6422BFC5F00F3BB86C33518F69A5412A0747F210404FB46105EC22DC73F
+      71016839CCDC9CBD9C2BE09A0404F944DCBB7F177A8E774E8A00E40B4884A060
+      7F10847DCE90DF18F63EF02D39E0E9ED0E99984455D5943359A52A0250059A86
+      3505E124BC845BBE9CA79E00785DC915B0CC02F6FA44DDFCF22A0C5E1C60C04C
+      86000A1144A18158DCAC03735B0E33EF13F01EAA0CABEB2A5512A00BA3435C62
+      0C332EE124BC845B6D01683D904A4B9E399BED17E82DA6C1EE0EDF8696D66666
+      B0C910801A7D8E880A65AABB98B8689016E640F98112A8A93F30A6004DAD0D10
+      15138EFD67329F0927E125DCF2F54CF504E072B7BCC7E3B179BE019EF14CED7F
+      798011E1684F1724A725C18933C7D41620367E1FF3AE2F092B42AAF08AB034AE
+      A82A7DAE00B40C97224982B08810CC31D299354AFA9E70125EC2ADB600F43E90
+      6A6BECD0DCD7DF33E9A9F2E7E0F69DAFE1FA8D6B083C016213C550555D01478F
+      754C4880B88418E67D5F7A562A13F3297D7E9600BD27BAA01ABF4B44A1FC03FD
+      70FA84336B08E706CF3CB108C249780937E1574F00217560FA019BC7B6F2F1F7
+      948C9C7B576F5C86FB0F86E1785F2F0A9108BB1C7741107AF66C34475AFB1FAF
+      00543D8E14A0E1702DE415E542488408EC9DEC31CCB962BABB97B99FD6024662
+      229C849770CBF04F50007A2B646161F43A5BC0FE90C337DBEAEDE791FE2CEF3B
+      78998418826F6E7D09C3C377A1ADBD0DE77304F02D2CC07EB703027643B3F461
+      D2594A8022A3C27F449E9A18E77DB4380AC2C9218605A323F3C79ADF0B5CDC5D
+      C06ADB5670D8E30881F81D09477505E505F486EA59780827E125DC849F78A821
+      80C5EB7C3EEB77D8A18D97AF7BF65899E0F19347A17FE0345CB93A04376F5E83
+      9ABA6A484E4D81E0D010707275018BADD6B0C9D818567FBA16DBA7F0E7F5EBE1
+      537D7D58BB6E1D189A9800CF5C00425B1B14CE1E5C3D5C90B41F439A2C830AA1
+      1EF43163A5C28493F0126EC2AF9600F44E80565730ACD87AF9BAE58D27156E6C
+      AA83B68E166C47D02A8E307FB7B637435B1BB516A845718A4A0AA1BCB20CCA2B
+      4A719A48214F9ACD4C1FF2E8CC54282D607C89AA89904C00B73CC2CBE046FC6A
+      0B804AFE812B60EFC4A2A460326A01850F10C746E3DC17E335EAB93E40D544E8
+      89008893F032B8D515C0CCCCEC4D5A5EE2F2D90E9E3E6EC5932980AA4E70BC02
+      104EC24BB809BFDA02B0F8AC4FB04327771FD7B2974100C2497809B7DA02D06B
+      312ED76C0D4FC076F6F072A97C1904209C849770137EB50430C70E3802CE1F31
+      B170F3F072AD7A390470AD22BC84DB7CA2022876875007B4C0C8E573DDDDBD5C
+      6A5E8A298038092FE1560830EEFD01CA029092D4A1AB9773EDCB2000E1441FE0
+      AE6C0113DA20212F86DEC08CEA633429E7EDB6C2FD2FBA00B45A8C38CB082FD7
+      02A3972C8F51B71AE47E801DDAF1F89C6C04F0FD8B2C008EFFBF1C3E2B1B7380
+      1D7CBED9FB6A55838A65715A5BA3F292C363C7E717E55E7F9105C8CDCFBA8AE6
+      1F87A930976DC1D6516B595CB143C4CA8A359FD6D9393C8E8FA5B5A012F3F1EF
+      5F44017AFA3ABFB7B0342FE7F058DE38FFF5E9EDB0DA5B64462C8BF1D10AC46E
+      EE2E9D7DA77B1FBE4802F49DEAF987ABBB73273EFD18C28956BBC252B6BD57ED
+      33438C1598599BFD16EBEBD538BF76E020298E4E0E9D3DC73BFEEF4510A0BBB7
+      E37B0747BB0EF451C9B222C874B50C2F7726E157FBD498629F006D96A4D8CA46
+      878822245A6E356FCCCDCFBC8DE41F4F8500FD174E3FCECACBB865612968E008
+      D8F11C3E670713B211E758FB02C62580622A58D39B62164B93C222ADB8A04F08
+      45D58B9D9C1D8E4B0B73EE7574B7FEF07308D0D9D3FA109DF13DC73D0EC7787C
+      5631E140F296848BC813CEB14C7FDC47661422D0FB7673D9A6A955686E465474
+      905F20207C01A7C9DDDB7550929EF4EDC1BACA1F2653809AFAAA1F5233921EB8
+      79B95EE0F1D94D32E26C318DCFE5220E2EF73DDA1425B75495C84FF8D014F904
+      5A6B13084C17A3B7C19A9B6542F53782D98B16214180153C01A7758FABD3A5C8
+      E8B007B10931DF25A6C4FE3D3935FE61B224E1D1F30440928F52D3921E26A526
+      FC3D3E29E63BFCDFFD3D2EBB2F61DFAD4CBF7C9684C6A1F130341B53CD4F3868
+      F19370294E8FFD5B4F8E2AED2267CE11E0B458441641A107AD8283D36337820C
+      21B0F4A4B83CCE4104DF4824B0750B2C7827AC6DAC2FD8EEB4B9BECBD1EE4BBA
+      6EC3CFF43DFEBF4B4EB651F63B56B19C74083A6047EA9FC6A1F1685C79A637EB
+      79E9EEBFE5E8ACF2113ADA8A46A1D21A3D2FBD9397658E9837F0392C042CC4D2
+      74375A8427C6E74024122E9B329C64249681CE2B8BAEF499F95EC009A3FBE87E
+      FA1DFD1E2DCC8C1117FBA53DCB340E8D47E3CA8FF04D9F08F949393AAB3848A9
+      385227B78A5F5318A22D2AF482D20C535232558A20240C9AEE467A79895753CC
+      D858B22B67339FCF316031FF67FD89EE97EFF55B463BD5E5618DD2DA59F27166
+      8C3C313AE587A76556316DBA420C7A42E491E9BC11F90CF9F2DA5BB481918EDF
+      B02C599A8A469FE97B665B2EDE47F7D3EFE8F7FA427D8D27A4417DD23FCBE1E9
+      671DB12573A54664E484662A9AE23BC53D238FC44E2669E5F62FC0F371CFA58E
+      E27E0000000049454E44AE426082
+    }
+  end
+  object Label8: TLabel
+    Left = 16
+    Height = 18
+    Top = 237
+    Width = 78
+    Caption = 'Server time'
+    ParentColor = False
+  end
+  object edServerTime: TEdit
+    Left = 144
+    Height = 21
+    Top = 234
+    Width = 176
+    AutoSelect = False
+    BorderStyle = bsNone
+    Font.Color = clBlack
+    ParentFont = False
+    ReadOnly = True
+    TabOrder = 10
+    Text = 'odsVersion'
+  end
 end

dbinfo.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Buttons;
+  Buttons, ExtCtrls;
 
 type
 
@@ -17,11 +17,13 @@ type
     bbRefresh: TBitBtn;
     edCreationDate: TEdit;
     edConnections: TEdit;
+    edServerTime: TEdit;
     edPageSize: TEdit;
     edDBSize: TEdit;
     edName: TEdit;
     edODSVer: TEdit;
     edCharset: TEdit;
+    Image1: TImage;
     Label1: TLabel;
     Label2: TLabel;
     Label3: TLabel;
@@ -29,6 +31,7 @@ type
     Label5: TLabel;
     Label6: TLabel;
     Label7: TLabel;
+    Label8: TLabel;
     meClients: TMemo;
     procedure bbCloseClick(Sender: TObject);
     procedure bbRefreshClick(Sender: TObject);

main.lfm

@@ -1146,69 +1146,69 @@ object fmMain: TfmMain
       FFFFFAFEFFFFFDFCFFFFFFFCFFFFF2F8FF00F8FEFFFFFAFCFFFFF7FCFFFFF2FE
       FFFFF1FDFDFFFDFFFFFFFDFFFEFFF8FFFCFFEEF6EFFFFFFFF9FFFFFFFCFFF8FB
       FFFFF8FEFFFFF6F8FFFFFBFBFFFFFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00AEAEAE16FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00717171096D6B
+      6B856A6868CA646161B5625E5E39FFFFFF00B3B3B31BA29F9FD5A7A7A7FF908D
+      8DE854494946FFFFFF00FFFFFF00FFFFFF00FFFFFF00AAAAAA036C6B6BD47070
+      70FF6F6F6FFF6D6D6DFF696969FE544B4B58A1A0A08BA7A7A7FFA2A2A2FF9E9E
+      9EFF6C6363D4FFFFFF00FFFFFF00FFFFFF00FFFFFF006B686856707070FF6F6F
+      6FFF6C6C6CFF6B6B6BFF686868FF595555E8949191BCA1A1A1FF9D9D9DFF9898
+      98FF726A6AEE1A00000AFFFFFF00FFFFFF00FFFFFF00615B5B8C6E6E6EFF6C6C
+      6CFF6A6A6AFF686868FF666666FF5D5A5AF97A74744B999898FC979797FF8F8E
+      8EFD422F2FA7FFFFFF00FFFFFF00FFFFFF00FFFFFF005953534D6C6C6CFF6A6A
+      6AFF686868FF666666FF646464FF4E4646E99290907E949494FD929292FF8B8B
+      8BFE605757AD00000001FFFFFF00FFFFFF00FFFFFF00FFFFFF01544D4DD56868
+      68FF666666FF646464FF5D5B5BFB44383895969696FF919191FF8C8C8CFF8888
+      88FF838383FF483B3B8EFFFFFF00FFFFFF00FFFFFF0080808006605F5F976565
+      65FF646464FF616161FF585555F47C7B7B9E909090FF8C8C8CFF878787FF8282
+      82FF7D7D7DFF595050DCFFFFFF00FFFFFF0055555503626161D3656565FF6363
+      63FF616161FF606060FF5D5D5DFF5D5C5CFD808080FF868686FF818181FF7C7C
+      7CFF787878FF534A4AE600000002FFFFFF00615F5F6E646464FF636363FF6161
+      61FF5F5F5FFF5D5D5DFF5B5B5BFF595959FF605E5EFD808080FF7C7C7CFF7777
+      77FF696666F835252599FFFFFF00FFFFFF005A5656BE636363FF606060FF5F5F
+      5FFF5C5C5CFF5B5B5BFF595959FF575757FF545353FD3A2E2E583A29295D3726
+      265D220A0A35FFFFFF00FFFFFF00FFFFFF00575353D4606060FF5E5E5EFF5C5C
+      5CFF5A5A5AFF585858FF575757FF555555FF535353FF30212165FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004D4646955E5E5EFF5C5C5CFF5A5A
+      5AFF585858FF565656FF555555FF525252FF4D4B4BFB2105052FFFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0046404028575555F95A5A5AFF5858
+      58FF565656FF545454FF525252FF505050FF392F2FDF00000002FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00311C1C3F352727A9382B
+      2BBF382B2BC0362929C0342727C02B1B1B9F19000029FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0015C59116FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00E38E0009CA83
+      0085C27D00CABA7600B5B6740039FFFFFF0014C9961B16B584D517BF89FF19A1
+      71E819543946FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFAA0003C88200D4D288
+      00FFCF8600FFCD8400FFC88000FE9359005816B7858B18BE88FF19BA81FF1BB5
+      7BFF1C724BD4FFFFFF00FFFFFF00FFFFFF00FFFFFF00C6800056D18800FFCF86
+      00FFCC8300FFC98100FFC77E00FFA66600E818A676BC1AB980FF1BB47AFF1DAF
+      73FF1E7A4EEE1A00000AFFFFFF00FFFFFF00FFFFFF00AD6D008CCE8500FFCC83
+      00FFC98000FFC67E00FFC47B00FFB16D00F91A845B4B1CAE76FC1DAE72FF1FA5
+      69FD1D3621A7FFFFFF00FFFFFF00FFFFFF00FFFFFF00A063004DCB8200FFC980
+      00FFC67E00FFC37B00FFC07900FF8F5400E91CA56F7E1EAC6FFD1FA96BFF21A2
+      63FE20663CAD00000001FFFFFF00FFFFFF00FFFFFF00FFFF0001985C00D5C57D
+      00FFC37B00FFC07800FFB26E00FB41421A951EAD70FF20A869FF21A363FF239F
+      5CFF259A56FF2045258EFFFFFF00FFFFFF00FFFFFF00D5800006B6710097C27A
+      00FFC07800FFBD7500FFA86500F442914D9E20A768FF22A362FF239E5BFF2599
+      55FF27944EFF245F30DCFFFFFF00FFFFFF00AA550003BA7400D3C27A00FFBF77
+      00FFBC7500FFBA7300FFB77000FFAC6E03FD45954AFF249D5AFF259854FF2793
+      4DFF298F47FF255829E600000002FFFFFF00B571006EC17900FFBF7700FFBC75
+      00FFB97200FFB77000FFB46D00FFB16B00FF837017FD269753FF27934CFF298E
+      46FF297A38F8202C1399FFFFFF00FFFFFF00A96700BEBE7700FFBC7400FFB972
+      00FFB66F00FFB46D00FFB16A00FFAE6800FFA76300FD283216581F30185D202F
+      155D1B0A0435FFFFFF00FFFFFF00FFFFFF00A46400D4BB7400FFB97100FFB66F
+      00FFB36C00FFB06A00FFAE6800FFAB6500FFA86300FF56280065FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF008E540095B87100FFB56F00FFB36C
+      00FFB06A00FFAD6700FFAB6500FFA86200FF9C5900FB2005002FFFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00804D0028A96500F9B26C00FFB069
+      00FFAD6700FFAA6400FFA86200FFA55F00FF6B3800DF00000002FFFFFF00FFFF
+      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004821003F5C2F00A96433
+      00BF623200C0613100C05E2F00C04A20009F19000029FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF01716F6F6A696767C4656262C05F5C5C59FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF006D6B6BA4717171FF707070FF6D6D6DFF6B6B6BFF544D4D91FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007070
-      7020717171FF6F6F6FFF6D6D6DFF6B6B6BFF696969FF636262FB1100000FFFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006D69
-      69446F6F6FFF6C6C6CFF6B6B6BFF686868FF676767FF646464FF2D171744FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF007676
-      760D6B6B6BFE6A6A6AFF686868FF676767FF646464FF595656F71E000022FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF004E4545A6686868FF666666FF646464FF606060FE352424B800000001FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF006563636A646464FD646464FF626262FF5B5A5AFB473F3F5DFFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00605F
-      5FA7656565FF646464FF616161FF606060FF5E5E5EFF5A5A5AFE4A444483FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00676767346565
-      65FF646464FF616161FF606060FF5D5D5DFF5C5C5CFF595959FF524E4EF70000
-      0005FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005E5A5A826363
-      63FF616161FF5F5F5FFF5D5D5DFF5B5B5BFF595959FF575757FF555555FF3527
-      275BFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00555050A26060
-      60FF5F5F5FFF5C5C5CFF5B5B5BFF595959FF575757FF555555FF535353FF392D
-      2DA5FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF004D4646505E5E
-      5EFF5C5C5CFF5B5B5BFF595959FF575757FF555555FF535353FF515151FF2815
-      156DFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF0055555503534F
-      4FEE5A5A5AFF585858FF565656FF555555FF525252FF515151FF423B3BF11900
-      001FFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF003018
-      18203325259F372B2BBD382B2BC0362929C0352828C02E1F1FAC21070746FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF0086868628FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF01706E6E6A696767C4666262C0605C5C59FFFFFF00FFFFFF00BABA
-      BA60696969FC5E5E5EC7FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF006D6B6BA4717171FF707070FF6D6D6DFF6B6B6BFF554E4E91CDCDCD65BEBE
-      BECF9C9C9CE2363636FE7E7E7E57FFFFFF00FFFFFF00FFFFFF00FFFFFF007070
-      7020717171FF6F6F6FFF6D6D6DFF6B6B6BFF696969FF908F8FFDC0C0C0DCC5C5
-      C5E4C2C2C2DD919191A080808010FFFFFF00FFFFFF00FFFFFF00FFFFFF006B68
-      68446F6F6FFF6C6C6CFF6B6B6BFF686868FF959595FFB9B9B9FFC1C1C1EBC8C8
-      C8E5969696B480808010FFFFFF00FFFFFF00FFFFFF00FFFFFF008080801E7171
-      718E666565FE6A6A6AFF686868FF9B9B9BFFBCBCBCFFBCBBBBFEC4C4C4E99494
-      94B18888880FFFFFFF00FFFFFF00FFFFFF00FFFFFF0080808028636363D42C2C
-      2C9D3B3838DD525252FF797979FFC2C2C2FFBCBCBCFFBAB9B9F8939393B18080
-      800EFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF006C6C6CB12525257CFFFF
-      FF006462626A525252FE494949FFD9D9D9FFB3B3B3FF888686CC7676760DFFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00636363DB0D0D0D3A615F
-      5FA7656565FF5D5D5DFF343434FF6F6F6FFF6A6A6AFF5D5C5CFE4A444483FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005B5B5BDB323232626565
-      65FF646464FF595959FF333333FF5D5D5DFF5C5C5CFF595959FF514F4FF70000
-      0005FFFFFF00FFFFFF00FFFFFF00FFFFFF000EDAEC4837797FD02398A2CC3994
-      9EFF388E9BFF387C8BFF255967FF476974FF595959FF575757FF555555FF3527
-      275BFFFFFF00FFFFFF00FFFFFF00FFFFFF000FD1E1DF10E8FBFF11DCF6FF0FB8
-      D6FF10A8CBFF12B7E6FF13AAE1FF16719AFF575757FF555555FF535353FF392D
-      2DA5FFFFFF00FFFFFF00FFFFFF00FFFFFF000FCBDDE111D8F4FF11CCEFFF0B74
-      8EFF0A5F79FF13A7DFFF139ADAFF156694FF555555FF535353FF515151FF2815
-      156DFFFFFF00FFFFFF00FFFFFF00FFFFFF000FBCD8E111C8EDFF12BCE8FF0F8B
-      B5FF0D739DFF1496D9FF148AD3FF165B90FF525252FF515151FF413B3BF11900
-      001FFFFFFF00FFFFFF00FFFFFF00FFFFFF000FA1C2D112B4E2FE12A7DCFE129C
-      D7FE138FD2FE1382CCFF1477C7FF114979F7352828C02E1F1FAC20070746FFFF
-      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00000000120000003A0000003A0000
-      003A0000003A0000003A0000003A00000025FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FBFBFFFFF8FAFFFFF4F9FFFFF4FFFFFFF4FF
       FFFFF4FFFEFFF8FFFFFFFBFFFFFFFFFEF9FFFFFEFFFFFFF3FFFFFFF3FFFFFFFE
       FFFFFFFFFEFFEFF2FAFFF8FCFFFFF5FEFFFFF3FCFFFFF3F7FFFFF3F6FFFFEFF6
@@ -1959,39 +1959,39 @@ object fmMain: TfmMain
       Caption = 'Database Info'
       Bitmap.Data = {
         36040000424D3604000000000000360000002800000010000000100000000100
-        2000000000000004000064000000640000000000000000000000000000000000
-        0000000000000000000000000000000000000000000000000000000000000000
-        0000000000000000000000000000000000000000000000000000959595B48181
-        81FF818181FF818181FF818181FF818181FF818181FF818181FF818181FF8181
-        81FF818181FF818181FF818181FF959595A80000000000000000818181FFFFFF
-        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-        FFFFFFFFFFFFFFFFFFFFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFEFEFEFFFEFEFEFFFF0EFF0FFF0F0F0FFF0F0F0FFF0F1F0FFF0F1F1FFF1F1
-        F1FFF1F1F2FFF2F1F2FFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFBEBEBDFFBEBEBEFFD2D2D3FF848785FF585C5AFF585C5AFF848785FFD3D3
-        D4FFF1F1F0FFF1F1F1FFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFBEBEBDFFAAAAA9FF5C605EFFE0E1E0FFFEFEFEFFFEFEFEFFE0E1E0FF5C60
-        5EFFD3D3D3FFF1F0F1FFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFEEEFEEFF838685FFE0E1E0FFFFFFFFFFFFFFFFFFCFCFCFFFFFFFFFFFE0E1
-        E0FF848785FFF0F0F0FFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFEEEEEEFF5B5F5DFFFEFEFEFFFFFFFFFFCFCFCFFF000000FFFFFFFFFFFEFE
-        FEFF5B5F5DFFF0F0F0FFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFBCBCBDFF585C5AFFFEFEFEFFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFEFE
-        FEFF5B5F5DFFEFEFF0FFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFBCBCBCFF747675FFE0E1E0FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFE0E1
-        E0FF838685FFF0EFEFFFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFBCBBBBFFA8A9A9FF595D5BFFE0E1E0FFFEFEFEFFFEFEFEFFE0E1E0FF5C60
-        5EFFD2D2D2FFEFEFEFFFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFBBBCBBFFBCBCBCFFA8A9A9FF737675FF5B5F5DFF5B5F5DFF838685FFD2D2
-        D1FFEFEFEEFFEFEFEFFFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFBBBBBBFFBCBBBBFFEDECECFFEDEDEDFFBCBCBCFFBDBCBCFFEDEEEEFFEEEE
-        EEFFEEEEEFFFEFEEEEFFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFBBBBBBFFBBBBBBFFEDECEDFFEDEDEDFFBCBCBCFFBCBCBCFFEEEDEDFFEEEE
-        EDFFEEEEEEFFEEEEEEFFFFFFFFFF818181FF0000000000000000818181FFFFFF
-        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
-        FFFFFFFFFFFFFFFFFFFFFFFFFFFF818181FF0000000000000000999999AC8181
-        81FF818181FF818181FF818181FF818181FF818181FF818181FF818181FF8181
-        81FF818181FF818181FF818181FF818181560000000000000000
+        2000000000000004000064000000640000000000000000000000FFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF005555551E5555552A8080
+        8002FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00FFFFFF0055555509676D697C7B8080C27E8381ED7B807EFB7B807FFC7F84
+        81F47E8381CF71767393525B521CFFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF0055555509848986D0CAD2CEFEB8BFBCFFA1A7A5FF8A8F8DFF878C8AFF9EA4
+        A1FFB5BCB8FFCCD4D0FF9BA19EE951575729FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00595C594AC6CECAFACFD7D3FFB8BFBCFFA1A7A5FF8A8F8DFF878C8AFF9EA4
+        A1FFB5BCB8FFCCD4D0FFCFD7D3FF777C7B8EFFFFFF00FFFFFF00FFFFFF00FFFF
+        FF005D63605DCFD7D3FFCFD7D3FFB8BFBCFFA1A7A5FF8A8F8DFF878C8AFF9EA4
+        A1FFB5BCB8FFCCD4D0FFCFD7D3FF898F8DA5FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF005D636355CFD7D3FFCFD7D3FFB9C0BDFFAAAFAEFF8F9291FF858986FF9A9F
+        9DFFB3B9B6FFCCD4D0FFCFD7D3FF8C93909CFFFFFF00FFFFFF00FFFFFF00FFFF
+        FF005E64644DD2D9D6FFB3B7B5FF979B98FF888C8AFF848987FF848987FF8A8E
+        8BFF8E9490FF949A97FFB9C0BDFF8F969393FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF005E656545BCC2BFFFCFD7D3FFB8BFBCFFA1A7A5FF8A8F8DFF5A7F66FF7F94
+        85FFB5BCB8FFCCD4D0FFB8BFBBFF90999694FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF005E5E5E39CDD5D1FFCFD7D3FFB8BFBCFFA1A7A5FF56866FFF249A57FF2D8B
+        4CFF9CACA1FFCCD4D0FFCFD7D3FF9AA19C93FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00666C6635CFD7D3FFCFD7D3FFB8BFBCFF5F9984FF1FAB6EFF22A262FF2599
+        55FF328A4EFFBBC8C0FFCFD7D3FF9EA4A078FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF00676E6D2DCFD7D3FFD0D8D4FF97BAAFFF19BC84FF1CB379FF4F9375FF3C8E
+        65FF259854FF3C8B54FFC5CFC9FFA3AAA66FFFFFFF00FFFFFF00FFFFFF00FFFF
+        FF006B747324D5DCD9FFD1D7D5FFBFC7C3FF54A88FFF38A47FFFA7ADABFF9CA4
+        A0FF32905FFF269752FF38854EFF94A39872FFFFFF00FFFFFF00FFFFFF00FFFF
+        FF007476751BD6DCDAFFC5CDC9FFBDC5C1FFB6BDBAFFACB3B1FFA7ADABFFA0A6
+        A3FF8C9B94FF2B935CFF269650FF2E8245EC18552415FFFFFF00FFFFFF00FFFF
+        FF0055555506D5DCD9FAC5CDC9FFBDC5C1FFB6BDBAFFAFB5B2FFA7ADABFFA0A6
+        A3FF989E9BFF7B9086FF27965AFF27944EFF267E3BDF1F5C2919FFFFFF00FFFF
+        FF00FFFFFF00CED2D02BD1D7D4EEC2C9C5FEB6BDBAFFAFB5B2FFA7ADABFFA0A6
+        A3FF979D9AFF929895F8598A7390249958FA248646E21D62311AFFFFFF00FFFF
+        FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00B9BEBD36ABB0AEA0A1A6A4B09CA1
+        9F51FFFFFF00FFFFFF00FFFFFF0019774A5A1D6C3B1AFFFFFF00
       }
       OnClick = lmDBIndoClick
     end

main.lrs

@@ -1552,86 +1552,88 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#255#255#249#255#255#255#252#255#248#251#255#255#248#254#255#255#246#248#255
   +#255#251#251#255#255#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#255#0#255#255#255#0#174#174#174#22#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'qqq'#9'mkk'
+  +#133'jhh'#202'daa'#181'b^^9'#255#255#255#0#179#179#179#27#162#159#159#213#167
+  +#167#167#255#144#141#141#232'TIIF'#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#170#170#170#3'lkk'#212'ppp'#255'ooo'#255'mmm'#255'iii'#254'TK'
+  +'KX'#161#160#160#139#167#167#167#255#162#162#162#255#158#158#158#255'lcc'#212
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'khhVppp'#255'ooo'
+  +#255'lll'#255'kkk'#255'hhh'#255'YUU'#232#148#145#145#188#161#161#161#255#157
+  +#157#157#255#152#152#152#255'rjj'#238#26#0#0#10#255#255#255#0#255#255#255#0
+  +#255#255#255#0'a[['#140'nnn'#255'lll'#255'jjj'#255'hhh'#255'fff'#255']ZZ'#249
+  +'zttK'#153#152#152#252#151#151#151#255#143#142#142#253'B//'#167#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0'YSSMlll'#255'jjj'#255'hhh'#255'ff'
+  +'f'#255'ddd'#255'NFF'#233#146#144#144'~'#148#148#148#253#146#146#146#255#139
+  +#139#139#254'`WW'#173#0#0#0#1#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#1'TMM'#213'hhh'#255'fff'#255'ddd'#255'][['#251'D88'#149#150#150#150
+  +#255#145#145#145#255#140#140#140#255#136#136#136#255#131#131#131#255'H;;'#142
+  +#255#255#255#0#255#255#255#0#255#255#255#0#128#128#128#6'`__'#151'eee'#255'd'
+  +'dd'#255'aaa'#255'XUU'#244'|{{'#158#144#144#144#255#140#140#140#255#135#135
+  +#135#255#130#130#130#255'}}}'#255'YPP'#220#255#255#255#0#255#255#255#0'UUU'#3
+  +'baa'#211'eee'#255'ccc'#255'aaa'#255'```'#255']]]'#255']\\'#253#128#128#128
+  +#255#134#134#134#255#129#129#129#255'|||'#255'xxx'#255'SJJ'#230#0#0#0#2#255
+  +#255#255#0'a__nddd'#255'ccc'#255'aaa'#255'___'#255']]]'#255'[[['#255'YYY'#255
+  +'`^^'#253#128#128#128#255'|||'#255'www'#255'iff'#248'5%%'#153#255#255#255#0
+  +#255#255#255#0'ZVV'#190'ccc'#255'```'#255'___'#255'\\\'#255'[[['#255'YYY'#255
+  +'WWW'#255'TSS'#253':..X:))]7&&]"'#10#10'5'#255#255#255#0#255#255#255#0#255
+  +#255#255#0'WSS'#212'```'#255'^^^'#255'\\\'#255'ZZZ'#255'XXX'#255'WWW'#255'UU'
+  +'U'#255'SSS'#255'0!!e'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
+  +#0#255#255#255#0#255#255#255#0'MFF'#149'^^^'#255'\\\'#255'ZZZ'#255'XXX'#255
+  +'VVV'#255'UUU'#255'RRR'#255'MKK'#251'!'#5#5'/'#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'F@@(WUU'#249'ZZZ'
+  +#255'XXX'#255'VVV'#255'TTT'#255'RRR'#255'PPP'#255'9//'#223#0#0#0#2#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#1'qoojigg'#196'ebb'#192'_\\Y'#255#255#255#0#255
+  +#255#255#255#0'1'#28#28'?5'''''#169'8++'#191'8++'#192'6))'#192'4'''''#192'+'
+  +#27#27#159#25#0#0')'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'mkk'#164'qqq'
-  +#255'ppp'#255'mmm'#255'kkk'#255'TMM'#145#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0'ppp qqq'#255'ooo'#255'mmm'#255'kkk'#255'iii'#255'cbb'#251#17#0
-  +#0#15#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0'miiDooo'#255'lll'#255'kkk'#255'hh'
-  +'h'#255'ggg'#255'ddd'#255'-'#23#23'D'#255#255#255#0#255#255#255#0#255#255#255
-  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'vvv'
-  +#13'kkk'#254'jjj'#255'hhh'#255'ggg'#255'ddd'#255'YVV'#247#30#0#0'"'#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0'NEE'#166'hhh'#255'fff'#255'ddd'
-  +#255'```'#254'5$$'#184#0#0#0#1#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0'eccjddd'#253'ddd'#255'bbb'#255'[ZZ'#251'G??]'#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#21#197#145#22#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#227
+  +#142#0#9#202#131#0#133#194'}'#0#202#186'v'#0#181#182't'#0'9'#255#255#255#0#20
+  +#201#150#27#22#181#132#213#23#191#137#255#25#161'q'#232#25'T9F'#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#170#0#3#200#130#0#212#210#136
+  +#0#255#207#134#0#255#205#132#0#255#200#128#0#254#147'Y'#0'X'#22#183#133#139
+  +#24#190#136#255#25#186#129#255#27#181'{'#255#28'rK'#212#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0#198#128#0'V'#209#136#0#255#207#134#0#255
+  +#204#131#0#255#201#129#0#255#199'~'#0#255#166'f'#0#232#24#166'v'#188#26#185
+  +#128#255#27#180'z'#255#29#175's'#255#30'zN'#238#26#0#0#10#255#255#255#0#255
+  ,#255#255#0#255#255#255#0#173'm'#0#140#206#133#0#255#204#131#0#255#201#128#0
+  +#255#198'~'#0#255#196'{'#0#255#177'm'#0#249#26#132'[K'#28#174'v'#252#29#174
+  +'r'#255#31#165'i'#253#29'6!'#167#255#255#255#0#255#255#255#0#255#255#255#0
+  +#255#255#255#0#160'c'#0'M'#203#130#0#255#201#128#0#255#198'~'#0#255#195'{'#0
+  +#255#192'y'#0#255#143'T'#0#233#28#165'o~'#30#172'o'#253#31#169'k'#255'!'#162
+  +'c'#254' f<'#173#0#0#0#1#255#255#255#0#255#255#255#0#255#255#255#0#255#255#0
+  +#1#152'\'#0#213#197'}'#0#255#195'{'#0#255#192'x'#0#255#178'n'#0#251'AB'#26
+  +#149#30#173'p'#255' '#168'i'#255'!'#163'c'#255'#'#159'\'#255'%'#154'V'#255' '
+  +'E%'#142#255#255#255#0#255#255#255#0#255#255#255#0#213#128#0#6#182'q'#0#151
+  +#194'z'#0#255#192'x'#0#255#189'u'#0#255#168'e'#0#244'B'#145'M'#158' '#167'h'
+  +#255'"'#163'b'#255'#'#158'['#255'%'#153'U'#255''''#148'N'#255'$_0'#220#255
+  +#255#255#0#255#255#255#0#170'U'#0#3#186't'#0#211#194'z'#0#255#191'w'#0#255
+  +#188'u'#0#255#186's'#0#255#183'p'#0#255#172'n'#3#253'E'#149'J'#255'$'#157'Z'
+  +#255'%'#152'T'#255''''#147'M'#255')'#143'G'#255'%X)'#230#0#0#0#2#255#255#255
+  +#0#181'q'#0'n'#193'y'#0#255#191'w'#0#255#188'u'#0#255#185'r'#0#255#183'p'#0
+  +#255#180'm'#0#255#177'k'#0#255#131'p'#23#253'&'#151'S'#255''''#147'L'#255')'
+  +#142'F'#255')z8'#248' ,'#19#153#255#255#255#0#255#255#255#0#169'g'#0#190#190
+  +'w'#0#255#188't'#0#255#185'r'#0#255#182'o'#0#255#180'm'#0#255#177'j'#0#255
+  +#174'h'#0#255#167'c'#0#253'(2'#22'X'#31'0'#24'] /'#21']'#27#10#4'5'#255#255
+  +#255#0#255#255#255#0#255#255#255#0#164'd'#0#212#187't'#0#255#185'q'#0#255#182
+  +'o'#0#255#179'l'#0#255#176'j'#0#255#174'h'#0#255#171'e'#0#255#168'c'#0#255'V'
+  +'('#0'e'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
+  +#0#255#255#255#0#142'T'#0#149#184'q'#0#255#181'o'#0#255#179'l'#0#255#176'j'#0
+  +#255#173'g'#0#255#171'e'#0#255#168'b'#0#255#156'Y'#0#251' '#5#0'/'#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0'`__'#167'eee'#255'ddd'#255'aaa'#255'```'#255'^^'
-  +'^'#255'ZZZ'#254'JDD'#131#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0'ggg4eee'#255'ddd'#255'aaa'
-  +#255'```'#255']]]'#255'\\\'#255'YYY'#255'RNN'#247#0#0#0#5#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'^ZZ'#130
-  +'ccc'#255'aaa'#255'___'#255']]]'#255'[[['#255'YYY'#255'WWW'#255'UUU'#255'5'''
-  +'''['#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0'UPP'#162'```'#255'___'#255'\\\'#255'[[['#255'YYY'#255'WWW'#255
-  +'UUU'#255'SSS'#255'9--'#165#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0'MFFP^^^'#255'\\\'#255'[[['#255'YYY'#255'W'
-  +'WW'#255'UUU'#255'SSS'#255'QQQ'#255'('#21#21'm'#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'UUU'#3'SOO'#238'ZZZ'
-  +#255'XXX'#255'VVV'#255'UUU'#255'RRR'#255'QQQ'#255'B;;'#241#25#0#0#31#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0'0'#24#24' 3%%'#159'7++'#189'8++'#192'6))'#192'5(('#192'.'#31
-  +#31#172'!'#7#7'F'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#128'M'#0'('#169'e'#0#249#178'l'#0#255#176'i'#0#255#173'g'#0#255#170'd'#0#255
+  +#168'b'#0#255#165'_'#0#255'k8'#0#223#0#0#0#2#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'H!'#0'?\/'
+  +#0#169'd3'#0#191'b2'#0#192'a1'#0#192'^/'#0#192'J '#0#159#25#0#0')'#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#134#134#134'('#255#255#255#0#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#1'pnnjigg'#196'fbb'#192'`\\Y'#255#255#255#0#255#255#255#0#186#186#186'`'
-  +'iii'#252'^^^'#199#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0'mkk'#164'qqq'#255'ppp'#255'mmm'#255'kkk'#255'UN'
-  +'N'#145#205#205#205'e'#190#190#190#207#156#156#156#226'666'#254'~~~W'#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0'ppp qqq'#255'ooo'#255'mmm'
-  +#255'kkk'#255'iii'#255#144#143#143#253#192#192#192#220#197#197#197#228#194
-  +#194#194#221#145#145#145#160#128#128#128#16#255#255#255#0#255#255#255#0#255
-  ,#255#255#0#255#255#255#0'khhDooo'#255'lll'#255'kkk'#255'hhh'#255#149#149#149
-  +#255#185#185#185#255#193#193#193#235#200#200#200#229#150#150#150#180#128#128
-  +#128#16#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#128#128#128
-  +#30'qqq'#142'fee'#254'jjj'#255'hhh'#255#155#155#155#255#188#188#188#255#188
-  +#187#187#254#196#196#196#233#148#148#148#177#136#136#136#15#255#255#255#0#255
-  +#255#255#0#255#255#255#0#255#255#255#0#128#128#128'(ccc'#212',,,'#157';88'
-  +#221'RRR'#255'yyy'#255#194#194#194#255#188#188#188#255#186#185#185#248#147
-  +#147#147#177#128#128#128#14#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#255#255#255#0'lll'#177'%%%|'#255#255#255#0'dbbjRRR'#254'III'#255#217
-  +#217#217#255#179#179#179#255#136#134#134#204'vvv'#13#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'ccc'#219#13#13
-  +#13':a__'#167'eee'#255']]]'#255'444'#255'ooo'#255'jjj'#255']\\'#254'JDD'#131
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0'[[['#219'222beee'#255'ddd'#255'YYY'#255'333'#255']]]'#255'\\\'#255
-  +'YYY'#255'QOO'#247#0#0#0#5#255#255#255#0#255#255#255#0#255#255#255#0#255#255
-  +#255#0#14#218#236'H7y'#127#208'#'#152#162#204'9'#148#158#255'8'#142#155#255
-  +'8|'#139#255'%Yg'#255'Git'#255'YYY'#255'WWW'#255'UUU'#255'5''''['#255#255#255
-  +#0#255#255#255#0#255#255#255#0#255#255#255#0#15#209#225#223#16#232#251#255#17
-  +#220#246#255#15#184#214#255#16#168#203#255#18#183#230#255#19#170#225#255#22
-  +'q'#154#255'WWW'#255'UUU'#255'SSS'#255'9--'#165#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#15#203#221#225#17#216#244#255#17#204#239#255#11
-  +'t'#142#255#10'_y'#255#19#167#223#255#19#154#218#255#21'f'#148#255'UUU'#255
-  +'SSS'#255'QQQ'#255'('#21#21'm'#255#255#255#0#255#255#255#0#255#255#255#0#255
-  +#255#255#0#15#188#216#225#17#200#237#255#18#188#232#255#15#139#181#255#13's'
-  +#157#255#20#150#217#255#20#138#211#255#22'['#144#255'RRR'#255'QQQ'#255'A;;'
-  +#241#25#0#0#31#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#15#161
-  +#194#209#18#180#226#254#18#167#220#254#18#156#215#254#19#143#210#254#19#130
-  +#204#255#20'w'#199#255#17'Iy'#247'5(('#192'.'#31#31#172' '#7#7'F'#255#255#255
-  +#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#0#0#0#18#0#0#0':'
-  +#0#0#0':'#0#0#0':'#0#0#0':'#0#0#0':'#0#0#0':'#0#0#0'%'#255#255#255#0#255#255
-  +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#251#251#255#255#248#250#255#255#244#249#255#255#244#255#255#255#244#255#255
   +#255#244#255#254#255#248#255#255#255#251#255#255#255#255#254#249#255#255#254
   +#255#255#255#243#255#255#255#243#255#255#255#254#255#255#255#255#254#255#239
@@ -1663,9 +1665,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#255' '#18#166#255#164#161#255#255#230#231#255#255#239#241#255#255#247#248
   +#255#255#145#135#255#255#135#130#229#255#235#239#255#255#243#248#255#255#251
   +#250#255#255#250#247#255#255#250#251#255#255#235#239#255#255#227#233#255#255
-  +'di'#180#255'mk'#220#255'ea'#216#255'^\'#188#255#234#235#255#255#241#244#255
+  ,'di'#180#255'mk'#220#255'ea'#216#255'^\'#188#255#234#235#255#255#241#244#255
   +#255#244#250#255#255']S'#255#255#135#131#255#255#221#227#255#255#222#231#255
-  ,#255#229#231#255#255#227#231#255#255#237#246#255#255#228#233#255#255'jh'#194
+  +#255#229#231#255#255#227#231#255#255#237#246#255#255#228#233#255#255'jh'#194
   +#255'op'#202#255#225#244#255#255#209#225#255#255'@9'#154#255#206#195#255#255
   +#238#237#255#255#244#251#255#255'0('#195#255'*%'#168#255'*3'#131#255'2=v'#255
   +'26q'#255#129#131#185#255#219#225#255#255'be'#152#255#129'{'#210#255#229#228
@@ -1727,9 +1729,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#255#255#245#255#255#255#231#255#255#255#237#255#255#255#242#255#255#255#239
   +#255#255#255#232#255#255#255#236#255#255#255#236#255#255#255#232#255#255#255
   +#219#255#255#255#229#255#255#255#245#255#255#244#247#255#255#247#251#255#255
-  +#248#252#255#255#254#255#250#255#255#255#254#255#255#243#255#255#249#244#255
+  ,#248#252#255#255#254#255#250#255#255#255#254#255#255#243#255#255#249#244#255
   +#255#244#255#249#255#244#255#244#255#255#255#247#255#255#247#245#255#255#244
-  ,#254#255#255#239#255#255#255#245#255#255#246#241#255#255#250#252#255#255#244
+  +#254#255#255#239#255#255#255#245#255#255#246#241#255#255#250#252#255#255#244
   +#253#255#255#250#255#254#255#252#255#253#255#255#254#254#255#255#251#255#255
   +#255#248#255#255#251#248#255#255#248#251#255#255#245#250#248#255#246#253#250
   +#255#253#254#252#255#255#252#255#255#255#252#255#255#240#246#251#255#244#255
@@ -1791,9 +1793,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#31#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#201
   +#129#0#164#210#137#0#255#208#135#0#255#205#132#0#255#202#130#0#255#154']'#0
   +#145'8'#197#221#225'2'#197#222#252#165#188#207#252#29'+'#146#255';;'#141'N'
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#215#135#0' '#210#137
+  ,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#215#135#0' '#210#137
   +#0#255#207#134#0#255#205#132#0#255#202#129#0#255#199#127#0#255'E'#187#197#255
-  ,';'#200#225#253'>'#204#228#254'l'#206#221#253#198#200#206#134#255#255#255#0
+  +';'#200#225#253'>'#204#228#254'l'#206#221#253#198#200#206#134#255#255#255#0
   +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#200#127#0'D'#207#134
   +#0#255#204#131#0#255#201#129#0#255#199'~'#0#255'`'#192#198#255'T'#203#223#255
   +'A'#204#228#254'W'#207#227#254'q'#206#223#136#255#255#255#0#255#255#255#0#255
@@ -1855,9 +1857,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +'s'#0#255#184'q'#0#255#182'o'#0#255#181'o'#0#255#162'`'#9#255#166'o'''#255
   +#171'~B'#255#173#139'^'#255#160'p3'#247' '#0#0#6#255#255#255#0#255#255#255#0
   +#255#255#255#0#175'j'#0#247#186'r'#0#255#184'q'#0#255#182'o'#0#255#180'm'#0
-  +#255#178'l'#0#255#177'l'#0#255#166'm"'#255#173#135'V'#255#174#138'Z'#255#176
+  ,#255#178'l'#0#255#177'l'#0#255#166'm"'#255#173#135'V'#255#174#138'Z'#255#176
   +#139'X'#255#151'['#19#245' '#0#0#6#255#255#255#0#255#255#255#0#255#255#255#0
-  ,#152'W'#0#165#182'o'#0#255#180'm'#0#255#178'k'#0#255#176'j'#0#255#174'h'#0
+  +#152'W'#0#165#182'o'#0#255#180'm'#0#255#178'k'#0#255#176'j'#0#255#174'h'#0
   +#255#174'h'#0#255#162'^'#4#255#165'f'#16#255#169'm'#31#255#165'g'#21#255#152
   +'^'#22#245' '#0#0#6#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
   +#138'K'#0#206#175'i'#0#255#174'h'#0#255#172'f'#0#255#170'd'#0#255#171'e'#0
@@ -1919,9 +1921,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +'6)'#0#0'<('#0#0#30'+'#0#0#5#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
-  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  ,#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#243#243#243'm'#231#231
-  ,#231#222#228#228#228#233#226#226#226#233#223#223#223#233#221#221#221#236#206
+  +#231#222#228#228#228#233#226#226#226#233#223#223#223#233#221#221#221#236#206
   +#206#206'Q'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#255#255#255#0#255#255#255#0#239#239#239#16#231#231#231
   +#245#227#227#227#251#225#225#225#251#222#222#222#251#219#219#219#251#214#214
@@ -1983,9 +1985,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
   +#255#0#255#255#255#0#3#0'P*'#16#17']s/G'#133#193'Ju'#166#237'1R'#140#200#25
   +'&k'#144#1#0'P'#19#0#0']'#0#0#0'`'#0#0#0'`'#0#0#0'`'#0#0#0'`'#0#0#0'`'#0#0#0
-  +'`'#0#255#255#255#0#255#255#255#0'-X'#159#223's'#221#243#255#139#250#255#255
+  ,'`'#0#255#255#255#0#255#255#255#0'-X'#159#223's'#221#243#255#139#250#255#255
   +#153#255#255#255#146#253#255#255'K'#196#234#255#3#0'_l'#1#0'W%'#1#0'Z%'#1#0
-  ,'Z%'#1#0'Y#'#1#0'Y"'#0#0'Y'#19#0#0'_'#0#255#255#255#0#255#255#255#0'&w'#190
+  +'Z%'#1#0'Y#'#1#0'Y"'#0#0'Y'#19#0#0'_'#0#255#255#255#0#255#255#255#0'&w'#190
   +#242'>'#178#222#250'Q'#221#243#254'U'#255#255#255'['#255#255#255'8'#236#253
   +#255''''#167#212#255')'#160#205#251'('#158#206#251')'#154#205#251')'#150#203
   +#250'*'#150#203#249#29'_'#170#227#6#9'cI'#255#255#255#0#255#255#255#0#23'g'
@@ -2047,9 +2049,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +'_'#255'nj_'#255'nj_'#255#237#237#237#255#165#165#165#255#253#254#254#255#236
   +#238#238#255#237#239#239#255#253#253#253#255#159#159#159#255#255#255#255#255
   +#156#156#156#252#157#157#157#247#255#255#255#255#236#236#236#255'uqd'#255'uq'
-  +'d'#255'uqd'#255'uqd'#255#239#239#239#255#165#165#165#255#255#255#255#255#255
+  ,'d'#255'uqd'#255'uqd'#255#239#239#239#255#165#165#165#255#255#255#255#255#255
   +#255#255#255#255#255#255#255#253#253#253#255#159#159#159#255#255#255#255#255
-  ,#156#156#156#252#157#157#157#247#255#255#255#255#237#237#237#255'yug'#255'yu'
+  +#156#156#156#252#157#157#157#247#255#255#255#255#237#237#237#255'yug'#255'yu'
   +'g'#255'yug'#255'yug'#255#241#241#241#255#155#155#155#255#155#155#155#255#155
   +#155#155#255#155#155#155#255#155#155#155#255#160#160#160#255#255#255#255#255
   +#156#156#156#252#157#157#157#247#255#255#255#255#238#238#238#255#240#240#240
@@ -2111,9 +2113,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#241#248#255']'#245#253#255'l'#246#254#255'H'#238#246#246#25#237#248#146#9
   +#245#255'+'#156#156#156#0#151#151#151#19#201#201#201#174#217#217#217#216#217
   +#217#217#213#215#215#215#213#213#213#213#213#211#211#211#213#210#210#210#213
-  +#180#210#212#214't'#219#224#220'K'#226#234#228'E'#228#236#231'B'#215#223#204
+  ,#180#210#212#214't'#219#224#220'K'#226#234#228'E'#228#236#231'B'#215#223#204
   +#25#224#234'K'#0#254#255#9#149#149#149#0#140#140#140#1#156#156#156#20#166#166
-  ,#166#30#166#166#166#29#160#160#160#29#153#153#153#29#146#146#146#29#139#138
+  +#166#30#166#166#166#29#160#160#160#29#153#153#153#29#146#146#146#29#139#138
   +#138#29#129#137#137#30'E'#184#190'+$'#215#224'E'#31#219#228'N '#211#219'4'#11
   +#230#240#10#31#209#216#0#7'OnClick'#7#15'lmCreateDBClick'#0#0#9'TMenuItem'#7
   +'lmRegdb'#3'Tag'#2#254#7'Caption'#6#17'Register Database'#11'Bitmap.Data'#10
@@ -2175,9 +2177,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#167#234#235#235#255#233#234#234#255#232#233#233#255#233#233#233#255#209#211
   +#211#255#188#190#190#255#228#230#230#255#227#230#230#255#226#229#229#255#225
   +#228#228#255#224#228#227#255#225#229#228#255#192#194#194#166#0#0#0#6#0#0#0#3
-  +#199#201#200#162#236#236#236#255#235#235#235#255#235#235#235#255#203#204#203
+  ,#199#201#200#162#236#236#236#255#235#235#235#255#235#235#235#255#203#204#203
   +#255'twv'#255#141#144#143#255#220#221#221#255#221#222#222#255#222#224#224#255
-  ,#224#226#226#255#223#226#227#255#224#227#227#255#196#199#198#162#0#0#0#3#0#0
+  +#224#226#226#255#223#226#227#255#224#227#227#255#196#199#198#162#0#0#0#3#0#0
   +#0#3#199#201#201#162#238#238#238#255#237#237#237#255#193#194#194#255'lom'#255
   +'QUS'#255'`ca'#255'wzx'#255#148#151#150#255#183#186#185#255#215#217#217#255
   +#226#228#228#255#226#228#228#255#197#200#199#162#0#0#0#3#0#0#0#3#200#202#201
@@ -2239,9 +2241,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#220#178#142'S'#233#209#188'`'#181'}O'#146#169'k9g'#174'q>'#0#170'n?'#0#168
   +'l='#29#209#172#140#219#221#188#157#255#221#187#156#255#214#179#147#247#188
   +#139'ct'#135'6'#0#4#165'f6'#0#0#0#0#0#235#212#191#0#229#198#170#22#252#240
-  +#227#16#164'e35'#164'e4S'#164'e4'#0#167'i:'#0#165'g7'#21#190#142'h'#145#201
+  ,#227#16#164'e35'#164'e4S'#164'e4'#0#167'i:'#0#165'g7'#21#190#142'h'#145#201
   +#159'|'#164#201#158'{'#164#201#159'|'#168#185#133'\'#150#163'b1!'#160'_-'#9
-  ,#174'tFN'#186#134']]'#186#135'^]'#187#136'_['#181#128'Vh'#169'm>6'#171'qB'#0
+  +#174'tFN'#186#134']]'#186#135'^]'#187#136'_['#181#128'Vh'#169'm>6'#171'qB'#0
   +#164'e4'#0#163'd3 '#173'pAc'#199#144'f%'#173'nA'#24'^'#10#0#4#138'A'#30#4#165
   +'g5'#2#140'A'#7#4#181#127'Sv'#205#162'}'#243#208#164'}'#253#207#162'z'#253
   +#206#163'}'#249#184#133'\X'#193#146'l'#0#168'k;'#0#167'j;.'#180'{N'#195#196
@@ -2303,9 +2305,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#140#25#140#140#140#11#140#140#140#3#140#140#140#0#140#140#140#0#140#140#140
   +#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#140#140#140#0#140#140#140
   +#0#140#140#140#1#140#140#140#2#140#140#140#1#140#140#140#0#140#140#140#0#140
-  +#140#140#0#140#140#140#0#140#140#140#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0
+  ,#140#140#0#140#140#140#0#140#140#140#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#0#0#0#0#140#140#140#0#140#140#140#0#140#140#140#0#140#140#140#0
-  ,#140#140#140#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#0#0#0#0#7'OnC'
+  +#140#140#140#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#0#0#0#0#7'OnC'
   +'lick'#7#16'lmConnectAsClick'#0#0#9'TMenuItem'#12'lmDisconnect'#7'Caption'#6
   +' Disconnect and Close all windows'#11'Bitmap.Data'#10':'#4#0#0'6'#4#0#0'BM6'
   +#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0
@@ -2367,9 +2369,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#179#173#175#174#179#173#175#174#179#173#175#174#179#173#175#174#179#173#174
   +#174#179#172#174#173#179#172#174#173#179#172#174#173#179#172#174#173#179#174
   +#176#175#177#152#156#154'z'#187#189#188#186#227#228#228#255#228#228#228#255
-  +#228#228#228#255#228#228#228#255#228#228#228#255#228#228#228#255#228#228#228
+  ,#228#228#228#255#228#228#228#255#228#228#228#255#228#228#228#255#228#228#228
   +#255#228#228#228#255#228#228#228#255#228#228#228#255#228#228#228#255#228#228
-  ,#228#255#228#228#228#255#227#227#227#255#185#187#186#189#185#188#187#179#222
+  +#228#255#228#228#228#255#227#227#227#255#185#187#186#189#185#188#187#179#222
   +#222#222#255#229#229#229#255#229#229#229#255#229#229#229#255#229#229#229#255
   +#229#229#229#255#229#229#229#255#229#229#229#255#229#229#229#255#229#229#229
   +#255#229#229#229#255#229#229#229#255#227#227#227#255#219#219#219#255#184#186
@@ -2431,9 +2433,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#255#241#241#237#255#241#241#237#255#242#242#238#255#232#233#230#251#175#178
   +#177'g'#144#149#148'$'#218#219#216#221#242#242#236#255#240#240#235#255#240
   +#241#235#255#240#241#235#255#240#240#235#255#240#240#235#255#240#240#235#255
-  +#240#240#235#255#240#240#235#255#241#241#235#255#240#240#235#255#241#241#236
+  ,#240#240#235#255#240#240#235#255#241#241#235#255#240#240#235#255#241#241#236
   +#255#231#232#228#251#175#178#177'g'#145#150#149'$'#216#217#214#221#240#240
-  ,#233#255#240#241#235#255#237#235#228#255#236#234#227#255#240#240#233#255#240
+  +#233#255#240#241#235#255#237#235#228#255#236#234#227#255#240#240#233#255#240
   +#240#233#255#239#239#233#255#240#240#233#255#238#237#230#255#235#233#225#255
   +#240#240#234#255#240#240#234#255#229#229#224#251#175#178#177'g'#149#157#158
   +'$'#205#199#191#221#201#178#159#255#225#217#206#255#204#184#166#255#215#200
@@ -2495,9 +2497,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#242#242#242#255'kpn'#255'kpn'#255#252#251#252#255#236#235#236#255#236#236
   +#236#255#236#236#236#255#236#236#236#255#236#236#236#255#236#236#236#255#236
   +#236#236#255#236#236#236#255#236#236#236#255#236#236#236#255#236#236#236#255
-  +#236#236#236#255#243#243#243#255'kpn'#255'kpn'#255#253#253#253#255#237#237
+  ,#236#236#236#255#243#243#243#255'kpn'#255'kpn'#255#253#253#253#255#237#237
   +#237#255#237#237#237#255#237#237#237#255#237#237#237#255#237#237#237#255#237
-  ,#237#237#255#237#237#237#255#237#237#237#255#237#237#237#255#237#237#237#255
+  +#237#237#255#237#237#237#255#237#237#237#255#237#237#237#255#237#237#237#255
   +#237#237#237#255#237#237#237#255#243#244#243#255'kpn'#255'kpn'#255#255#255
   +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
   +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
@@ -2559,9 +2561,9 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#202#201#162#235#232#229#255#230#221#213#255#229#220#212#255#228#219#211#255
   +#227#218#210#255#226#218#209#255#216#209#202#255#162#161#160#255#218#220#220
   +#255#227#229#229#255#225#227#227#255#225#228#228#255#196#199#198#162#0#0#0#3
-  +#0#0#0#3#200#203#203#162#230#222#214#255#204#180#158#255#200#176#154#255#200
+  ,#0#0#0#3#200#203#203#162#230#222#214#255#204#180#158#255#200#176#154#255#200
   +#176#154#255#200#176#154#255#199#175#153#255#202#182#162#255#163#161#158#255
-  ,#224#226#226#255#228#230#231#255#227#229#229#255#227#229#229#255#196#199#198
+  +#224#226#226#255#228#230#231#255#227#229#229#255#227#229#229#255#196#199#198
   +#162#0#0#0#3#0#0#0#3#201#203#203#162#234#226#218#255#218#195#173#255#216#193
   +#171#255#216#192#170#255#215#192#169#255#215#191#169#255#208#187#167#255#160
   +#152#145#255#217#209#201#255#226#217#209#255#227#225#222#255#229#230#230#255
@@ -2600,161 +2602,162 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +'ck'#7#14'lmCompareClick'#0#0#9'TMenuItem'#8'lmDBIndo'#7'Caption'#6#13'Datab'
   +'ase Info'#11'Bitmap.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0
   +'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#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#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#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#149#149#149
-  +#180#129#129#129#255#129#129#129#255#129#129#129#255#129#129#129#255#129#129
-  +#129#255#129#129#129#255#129#129#129#255#129#129#129#255#129#129#129#255#129
-  +#129#129#255#129#129#129#255#129#129#129#255#149#149#149#168#0#0#0#0#0#0#0#0
-  +#129#129#129#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
-  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
-  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#129#129#129#255#0#0
-  +#0#0#0#0#0#0#129#129#129#255#255#255#255#255#239#239#239#255#239#239#239#255
-  +#240#239#240#255#240#240#240#255#240#240#240#255#240#241#240#255#240#241#241
-  +#255#241#241#241#255#241#241#242#255#242#241#242#255#255#255#255#255#129#129
-  +#129#255#0#0#0#0#0#0#0#0#129#129#129#255#255#255#255#255#190#190#189#255#190
-  +#190#190#255#210#210#211#255#132#135#133#255'X\Z'#255'X\Z'#255#132#135#133
-  +#255#211#211#212#255#241#241#240#255#241#241#241#255#255#255#255#255#129#129
-  +#129#255#0#0#0#0#0#0#0#0#129#129#129#255#255#255#255#255#190#190#189#255#170
-  +#170#169#255'\`^'#255#224#225#224#255#254#254#254#255#254#254#254#255#224#225
-  +#224#255'\`^'#255#211#211#211#255#241#240#241#255#255#255#255#255#129#129#129
-  +#255#0#0#0#0#0#0#0#0#129#129#129#255#255#255#255#255#238#239#238#255#131#134
-  +#133#255#224#225#224#255#255#255#255#255#255#255#255#255#207#207#207#255#255
-  +#255#255#255#224#225#224#255#132#135#133#255#240#240#240#255#255#255#255#255
-  +#129#129#129#255#0#0#0#0#0#0#0#0#129#129#129#255#255#255#255#255#238#238#238
-  +#255'[_]'#255#254#254#254#255#255#255#255#255#207#207#207#255#0#0#0#255#255
-  +#255#255#255#254#254#254#255'[_]'#255#240#240#240#255#255#255#255#255#129#129
-  +#129#255#0#0#0#0#0#0#0#0#129#129#129#255#255#255#255#255#188#188#189#255'X\Z'
-  +#255#254#254#254#255#255#255#255#255#0#0#0#255#255#255#255#255#255#255#255
-  ,#255#254#254#254#255'[_]'#255#239#239#240#255#255#255#255#255#129#129#129#255
-  +#0#0#0#0#0#0#0#0#129#129#129#255#255#255#255#255#188#188#188#255'tvu'#255#224
-  +#225#224#255#255#255#255#255#0#0#0#255#255#255#255#255#255#255#255#255#224
-  +#225#224#255#131#134#133#255#240#239#239#255#255#255#255#255#129#129#129#255
-  +#0#0#0#0#0#0#0#0#129#129#129#255#255#255#255#255#188#187#187#255#168#169#169
-  +#255'Y]['#255#224#225#224#255#254#254#254#255#254#254#254#255#224#225#224#255
-  +'\`^'#255#210#210#210#255#239#239#239#255#255#255#255#255#129#129#129#255#0#0
-  +#0#0#0#0#0#0#129#129#129#255#255#255#255#255#187#188#187#255#188#188#188#255
-  +#168#169#169#255'svu'#255'[_]'#255'[_]'#255#131#134#133#255#210#210#209#255
-  +#239#239#238#255#239#239#239#255#255#255#255#255#129#129#129#255#0#0#0#0#0#0
-  +#0#0#129#129#129#255#255#255#255#255#187#187#187#255#188#187#187#255#237#236
-  +#236#255#237#237#237#255#188#188#188#255#189#188#188#255#237#238#238#255#238
-  +#238#238#255#238#238#239#255#239#238#238#255#255#255#255#255#129#129#129#255
-  +#0#0#0#0#0#0#0#0#129#129#129#255#255#255#255#255#187#187#187#255#187#187#187
-  +#255#237#236#237#255#237#237#237#255#188#188#188#255#188#188#188#255#238#237
-  +#237#255#238#238#237#255#238#238#238#255#238#238#238#255#255#255#255#255#129
-  +#129#129#255#0#0#0#0#0#0#0#0#129#129#129#255#255#255#255#255#255#255#255#255
-  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
-  +#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
-  +#255#255#129#129#129#255#0#0#0#0#0#0#0#0#153#153#153#172#129#129#129#255#129
-  +#129#129#255#129#129#129#255#129#129#129#255#129#129#129#255#129#129#129#255
-  +#129#129#129#255#129#129#129#255#129#129#129#255#129#129#129#255#129#129#129
-  +#255#129#129#129#255#129#129#129'V'#0#0#0#0#0#0#0#0#7'OnClick'#7#13'lmDBIndo'
-  +'Click'#0#0#9'TMenuItem'#9'MenuItem8'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'l'
-  +'mEditReg'#7'Caption'#6#17'Edit Registration'#11'Bitmap.Data'#10':'#4#0#0'6'
-  +#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0
-  +#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#156#159#158'}'#190#192
-  +#191#196#190#192#191#194#189#192#191#194#189#191#191#194#190#193#192#194#189
-  +#191#190#194#188#191#190#194#188#191#190#194#188#191#190#194#188#191#190#194
-  +#188#191#190#194#188#191#190#196#158#161#160'{'#0#0#0#9#0#0#0#7#193#195#194
-  +#167#234#235#235#255#233#234#234#255#232#233#233#255#233#233#233#255#209#211
-  +#211#255#188#190#190#255#228#230#230#255#227#230#230#255#226#229#229#255#225
-  +#228#228#255#224#228#227#255#225#229#228#255#192#194#194#166#0#0#0#6#0#0#0#3
-  +#199#201#200#162#236#236#236#255#235#235#235#255#235#235#235#255#203#204#203
-  +#255'twv'#255#141#144#143#255#220#221#221#255#221#222#222#255#222#224#224#255
-  +#224#226#226#255#223#226#227#255#224#227#227#255#196#199#198#162#0#0#0#3#0#0
-  +#0#3#199#201#201#162#238#238#238#255#237#237#237#255#193#194#194#255'lom'#255
-  +'QUS'#255'`ca'#255'wzx'#255#148#151#150#255#183#186#185#255#215#217#217#255
-  +#226#228#228#255#226#228#228#255#197#200#199#162#0#0#0#3#0#0#0#3#200#202#201
-  +#162#238#238#238#255#181#183#182#255'bfd'#255'QUS'#255'SWU'#255'RVT'#255'Y]['
-  +#255#127#130#129#255#172#174#174#255#214#215#215#255#228#229#229#255#228#229
-  +#229#255#197#200#199#162#0#0#0#3#0#0#0#3#200#203#202#162#238#239#239#255#164
-  +#166#165#255'X\Z'#255'RVT'#255'SWU'#255'RVT'#255'Z^\'#255#128#131#130#255#174
-  +#175#175#255#216#216#216#255#230#230#230#255#229#230#230#255#198#200#199#162
-  +#0#0#0#3#0#0#0#3#200#203#202#162#243#244#244#255#238#239#239#255#175#177#176
-  +#255'_ca'#255'QUS'#255'X\Z'#255'gki'#255#139#141#140#255#180#182#181#255#219
-  +#219#219#255#231#232#232#255#231#231#231#255#198#200#199#162#0#0#0#3#0#0#0#3
-  +#201#203#202#162#244#245#245#255#245#246#246#255#243#244#244#255#192#194#193
-  +#255'gki'#255#137#140#138#255#213#214#214#255#218#219#219#255#225#226#226#255
-  +#232#232#232#255#233#233#233#255#232#233#232#255#198#201#200#162#0#0#0#3#0#0
-  +#0#3#201#203#203#162#245#246#246#255#245#246#246#255#244#245#245#255#244#244
-  +#244#255#203#205#204#255#182#184#183#255#240#240#240#255#240#240#240#255#238
-  +#239#239#255#237#237#237#255#235#235#235#255#234#234#234#255#199#201#200#162
-  +#0#0#0#3#0#0#0#3#201#203#203#162#245#246#246#255#217#217#217#255#199#199#199
-  +#255#199#200#200#255#199#200#200#255#195#196#195#255#198#198#198#255#229#229
-  +#229#255#240#241#241#255#238#239#239#255#237#237#237#255#236#236#236#255#199
+  +#0#0#0#0#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0#255#255#255#0#255#255#255#0'UUU'#30'UUU*'#128#128#128#2#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
+  +#255#255#0#255#255#255#0#255#255#255#0'UUU'#9'gmi|{'#128#128#194'~'#131#129
+  +#237'{'#128'~'#251'{'#128#127#252#127#132#129#244'~'#131#129#207'qvs'#147'R['
+  +'R'#28#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+  +'UUU'#9#132#137#134#208#202#210#206#254#184#191#188#255#161#167#165#255#138
+  +#143#141#255#135#140#138#255#158#164#161#255#181#188#184#255#204#212#208#255
+  +#155#161#158#233'QWW)'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255
+  +#0'Y\YJ'#198#206#202#250#207#215#211#255#184#191#188#255#161#167#165#255#138
+  +#143#141#255#135#140#138#255#158#164#161#255#181#188#184#255#204#212#208#255
+  +#207#215#211#255'w|{'#142#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+  +#255#0']c`]'#207#215#211#255#207#215#211#255#184#191#188#255#161#167#165#255
+  +#138#143#141#255#135#140#138#255#158#164#161#255#181#188#184#255#204#212#208
+  +#255#207#215#211#255#137#143#141#165#255#255#255#0#255#255#255#0#255#255#255
+  +#0#255#255#255#0']ccU'#207#215#211#255#207#215#211#255#185#192#189#255#170
+  +#175#174#255#143#146#145#255#133#137#134#255#154#159#157#255#179#185#182#255
+  +#204#212#208#255#207#215#211#255#140#147#144#156#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0'^ddM'#210#217#214#255#179#183#181#255#151#155
+  +#152#255#136#140#138#255#132#137#135#255#132#137#135#255#138#142#139#255#142
+  +#148#144#255#148#154#151#255#185#192#189#255#143#150#147#147#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0'^eeE'#188#194#191#255#207#215#211
+  +#255#184#191#188#255#161#167#165#255#138#143#141#255'Z'#127'f'#255#127#148
+  ,#133#255#181#188#184#255#204#212#208#255#184#191#187#255#144#153#150#148#255
+  +#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'^^^9'#205#213#209#255
+  +#207#215#211#255#184#191#188#255#161#167#165#255'V'#134'o'#255'$'#154'W'#255
+  +'-'#139'L'#255#156#172#161#255#204#212#208#255#207#215#211#255#154#161#156
+  +#147#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'flf5'#207#215
+  +#211#255#207#215#211#255#184#191#188#255'_'#153#132#255#31#171'n'#255'"'#162
+  +'b'#255'%'#153'U'#255'2'#138'N'#255#187#200#192#255#207#215#211#255#158#164
+  +#160'x'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'gnm-'#207#215
+  +#211#255#208#216#212#255#151#186#175#255#25#188#132#255#28#179'y'#255'O'#147
+  +'u'#255'<'#142'e'#255'%'#152'T'#255'<'#139'T'#255#197#207#201#255#163#170#166
+  +'o'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'kts$'#213#220#217
+  +#255#209#215#213#255#191#199#195#255'T'#168#143#255'8'#164#127#255#167#173
+  +#171#255#156#164#160#255'2'#144'_'#255'&'#151'R'#255'8'#133'N'#255#148#163
+  +#152'r'#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0'tvu'#27#214
+  +#220#218#255#197#205#201#255#189#197#193#255#182#189#186#255#172#179#177#255
+  +#167#173#171#255#160#166#163#255#140#155#148#255'+'#147'\'#255'&'#150'P'#255
+  +'.'#130'E'#236#24'U$'#21#255#255#255#0#255#255#255#0#255#255#255#0'UUU'#6#213
+  +#220#217#250#197#205#201#255#189#197#193#255#182#189#186#255#175#181#178#255
+  +#167#173#171#255#160#166#163#255#152#158#155#255'{'#144#134#255''''#150'Z'
+  +#255''''#148'N'#255'&~;'#223#31'\)'#25#255#255#255#0#255#255#255#0#255#255
+  +#255#0#206#210#208'+'#209#215#212#238#194#201#197#254#182#189#186#255#175#181
+  +#178#255#167#173#171#255#160#166#163#255#151#157#154#255#146#152#149#248'Y'
+  +#138's'#144'$'#153'X'#250'$'#134'F'#226#29'b1'#26#255#255#255#0#255#255#255#0
+  +#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#185#190#189'6'#171
+  +#176#174#160#161#166#164#176#156#161#159'Q'#255#255#255#0#255#255#255#0#255
+  +#255#255#0#25'wJZ'#29'l;'#26#255#255#255#0#7'OnClick'#7#13'lmDBIndoClick'#0#0
+  +#9'TMenuItem'#9'MenuItem8'#7'Caption'#6#1'-'#0#0#9'TMenuItem'#9'lmEditReg'#7
+  +'Caption'#6#17'Edit Registration'#11'Bitmap.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4
+  +#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'
+  +#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#11#156#159#158'}'#190#192#191#196#190
+  +#192#191#194#189#192#191#194#189#191#191#194#190#193#192#194#189#191#190#194
+  +#188#191#190#194#188#191#190#194#188#191#190#194#188#191#190#194#188#191#190
+  +#194#188#191#190#196#158#161#160'{'#0#0#0#9#0#0#0#7#193#195#194#167#234#235
+  +#235#255#233#234#234#255#232#233#233#255#233#233#233#255#209#211#211#255#188
+  +#190#190#255#228#230#230#255#227#230#230#255#226#229#229#255#225#228#228#255
+  +#224#228#227#255#225#229#228#255#192#194#194#166#0#0#0#6#0#0#0#3#199#201#200
+  +#162#236#236#236#255#235#235#235#255#235#235#235#255#203#204#203#255'twv'#255
+  +#141#144#143#255#220#221#221#255#221#222#222#255#222#224#224#255#224#226#226
+  +#255#223#226#227#255#224#227#227#255#196#199#198#162#0#0#0#3#0#0#0#3#199#201
+  +#201#162#238#238#238#255#237#237#237#255#193#194#194#255'lom'#255'QUS'#255'`'
+  +'ca'#255'wzx'#255#148#151#150#255#183#186#185#255#215#217#217#255#226#228#228
+  +#255#226#228#228#255#197#200#199#162#0#0#0#3#0#0#0#3#200#202#201#162#238#238
+  +#238#255#181#183#182#255'bfd'#255'QUS'#255'SWU'#255'RVT'#255'Y]['#255#127#130
+  +#129#255#172#174#174#255#214#215#215#255#228#229#229#255#228#229#229#255#197
+  +#200#199#162#0#0#0#3#0#0#0#3#200#203#202#162#238#239#239#255#164#166#165#255
+  +'X\Z'#255'RVT'#255'SWU'#255'RVT'#255'Z^\'#255#128#131#130#255#174#175#175#255
+  +#216#216#216#255#230#230#230#255#229#230#230#255#198#200#199#162#0#0#0#3#0#0
+  +#0#3#200#203#202#162#243#244#244#255#238#239#239#255#175#177#176#255'_ca'#255
+  +'QUS'#255'X\Z'#255'gki'#255#139#141#140#255#180#182#181#255#219#219#219#255
+  +#231#232#232#255#231#231#231#255#198#200#199#162#0#0#0#3#0#0#0#3#201#203#202
+  +#162#244#245#245#255#245#246#246#255#243#244#244#255#192#194#193#255'gki'#255
+  +#137#140#138#255#213#214#214#255#218#219#219#255#225#226#226#255#232#232#232
+  +#255#233#233#233#255#232#233#232#255#198#201#200#162#0#0#0#3#0#0#0#3#201#203
+  +#203#162#245#246#246#255#245#246#246#255#244#245#245#255#244#244#244#255#203
+  +#205#204#255#182#184#183#255#240#240#240#255#240#240#240#255#238#239#239#255
+  +#237#237#237#255#235#235#235#255#234#234#234#255#199#201#200#162#0#0#0#3#0#0
+  +#0#3#201#203#203#162#245#246#246#255#217#217#217#255#199#199#199#255#199#200
+  +#200#255#199#200#200#255#195#196#195#255#198#198#198#255#229#229#229#255#240
+  +#241#241#255#238#239#239#255#237#237#237#255#236#236#236#255#199#202#201#162
+  +#0#0#0#3#0#0#0#3#201#203#203#162#245#246#246#255#218#219#219#255#201#201#201
+  +#255#202#202#202#255#201#202#202#255#201#202#202#255#221#221#221#255#240#241
+  +#241#255#242#242#242#255#240#241#241#255#239#239#239#255#237#238#238#255#200
   +#202#201#162#0#0#0#3#0#0#0#3#201#203#203#162#245#246#246#255#218#219#219#255
-  +#201#201#201#255#202#202#202#255#201#202#202#255#201#202#202#255#221#221#221
-  +#255#240#241#241#255#242#242#242#255#240#241#241#255#239#239#239#255#237#238
-  +#238#255#200#202#201#162#0#0#0#3#0#0#0#3#201#203#203#162#245#246#246#255#218
-  +#219#219#255#201#201#201#255#202#202#202#255#202#202#202#255#202#202#202#255
-  +#225#226#226#255#245#246#246#255#243#244#244#255#242#243#243#255#241#241#241
-  +#255#239#240#240#255#200#202#202#162#0#0#0#3#0#0#0#3#201#203#203#162#245#246
-  +#246#255#216#216#216#255#198#198#198#255#198#199#199#255#198#199#199#255#198
-  ,#198#198#255#210#211#211#255#244#245#245#255#245#246#246#255#244#245#245#255
-  +#243#244#244#255#241#242#241#255#201#203#202#162#0#0#0#3#0#0#0#3#201#204#203
-  +#162#245#246#246#255#215#216#216#255#196#197#197#255#197#197#197#255#197#197
-  +#197#255#197#197#197#255#199#200#200#255#234#235#235#255#248#249#249#255#246
-  +#247#247#255#245#246#246#255#243#243#243#255#201#203#202#162#0#0#0#3#0#0#0#3
-  +#200#202#201#162#243#244#244#255#237#238#238#255#232#233#233#255#232#233#233
-  +#255#232#233#233#255#232#233#233#255#233#234#234#255#242#243#243#255#246#247
-  +#247#255#245#246#246#255#245#246#246#255#243#243#243#255#200#202#201#162#0#0
-  +#0#3#0#0#0#1#174#178#176'p'#200#202#201#188#202#204#203#186#202#204#204#186
-  +#202#204#204#186#202#204#204#186#202#204#204#186#202#204#204#186#201#204#203
-  +#186#201#203#202#186#201#203#203#186#201#203#203#186#200#202#201#188#175#178
-  +#177'p'#0#0#0#1#7'OnClick'#7#14'lmEditRegClick'#0#0#9'TMenuItem'#20'lmUnregi'
-  +'sterDatabase'#7'Caption'#6#19'Unregister Database'#11'Bitmap.Data'#10':'#4#0
-  +#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0
-  +#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#8#8#8#19'OQPFjlk]il'
-  +'k]ilk]ilk]jlk]jlk]jlk]jlk]jlk]ikj]IKKG'#5#5#5#25#0#0#0#4#0#0#0#3'6976'#159
-  +#163#161#178#188#191#190#204#187#190#189#203#187#191#190#203#187#191#189#203
-  +#187#191#190#203#187#191#190#203#187#191#190#203#188#191#190#203#188#191#190
-  +#203#189#192#191#204#167#170#169#182'677>'#0#0#0#8#213#218#216#0'ptr7'#170
-  +#175#173#167#175#181#179#153#175#180#178#153#175#181#178#153#175#181#179#153
-  +#176#181#179#153#176#182#179#153#176#182#179#154#177#182#180#154#176#182#179
-  +#154#187#192#190#165#198#201#200#187'x{z:'#255#255#255#0#156#160#159#0#136
-  +#140#138'9'#176#181#179#153#179#186#183'~'#179#186#183'~'#179#186#183'~'#180
-  +#187#184'~'#177#185#181'~'#179#186#183'~'#179#186#183'~'#177#185#182'~'#178
-  +#185#182'}'#191#198#195#140#208#212#211#179#155#158#157'9'#178#181#180#0#178
-  +#182#181#0#140#144#143'C'#178#183#181#158#189#194#192#155#192#196#194#164#189
-  +#193#191#154#185#190#188#140#199#202#201#179#192#196#194#161#192#196#194#162
-  +#202#205#203#180#189#193#191#157#188#193#191#147#209#213#211#180#161#164#163
-  +'D'#202#205#204#0#212#215#214#0#143#147#145'M'#180#184#183#169#218#220#219
-  +#206#216#217#217#210#219#220#220#208#202#205#204#185#229#230#229#237#220#221
-  +#221#217#220#222#221#220#231#231#231#237#213#215#214#208#198#202#200#183#205
-  +#209#208#181#166#169#168'O'#238#241#240#0#255#255#255#0#145#149#147'Y'#164
-  +#169#167#166#210#211#211#211#219#220#219#233#219#220#220#234#206#207#207#221
-  +#215#216#216#228#215#216#215#227#214#215#215#227#217#218#218#230#212#213#212
-  +#224#186#189#188#182#198#202#201#186#169#172#171'\'#255#255#255#0#255#255#255
-  +#0#145#149#148'f'#151#157#155#173#186#188#188#206#209#210#210#242#206#207#207
-  +#239#197#198#198#230#195#197#197#226#200#201#201#231#200#201#201#231#200#201
-  +#201#230#200#201#201#231#175#178#177#194#188#192#191#192#170#174#174'i'#255
-  +#255#255#0'Z!'#0#8#142#132'z'#129#142#136#128#192#170#164#157#216#194#187#182
-  +#246#193#186#181#244#181#175#169#234#182#175#169#234#185#178#172#237#184#178
-  +#172#237#184#177#172#237#184#178#172#238#158#152#145#211#168#163#156#208#161
-  +#151#141#135'_$'#0#12#157'g@w'#166'vR'#234#165'vR'#247#169'zW'#250#172'~['
-  +#254#171'}Z'#253#169'{W'#252#169'{X'#252#169'zW'#253#169'zV'#253#168'yV'#253
-  +#168'yU'#253#164'tO'#249#166'uO'#249#165'sL'#238#154'b9'#134#169'rJ'#170#192
-  +#132'V'#255#192#129'P'#255#192#129'P'#255#192#129'P'#255#192#129'P'#255#192
-  +#129'P'#255#192#129'P'#255#192#129'P'#255#192#129'P'#255#192#129'P'#255#193
-  +#129'O'#255#172'v_'#255'~_'#137#255#167'ub'#255#167'l>'#168#161'f<g'#196#135
-  +'X'#248#196#135'W'#255#190#134'Z'#255#191#135'['#255#191#135'['#255#191#135
-  +'['#255#191#135'['#255#191#135'['#255#191#135'['#255#191#135'['#255#192#136
-  +'Z'#255#166'wk'#255'pV'#153#255#161'of'#242#160'a0X'#138'N$!'#184'yI'#212#172
-  +'zS'#255#156#145#135#255#167#160#154#255#165#158#152#255#165#158#151#255#165
-  +#157#151#255#164#157#151#255#164#157#150#255#165#158#152#255#167#161#155#255
-  +#159#136't'#255#193#132'T'#255#177'rB'#187'}@'#23#18','#0#0#2#164'e7|'#175'z'
-  +'Q'#224#194#189#184#251#204#205#205#255#199#200#200#255#199#199#200#255#198
-  +#199#199#255#199#200#200#255#204#205#205#255#208#209#209#255#211#213#214#255
-  +#182#164#148#244#178'tE'#217#158'`3W'#192#128'O'#0#133'I'#31#0'}.'#0#7#141'u'
-  +'b9'#207#208#206#227#221#222#222#255#218#218#218#255#217#217#217#255#217#217
-  +#217#255#217#217#217#255#219#219#219#255#219#219#219#255#222#222#222#255#188
-  +#187#183#177'{E'#30#30'~>'#19#4#127'C'#25#0#0#0#0#0#141#146#145#0#139#144#143
-  +#21#181#184#183#159#195#197#196#187#194#196#196#185#194#196#195#185#194#196
-  +#195#185#194#196#195#185#193#195#195#185#193#195#194#185#192#194#194#188#170
-  +#173#172't'#0#0#1#1#131#143#146#0#0#0#0#0#7'OnClick'#7#25'lmUnregisterDataba'
-  +'seClick'#0#0#9'TMenuItem'#15'lmViewFirst1000'#3'Tag'#2#1#7'Caption'#6#23'Vi'
-  +'ew First 1000 records'#11'Bitmap.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0
-  ,#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0
-  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#165#169#168#0#157#161#159'>'#187
+  +#201#201#201#255#202#202#202#255#202#202#202#255#202#202#202#255#225#226#226
+  ,#255#245#246#246#255#243#244#244#255#242#243#243#255#241#241#241#255#239#240
+  +#240#255#200#202#202#162#0#0#0#3#0#0#0#3#201#203#203#162#245#246#246#255#216
+  +#216#216#255#198#198#198#255#198#199#199#255#198#199#199#255#198#198#198#255
+  +#210#211#211#255#244#245#245#255#245#246#246#255#244#245#245#255#243#244#244
+  +#255#241#242#241#255#201#203#202#162#0#0#0#3#0#0#0#3#201#204#203#162#245#246
+  +#246#255#215#216#216#255#196#197#197#255#197#197#197#255#197#197#197#255#197
+  +#197#197#255#199#200#200#255#234#235#235#255#248#249#249#255#246#247#247#255
+  +#245#246#246#255#243#243#243#255#201#203#202#162#0#0#0#3#0#0#0#3#200#202#201
+  +#162#243#244#244#255#237#238#238#255#232#233#233#255#232#233#233#255#232#233
+  +#233#255#232#233#233#255#233#234#234#255#242#243#243#255#246#247#247#255#245
+  +#246#246#255#245#246#246#255#243#243#243#255#200#202#201#162#0#0#0#3#0#0#0#1
+  +#174#178#176'p'#200#202#201#188#202#204#203#186#202#204#204#186#202#204#204
+  +#186#202#204#204#186#202#204#204#186#202#204#204#186#201#204#203#186#201#203
+  +#202#186#201#203#203#186#201#203#203#186#200#202#201#188#175#178#177'p'#0#0#0
+  +#1#7'OnClick'#7#14'lmEditRegClick'#0#0#9'TMenuItem'#20'lmUnregisterDatabase'
+  +#7'Caption'#6#19'Unregister Database'#11'Bitmap.Data'#10':'#4#0#0'6'#4#0#0'B'
+  +'M6'#4#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0
+  +#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#0#0#0#1#8#8#8#19'OQPFjlk]ilk]ilk]ilk]jl'
+  +'k]jlk]jlk]jlk]jlk]ikj]IKKG'#5#5#5#25#0#0#0#4#0#0#0#3'6976'#159#163#161#178
+  +#188#191#190#204#187#190#189#203#187#191#190#203#187#191#189#203#187#191#190
+  +#203#187#191#190#203#187#191#190#203#188#191#190#203#188#191#190#203#189#192
+  +#191#204#167#170#169#182'677>'#0#0#0#8#213#218#216#0'ptr7'#170#175#173#167
+  +#175#181#179#153#175#180#178#153#175#181#178#153#175#181#179#153#176#181#179
+  +#153#176#182#179#153#176#182#179#154#177#182#180#154#176#182#179#154#187#192
+  +#190#165#198#201#200#187'x{z:'#255#255#255#0#156#160#159#0#136#140#138'9'#176
+  +#181#179#153#179#186#183'~'#179#186#183'~'#179#186#183'~'#180#187#184'~'#177
+  +#185#181'~'#179#186#183'~'#179#186#183'~'#177#185#182'~'#178#185#182'}'#191
+  +#198#195#140#208#212#211#179#155#158#157'9'#178#181#180#0#178#182#181#0#140
+  +#144#143'C'#178#183#181#158#189#194#192#155#192#196#194#164#189#193#191#154
+  +#185#190#188#140#199#202#201#179#192#196#194#161#192#196#194#162#202#205#203
+  +#180#189#193#191#157#188#193#191#147#209#213#211#180#161#164#163'D'#202#205
+  +#204#0#212#215#214#0#143#147#145'M'#180#184#183#169#218#220#219#206#216#217
+  +#217#210#219#220#220#208#202#205#204#185#229#230#229#237#220#221#221#217#220
+  +#222#221#220#231#231#231#237#213#215#214#208#198#202#200#183#205#209#208#181
+  +#166#169#168'O'#238#241#240#0#255#255#255#0#145#149#147'Y'#164#169#167#166
+  +#210#211#211#211#219#220#219#233#219#220#220#234#206#207#207#221#215#216#216
+  +#228#215#216#215#227#214#215#215#227#217#218#218#230#212#213#212#224#186#189
+  +#188#182#198#202#201#186#169#172#171'\'#255#255#255#0#255#255#255#0#145#149
+  +#148'f'#151#157#155#173#186#188#188#206#209#210#210#242#206#207#207#239#197
+  +#198#198#230#195#197#197#226#200#201#201#231#200#201#201#231#200#201#201#230
+  +#200#201#201#231#175#178#177#194#188#192#191#192#170#174#174'i'#255#255#255#0
+  +'Z!'#0#8#142#132'z'#129#142#136#128#192#170#164#157#216#194#187#182#246#193
+  +#186#181#244#181#175#169#234#182#175#169#234#185#178#172#237#184#178#172#237
+  +#184#177#172#237#184#178#172#238#158#152#145#211#168#163#156#208#161#151#141
+  +#135'_$'#0#12#157'g@w'#166'vR'#234#165'vR'#247#169'zW'#250#172'~['#254#171'}'
+  +'Z'#253#169'{W'#252#169'{X'#252#169'zW'#253#169'zV'#253#168'yV'#253#168'yU'
+  +#253#164'tO'#249#166'uO'#249#165'sL'#238#154'b9'#134#169'rJ'#170#192#132'V'
+  +#255#192#129'P'#255#192#129'P'#255#192#129'P'#255#192#129'P'#255#192#129'P'
+  +#255#192#129'P'#255#192#129'P'#255#192#129'P'#255#192#129'P'#255#193#129'O'
+  +#255#172'v_'#255'~_'#137#255#167'ub'#255#167'l>'#168#161'f<g'#196#135'X'#248
+  +#196#135'W'#255#190#134'Z'#255#191#135'['#255#191#135'['#255#191#135'['#255
+  +#191#135'['#255#191#135'['#255#191#135'['#255#191#135'['#255#192#136'Z'#255
+  +#166'wk'#255'pV'#153#255#161'of'#242#160'a0X'#138'N$!'#184'yI'#212#172'zS'
+  +#255#156#145#135#255#167#160#154#255#165#158#152#255#165#158#151#255#165#157
+  +#151#255#164#157#151#255#164#157#150#255#165#158#152#255#167#161#155#255#159
+  +#136't'#255#193#132'T'#255#177'rB'#187'}@'#23#18','#0#0#2#164'e7|'#175'zQ'
+  +#224#194#189#184#251#204#205#205#255#199#200#200#255#199#199#200#255#198#199
+  +#199#255#199#200#200#255#204#205#205#255#208#209#209#255#211#213#214#255#182
+  +#164#148#244#178'tE'#217#158'`3W'#192#128'O'#0#133'I'#31#0'}.'#0#7#141'ub9'
+  +#207#208#206#227#221#222#222#255#218#218#218#255#217#217#217#255#217#217#217
+  +#255#217#217#217#255#219#219#219#255#219#219#219#255#222#222#222#255#188#187
+  +#183#177'{E'#30#30'~>'#19#4#127'C'#25#0#0#0#0#0#141#146#145#0#139#144#143#21
+  +#181#184#183#159#195#197#196#187#194#196#196#185#194#196#195#185#194#196#195
+  +#185#194#196#195#185#193#195#195#185#193#195#194#185#192#194#194#188#170#173
+  ,#172't'#0#0#1#1#131#143#146#0#0#0#0#0#7'OnClick'#7#25'lmUnregisterDatabaseCl'
+  +'ick'#0#0#9'TMenuItem'#15'lmViewFirst1000'#3'Tag'#2#1#7'Caption'#6#23'View F'
+  +'irst 1000 records'#11'Bitmap.Data'#10':'#4#0#0'6'#4#0#0'BM6'#4#0#0#0#0#0#0
+  +'6'#0#0#0'('#0#0#0#16#0#0#0#16#0#0#0#1#0' '#0#0#0#0#0#0#4#0#0'd'#0#0#0'd'#0#0
+  +#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#0#165#169#168#0#157#161#159'>'#187
   +#189#188#185#193#195#194#189#194#196#195#188#196#199#198#188#199#202#201#188
   +#199#202#201#188#185#189#188#189#148#152#150#164#136#140#137'?nyq'#2'|'#132
   +'~'#0#0#0#0#0#0#0#0#0#0#0#0#0#188#190#189#0#171#174#173'\'#223#224#223#253
@@ -2814,10 +2817,10 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#195#195#195#231#195#195#195#231#196#196#196#231#197#197#197#231#197#197#197
   +#231#197#197#197#231#198#198#198#233#162#162#162#199'111('#255#255#255#0'fff'
   +#0'PPP'#30#196#196#196#218#236#236#236#255#237#237#237#255#239#239#239#255
-  +#241#241#241#255#243#243#243#255#246#246#246#255#248#248#248#255#249#249#249
+  ,#241#241#241#255#243#243#243#255#246#246#246#255#248#248#248#255#249#249#249
   +#255#249#249#249#255#249#249#249#255#202#202#202#223'TTT!aaa'#0'eee'#0'^^^'
   +#27#197#197#197#217#234#234#234#255#235#235#235#255#237#237#237#255#240#240
-  ,#240#255#242#242#242#255#244#244#244#255#246#246#246#255#248#248#248#255#248
+  +#240#255#242#242#242#255#244#244#244#255#246#246#246#255#248#248#248#255#248
   +#248#248#255#247#247#247#255#202#202#202#221'YYY'#31'___'#0'kkk'#0'ddd'#28
   +#199#199#199#217#234#234#234#255#235#235#235#255#237#237#237#255#239#239#239
   +#255#242#242#242#255#244#244#244#255#246#246#246#255#247#247#247#255#247#247
@@ -2878,10 +2881,10 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#230#230#255#236#236#236#255#243#243#243#255#233#234#234#255'R'#129#158#255
   +#26'd'#148#162#1#9#22#3#2#1#10#3#27'k'#158#164'T'#142#178#255#228#229#230#255
   +#230#231#231#255#215#216#216#255#215#215#215#255#214#214#214#255#214#214#214
-  +#255#213#214#214#255#212#212#212#255#221#221#221#255#225#226#226#255'R'#129
+  ,#255#213#214#214#255#212#212#212#255#221#221#221#255#225#226#226#255'R'#129
   +#159#255#26'd'#149#162#1#8#21#3#2#0#7#3#27'k'#159#164'T'#143#180#255#228#230
   +#231#255#232#233#233#255#218#219#219#255#217#218#218#255#216#217#217#255#216
-  ,#216#216#255#215#215#215#255#219#220#220#255#230#230#230#255#224#225#225#255
+  +#216#216#255#215#215#215#255#219#220#220#255#230#230#230#255#224#225#225#255
   +'R'#131#160#255#26'e'#149#162#0#7#19#3#1#0#5#3#28'k'#160#164'U'#144#182#255
   +#229#231#231#255#233#234#234#255#219#220#220#255#218#219#219#255#218#218#218
   +#255#217#218#218#255#216#217#217#255#221#221#221#255#233#233#233#255#225#226
@@ -2942,10 +2945,10 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#209#212#255#186#238#240#255#213#235#236#255#200#202#202#181#185#185#185'e'
   +#243#243#243#250#230#237#242#255'w'#163#192#255'e'#150#182#255#209#221#229
   +#255#244#243#243#255#219#219#219#255#215#215#215#255#227#226#226#255#195#209
-  +#210#255#130#220#224#255'X'#234#241#255'^'#243#251#255#134#240#245#255#165
+  ,#210#255#130#220#224#255'X'#234#241#255'^'#243#251#255#134#240#245#255#165
   +#206#208#182#177#177#177'N'#227#227#227#237#244#243#243#253#233#235#236#253
   +#230#233#235#253#242#242#242#253#241#241#241#253#242#242#242#253#241#241#241
-  ,#253#240#239#239#253#197#240#242#253'd'#244#251#255'~'#248#255#255#140#249
+  +#253#240#239#239#253#197#240#242#253'd'#244#251#255'~'#248#255#255#140#249
   +#254#255'Z'#241#249#255'f'#214#220#170#151#151#151#10#176#176#176'G'#185#185
   +#185'\'#186#186#185'\'#187#186#186'\'#185#185#185'\'#185#185#185'\'#185#185
   +#185'\'#184#184#184'['#186#183#183'[r'#208#212'w6'#238#247#203'~'#248#254#244
@@ -3006,10 +3009,10 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#254#252#254#242#240#255#252#249#248#254#249#248#255#252#238#248#242#247#253
   +#248#255#254#251#255#252#250#255#246#244'YMK'#255#255#252#254#251#247#255#255
   +#254#246#244#243'MHG'#239#234#233'GED'#247#252#250'.=9$83/C>'#231#246#242'8='
-  +';@>='#247#242#241'=87'#254#252#251#251#252#250#243#251#250#246#255#255'-:8'
+  ,';@>='#247#242#241'=87'#254#252#251#251#252#250#243#251#250#246#255#255'-:8'
   +#236#250#248#239#255#255#225#250#246#228#255#255#222#255#252#217#253#247#222
   +#254#249#229#254#250#236#255#252#237#251#249'0=;'#246#255#255#238#249#247#246
-  ,#255#255#237#250#252'w'#140#141#227#255#255'l'#142#141#216#253#251'l'#147#145
+  +#255#255#237#250#252'w'#140#141#227#255#255'l'#142#141#216#253#251'l'#147#145
   +#212#251#249'f'#141#139'n'#149#147'g'#140#138'n'#144#143#217#245#245#127#148
   +#149#235#248#250#246#255#255#255#253#255#236#242#247#127#150#152#215#251#251
   +#210#252#251#219#255#255#224#255#255#221#251#252#221#251#252#220#254#254#216
@@ -3070,10 +3073,10 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#206#206#255#199#199#199#255#199#199#199#255#198#199#199#255#198#198#198#255
   +#197#198#198#255#196#196#196#255#212#212#212#255#239#239#239#255#238#238#238
   +#255#200#202#201#162#0#0#0#3#0#0#0#3#201#203#203#162#245#247#247#255#242#243
-  +#243#255#232#233#233#255#232#233#233#255#232#233#233#255#232#233#233#255#231
+  ,#243#255#232#233#233#255#232#233#233#255#232#233#233#255#232#233#233#255#231
   +#232#232#255#230#231#231#255#229#229#229#255#228#229#229#255#236#237#237#255
   +#239#240#240#255#200#202#202#162#0#0#0#3#0#0#0#3#201#203#203#162#246#247#247
-  ,#255#230#230#230#255#199#199#199#255#199#199#199#255#199#199#199#255#199#199
+  +#255#230#230#230#255#199#199#199#255#199#199#199#255#199#199#199#255#199#199
   +#199#255#198#199#199#255#198#199#199#255#198#198#198#255#198#198#198#255#226
   +#227#227#255#242#242#242#255#201#203#202#162#0#0#0#3#0#0#0#3#201#203#203#162
   +#245#246#246#255#246#247#247#255#245#246#246#255#245#246#246#255#245#246#246
@@ -3134,10 +3137,10 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#202'\'#238#239#239#128#226#227#227#127#219#220#220'~'#200#202#201#154#203
   +#205#204#207#208#210#210#209#208#210#209#209#208#210#209#209#208#210#209#209
   +#203#205#204#203#198#200#199#169#200#202#201#163#200#202#201#164#193#196#195
-  +#159#159#163#162'='#200#202#202'\'#239#239#239#128#238#239#239#127#238#239
+  ,#159#159#163#162'='#200#202#202'\'#239#239#239#128#238#239#239#127#238#239
   +#239#127#238#239#239#127#234#235#235#128#233#235#234#128#233#235#234#128#233
   +#234#234#128#234#235#235#129#211#213#212'p|'#128'~'#19#0#0#0#1#0#0#0#2#0#0#0
-  ,#2#0#0#0#0#199#201#201']'#238#239#239#129#239#239#239#128#239#239#239#128#239
+  +#2#0#0#0#0#199#201#201']'#238#239#239#129#239#239#239#128#239#239#239#128#239
   +#240#239#128#239#240#240#128#239#240#240#128#239#240#240#128#239#240#240#128
   +#240#241#241#129#216#218#217'p'#144#149#147#16#146#151#149#0#0#0#0#0#0#0#0#0
   +#0#0#0#0#174#178#177'@'#198#201#200']'#199#202#201'\'#199#202#201'\'#199#202
@@ -3198,10 +3201,10 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +#246#248#251#242#247#250#241#255#255#249#245#248#239#255#255#249#255#255#249
   +#246#249#240'~'#129'xwzq'#254#255#248#255#255#249'TWNMPG'#250#253#244'ORIBE<'
   +#255#255#249#252#255#246#255#255#249#255#255#249#239#242#233#255#255#249#255
-  +#255#249'psjvyp'#255#255#249#247#250#241#255#255#249#255#255#249#255#255#249
+  ,#255#249'psjvyp'#255#255#249#247#250#241#255#255#249#255#255#249#255#255#249
   +#248#251#242#255#255#249#248#251#242#254#255#248#252#255#246#255#255#249#255
   +#255#249#255#255#249#249#252#243#128#131'z{~u'#249#252#243'MPG'#254#255#248
-  ,'FI@JMDNQHFI@KNEQTKKNEDG>'#255#255#249#255#255#249#255#255#249'twn'#128#131
+  +'FI@JMDNQHFI@KNEQTKKNEDG>'#255#255#249#255#255#249#255#255#249'twn'#128#131
   +'z'#249#252#243#255#255#249#255#255#249#255#255#249#252#255#246#255#255#249
   +#251#254#245#254#255#248#247#250#241#255#255#249#248#251#242#255#255#249#254
   +#255#248#246#249#240'{~uuxo'#255#255#249'EH?'#246#249#240'PSJJMDFI@QTKGJAUXO'
@@ -3262,10 +3265,10 @@ LazarusResources.Add('TfmMain','FORMDATA',[
   +'ysvxrz|v'#128#130'|}'#127'yjlf'#128#130'|vxrqsmuwquwq'#255#255#251#246#248
   +#242#255#255#251#254#255#250#253#255#249#255#255#251#255#255#251#249#251#245
   +#255#255#251#247#249#243#253#255#249#252#254#248#255#255#251#255#255#251#253
-  +#255#249#255#255#251#248#249#245#255#255#252#255#255#252#249#250#246#255#255
+  ,#255#249#255#255#251#248#249#245#255#255#252#255#255#252#249#250#246#255#255
   +#252#255#255#252#247#248#244#255#255#252#250#251#247#255#255#252#255#255#252
   +#254#255#251#250#251#247#255#255#252#249#250#246#255#255#252#255#255#252#253
-  ,#254#250#255#255#252#254#255#251#255#255#252#252#253#249#255#255#252#252#253
+  +#254#250#255#255#252#254#255#251#255#255#252#252#253#249#255#255#252#252#253
   +#249#255#255#252#247#248#244#255#255#252#253#254#250#254#255#251#255#255#252
   +#255#255#252#251#252#248#7'OnClick'#7#25'lmUserPermManagementClick'#0#0#9'TM'
   +'enuItem'#20'lmCopyUserPermission'#3'Tag'#2'o'#7'Caption'#6#23'Copy User Per'

main.pas

@@ -416,11 +416,12 @@ var
   ATab: TTabSheet;
   Title: string;
   dbIndex: Integer;
+  ServerTime: string;
 begin
   ProcessList:= TStringList.Create;
   dbIndex:= tvMain.Selected.OverlayIndex;
   Title:= 'Database information for: ' + tvMain.Selected.Text;
-  if dmSysTables.GetDatabaseInfo(dbIndex, dbName, ACharSet, CreationDate,
+  if dmSysTables.GetDatabaseInfo(dbIndex, dbName, ACharSet, CreationDate, ServerTime,
     MajorVer, MinorVer, Pages, PageSize, ProcessList) then
   with fmDBInfo do
   begin
@@ -474,7 +475,9 @@ begin
     end;
 
     edDBSize.Text:= Format('%3.1n %s', [dbSize, AType]);
+    fmDBInfo.edServerTime.Text:= ServerTime;
     meClients.Lines.Text:= ProcessList.Text;
+    meClients.Lines.Insert(0, '');
     ProcessList.Free;
     Show;
   end

newtable.lfm

@@ -1,15 +1,15 @@
 object fmNewTable: TfmNewTable
   Left = 535
-  Height = 564
+  Height = 618
   Top = 192
   Width = 594
   ActiveControl = edNewTable
   Caption = 'New Table'
-  ClientHeight = 564
+  ClientHeight = 618
   ClientWidth = 594
   OnClose = FormClose
   Position = poScreenCenter
-  LCLVersion = '1.0.1.3'
+  LCLVersion = '1.0.4.0'
   object Label1: TLabel
     Left = 18
     Height = 15
@@ -24,14 +24,14 @@ object fmNewTable: TfmNewTable
     Left = 18
     Height = 27
     Top = 28
-    Width = 153
+    Width = 206
     OnKeyUp = edNewTableKeyUp
     TabOrder = 0
   end
   object StringGrid1: TStringGrid
     Left = 18
-    Height = 403
-    Top = 59
+    Height = 419
+    Top = 66
     Width = 573
     Anchors = [akTop, akLeft, akRight, akBottom]
     ColCount = 6
@@ -74,8 +74,8 @@ object fmNewTable: TfmNewTable
   end
   object BitBtn2: TBitBtn
     Left = 448
-    Height = 32
-    Top = 529
+    Height = 46
+    Top = 560
     Width = 96
     Anchors = [akLeft, akBottom]
     Cancel = True
@@ -88,8 +88,8 @@ object fmNewTable: TfmNewTable
   end
   object bbScript: TBitBtn
     Left = 18
-    Height = 32
-    Top = 529
+    Height = 46
+    Top = 560
     Width = 118
     Anchors = [akLeft, akBottom]
     Caption = 'Script'
@@ -101,7 +101,7 @@ object fmNewTable: TfmNewTable
   object cxCreateGen: TCheckBox
     Left = 18
     Height = 24
-    Top = 473
+    Top = 496
     Width = 328
     Anchors = [akLeft, akBottom]
     Caption = 'Create Auto increment Generator and Trigger'
@@ -121,20 +121,22 @@ object fmNewTable: TfmNewTable
     TabOrder = 5
   end
   object cxGrantPermission: TCheckBox
-    Left = 18
+    Left = 16
     Height = 24
-    Top = 501
+    Top = 529
     Width = 64
     Anchors = [akLeft, akBottom]
     Caption = 'Grant'
+    OnChange = cxGrantPermissionChange
     TabOrder = 6
   end
   object cbPermission: TComboBox
     Left = 96
     Height = 27
-    Top = 498
+    Top = 526
     Width = 145
     Anchors = [akLeft, akBottom]
+    Enabled = False
     ItemHeight = 0
     ItemIndex = 0
     Items.Strings = (
@@ -146,20 +148,21 @@ object fmNewTable: TfmNewTable
     TabOrder = 7
     Text = 'Full'
   end
-  object Label2: TLabel
+  object laPermission: TLabel
     Left = 256
     Height = 18
-    Top = 507
+    Top = 531
     Width = 94
     Anchors = [akLeft, akBottom]
     Caption = 'Permission to'
     ParentColor = False
+    Visible = False
   end
   object cbRolesUsers: TComboBox
-    Left = 376
+    Left = 361
     Height = 29
-    Top = 496
-    Width = 161
+    Top = 524
+    Width = 181
     Anchors = [akLeft, akBottom]
     ItemHeight = 0
     Items.Strings = (
@@ -168,5 +171,100 @@ object fmNewTable: TfmNewTable
       'Insert'
     )
     TabOrder = 8
+    Visible = False
+  end
+  object Image1: TImage
+    Left = 448
+    Height = 63
+    Top = 0
+    Width = 80
+    Picture.Data = {
+      1754506F727461626C654E6574776F726B47726170686963A10A000089504E47
+      0D0A1A0A0000000D4948445200000040000000400806000000AA6971DE000000
+      0473424954080808087C086488000000097048597300000DD700000DD7014228
+      9B780000001974455874536F667477617265007777772E696E6B73636170652E
+      6F72679BEE3C1A00000A1E49444154789CED5B4D6855DB15FED6F9CBB9D7BCDC
+      687E6AD597C418231958833E48308556287494493BEA40B12274508AD0418B23
+      8522A5D0A1E0E4557C381004EB40148A82505E471A7F6A508836E4455E24A851
+      73EF4DCEEF5E1DDCBBEFDBF7E4DC9F736EAE425F176CCEDEEBECB3CF5EDF5E7B
+      EDB5FF8899F17D26ED5357E053D3FF01F8D415F8D464B4F2311111005A5C5C1C
+      B02CEB0B668E05340CC3BA6900F07D7F716464E43E00C1CCA2957A25214A6B04
+      979696766ED9B2E56F4288712144975A0E3357824CD7E30B212084301DC7F972
+      6C6CEC0F00D65002A2ED163A31004444EFDFBFFF3533FF4508B1450841420852
+      CB934188EF1A52E5C7811586A11986211CC7B93D3E3EFE2B00AB00C276839008
+      0022A2A5A5A52F6CDBBEC3CC561886248420669682138044ADAF00A0FBBE4F42
+      0830F3BF0F1C38F033001F00F8ED042191113C7BF6AC6EDBF65742082B08022D
+      0C438D9935A9056555465908A8E946FC300C118621822080E7793F7AFCF8F17D
+      00DB0098655BD3166A1A0022A2E3C78FFF5C0831245B1E806CB1D81656BB421C
+      5FCD1F05A250280C3C78F0E0E9EEDDBB7F08C022A2B68C58490A25D3347FAAA8
+      3C85615857F05AFD3DEE1B21048220A80262757575EB952B579E1D3D7A741F80
+      8E76809008005DD70F307345DD9B155ED5827A5AA26A800242E6E4C993F7CF9C
+      39731880BDD92024294C63E6AE7A422651F9685E29701C08F97CDE9C9A9AFAC7
+      850B177E0120BB992024D28020082AEADFAACA4783D400B51BC878D926E80303
+      035F5DB972E5B7003A8948FFD8000040D3AD9BB48B00A8A9010A089A61187FBE
+      76EDDA9F007C46447AAB234422006A099F46E5A37C4DD3B85E37904FC771686D
+      6DED77376FDEFC12400E404B2024D680CD52F9285FD3348E13388EE7791E2D2F
+      2FFFF2D6AD5B3700740330D282D03200929754E5A341D3346432199642C781A0
+      DA04D775B1B0B070F8C68D1B5F03D88A940E5322003653E563F273369B1544D4
+      50035423F9E2C58B7DD7AF5F7FDCD3D3D3570621914CA934200A482B2DAFF201
+      A0B7B737ECE8E8E04620A8F1B9B9B9EDE7CF9F7F7AF0E0C1CF91D06B4CAC0169
+      044CF00D6B9A86FEFE7ED1DFDFCF5D5D5D6C5956A50CA9E1AAA6131188080B0B
+      0B5DA74E9D7A72E4C8916124E80E8916448410D034ADA2DAAA00D22D56797171
+      59E13800245600289BCD8A4C26839E9E9E9A2046F84C44C6E8E8E84FEEDEBDFB
+      06C05B001B575E5A0120AEC24F9E3CD1E6E6E634F57DDC537DDFDFDFCF131313
+      A14CE7F3795A585820D775559B5171B7553B22E33D3D3D3C3434C4866154F233
+      3396979777A23432BC27A2868B2A8900880A553642DAE1C38743DFF7E1BA2E1C
+      C781E779701C07AEEBC2755D923CD775E1791E98597BF7EE1DE572390EC3100F
+      1F3ED4B66FDF2E8808F97C1E854281F2F93C178BC54ABA5028A0582CA25028A0
+      5028506F6F2F4D4F4FF3E4E4A4503400BEEF6700740068AA0BA43682CC0CCFF3
+      60180697E7F071813CCF83EFFB55FC2008D8755D00C0FAFA3A653219747676B2
+      6118D0340D44C400D4F501761C076B6B6B12047EFAF429F2F93CCA2DCC6AB76A
+      567820E5A268B42F965BBA2A789E47B2C5E5B31CAF9A4764B359360C83E7E7E7
+      7566461004606664321998A689AEAE2E04415009BEEF230802747575F1BE7DFB
+      44B44E49295517888EEDD116AED5F29EE791EFFB1B9CA6FDFBF78BB266905A6E
+      BDB865592C0DF24707205A9968CB47BB4219880A3FCE6B344D13866170A32134
+      AE1EB50CEEA6032084881DC2142347312A5F0584EFFB158BDD48A028AF197E5B
+      01A8555929A85479F9547855C0C40992241EFDBFCA6F2B00713F67E60D2A5ECB
+      1EC8207786E4F78542815EBE7C4991EE51596556FF25D3DBB66DE3818101A1EB
+      7A4B5A904A03542F1040CD7EEFFBFE06E17DDFAF123E0C43CCCECE6A7D7D7DA2
+      0C861CF7B91C47B158ACF2038AC5227A7B7BB5E9E9693A74E850D80A002D4D87
+      354D431886143182157BA00E836A7750DDE1F5F575B26D1BD96C96755D87A669
+      0050591C098200AEEB46FD00287E40956624A5C45D40FD89699AC8E572BCBABA
+      4A4404CBB26018063A3A3AA08EE9EAA689AEEBC8E572C8E5722CFD005DD77971
+      71B1E207689A86CECE4ED8B68DEEEEEE8A0F108661951F30323222D43AB51D80
+      3820A6A6A6C29595152A5BF758A0543E11A1BBBB9BCB2D0D66C6D8D858C50F88
+      FEA396F5374D73831F908652694014F5AD5BB76E18BF935A76C3302A7E40F45F
+      71E5A9EFD2AA7F6200E21C985A956A5688387EB3F1E8943C0DA59E0ED71328CA
+      DB2CBEFACFB8A53622AADA926F86521BC134F17A022501A59E2626A596678341
+      10E0D5AB57149DE5C5E58FAB683D01E2409264DB36E77239962B5F9FC4083233
+      6666667421046CDBAE5AD20E8280D4B13CBAAC1D5DFE8E7B574E53DCFB3D7BF6
+      60686888F7EEDD1BA615BE65008410585959A189898980B9322B948E114B2708
+      005CD7AD6C6AA8CE51D48394132AC5A364994F75B99F3D7B86A3478F5254BBDA
+      0A00503DE4101176EDDA256666660CDBB6598212058999A1EB3A6CDB866559B1
+      40AA6597CF20C4E691F15C2E871D3B76543942693687120F8392E48FC7C6C6C4
+      C0C0003B8E53E1ABEFD5FC499FF5CAB26DBBB220AA7E97945A9E0C3197DCD94C
+      2653C56B65E86BC6DF9069959F8652DB805A156865488C029B06C4B6FA015141
+      9AAD984CD7E3C7ED37368A47CB6BBB0D88FE384EA028AFDD2A1FF73E09B5BC28
+      1A8621969797C9711C52F3C455A896C16B26AFCA672EAD0AE77239AEF57DB3D4
+      F264E8D1A3473A3343EEE8C63942717BFEAA6313B7E31B7584A2650C0D0D6170
+      70908787875B5A116A696F9099F1E1C3071A1F1F0F9999A523547662645A3DD9
+      51B561D2E46E1247165BC9F77DCCCECEE2D8B163145D9E6B2B0042884214ED9D
+      3B778AD9D959DD344D965658555F5941CBB2605956AC1629DF90FA4D146C3574
+      7676A2BFBF5F44BBCAFCFCFC6ADB0028140AB3B66DFF58ADDCF0F0B0D8B16347
+      65AF2FCE884921E3F8B5F237CA679A26CB156185BCE7CF9FBF4313DBE2929200
+      C08B8B8B5F8F8E8EFE864B5471573B3A3A58AE03D61BE29258F366873E95EFBA
+      EE2A8075007E89DDB85F24591516274E9CF8A71062B15625E386B9CD3A4C1DCD
+      1B97FFE6CD9BFF42E988BD03A029A390040006B07EF1E2C53F3273D0A8C2719B
+      1AF5F237237C3DFEEBD7AFBFB97AF5EA0C80D7008A68B21B2405C0B974E9D2CC
+      EDDBB7FF2A84586FD4EA094E88A5060B00DEBC79F3F2F4E9D37F07F00D806F51
+      BA72D3940624BD31A201C80218181C1C9C3C77EEDCEF7B7A7A3ED7753D83C875
+      9946AD1BC797E9A88035E2A1E779853B77EE3CB87CF9F23D00FF01F018C03C80
+      0FDCE4C5ABC4576650D29A4E003B018C0018ECEBEBFBC1E4E4E420331B68703A
+      A3DEFF1A4D64E4B76FDFBE5DBF77EFDE320017A53EFF12C00B008B28DD350A9A
+      318040CA5B63E593DA19944E68F6959F9FA1743667534E71372001C0035000F0
+      1EA57EFF1625D54F74D12AF5B5B9727730005800ECF2D3C0C7B98CC92819390F
+      258BEF0008D0E4D0A7526A0080EF2E4E96931A121C4EDA04623524155C524B00
+      FC2FD0F7FEEEF07F019B0B1E26A09B318E0000000049454E44AE426082
+    }
   end
 end

newtable.lrs

@@ -1,15 +1,15 @@
 { This is an automatically generated lazarus resource file }
 
 LazarusResources.Add('TfmNewTable','FORMDATA',[
-  'TPF0'#11'TfmNewTable'#10'fmNewTable'#4'Left'#3#23#2#6'Height'#3'4'#2#3'Top'#3
+  'TPF0'#11'TfmNewTable'#10'fmNewTable'#4'Left'#3#23#2#6'Height'#3'j'#2#3'Top'#3
   +#192#0#5'Width'#3'R'#2#13'ActiveControl'#7#10'edNewTable'#7'Caption'#6#9'New'
-  +' Table'#12'ClientHeight'#3'4'#2#11'ClientWidth'#3'R'#2#7'OnClose'#7#9'FormC'
-  +'lose'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.1.3'#0#6'TLab'
+  +' Table'#12'ClientHeight'#3'j'#2#11'ClientWidth'#3'R'#2#7'OnClose'#7#9'FormC'
+  +'lose'#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.4.0'#0#6'TLab'
   +'el'#6'Label1'#4'Left'#2#18#6'Height'#2#15#3'Top'#2#9#5'Width'#2'T'#7'Captio'
   +'n'#6#14'New Table name'#11'Font.Height'#2#245#11'ParentColor'#8#10'ParentFo'
   +'nt'#8#0#0#5'TEdit'#10'edNewTable'#4'Left'#2#18#6'Height'#2#27#3'Top'#2#28#5
-  +'Width'#3#153#0#7'OnKeyUp'#7#15'edNewTableKeyUp'#8'TabOrder'#2#0#0#0#11'TStr'
-  +'ingGrid'#11'StringGrid1'#4'Left'#2#18#6'Height'#3#147#1#3'Top'#2';'#5'Width'
+  +'Width'#3#206#0#7'OnKeyUp'#7#15'edNewTableKeyUp'#8'TabOrder'#2#0#0#0#11'TStr'
+  +'ingGrid'#11'StringGrid1'#4'Left'#2#18#6'Height'#3#163#1#3'Top'#2'B'#5'Width'
   +#3'='#2#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#8'ColCount'
   +#2#6#7'Columns'#14#1#13'Title.Caption'#6#10'Field Name'#5'Width'#2'd'#0#1#13
   +'Title.Caption'#6#9'Data Type'#5'Width'#2'x'#0#1#13'Title.Caption'#6#4'Size'
@@ -23,28 +23,141 @@ LazarusResources.Add('TfmNewTable','FORMDATA',[
   +#1#13'OnEditingDone'#7#25'StringGrid1PickListSelect'#7'OnKeyUp'#7#16'StringG'
   +'rid1KeyUp'#9'OnMouseUp'#7#18'StringGrid1MouseUp'#16'OnPickListSelect'#7#25
   +'StringGrid1PickListSelect'#0#0#7'TBitBtn'#7'BitBtn2'#4'Left'#3#192#1#6'Heig'
-  +'ht'#2' '#3'Top'#3#17#2#5'Width'#2'`'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#6
+  +'ht'#2'.'#3'Top'#3'0'#2#5'Width'#2'`'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#6
   +'Cancel'#9#7'Caption'#6#6'Cancel'#5'Color'#4#219#242#247#0#4'Kind'#7#8'bkCan'
   +'cel'#11'ModalResult'#2#2#7'OnClick'#7#12'BitBtn2Click'#8'TabOrder'#2#2#0#0#7
-  +'TBitBtn'#8'bbScript'#4'Left'#2#18#6'Height'#2' '#3'Top'#3#17#2#5'Width'#2'v'
+  +'TBitBtn'#8'bbScript'#4'Left'#2#18#6'Height'#2'.'#3'Top'#3'0'#2#5'Width'#2'v'
   +#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#6'Script'#5'Color'#4#219
   +#242#247#0#4'Kind'#7#5'bkYes'#7'OnClick'#7#13'bbScriptClick'#8'TabOrder'#2#3
-  +#0#0#9'TCheckBox'#11'cxCreateGen'#4'Left'#2#18#6'Height'#2#24#3'Top'#3#217#1
+  +#0#0#9'TCheckBox'#11'cxCreateGen'#4'Left'#2#18#6'Height'#2#24#3'Top'#3#240#1
   +#5'Width'#3'H'#1#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6'+Create '
   +'Auto increment Generator and Trigger'#8'TabOrder'#2#4#0#0#7'TBitBtn'#7'bbCl'
   +'ose'#4'Left'#3'0'#2#6'Height'#2#24#3'Top'#2#0#5'Width'#2#27#7'Anchors'#11#5
   +'akTop'#7'akRight'#0#7'Caption'#6#4' X  '#5'Color'#4#219#242#247#0#10'Font.S'
   +'tyle'#11#6'fsBold'#0#7'OnClick'#7#12'bbCloseClick'#10'ParentFont'#8#8'TabOr'
-  +'der'#2#5#0#0#9'TCheckBox'#17'cxGrantPermission'#4'Left'#2#18#6'Height'#2#24
-  +#3'Top'#3#245#1#5'Width'#2'@'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Captio'
-  +'n'#6#5'Grant'#8'TabOrder'#2#6#0#0#9'TComboBox'#12'cbPermission'#4'Left'#2'`'
-  +#6'Height'#2#27#3'Top'#3#242#1#5'Width'#3#145#0#7'Anchors'#11#6'akLeft'#8'ak'
-  +'Bottom'#0#10'ItemHeight'#2#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'Full'
-  +#6#7'Modify '#6#4'Read'#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#7#4'Te'
-  +'xt'#6#4'Full'#0#0#6'TLabel'#6'Label2'#4'Left'#3#0#1#6'Height'#2#18#3'Top'#3
-  +#251#1#5'Width'#2'^'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#13'P'
-  +'ermission to'#11'ParentColor'#8#0#0#9'TComboBox'#12'cbRolesUsers'#4'Left'#3
-  +'x'#1#6'Height'#2#29#3'Top'#3#240#1#5'Width'#3#161#0#7'Anchors'#11#6'akLeft'
-  +#8'akBottom'#0#10'ItemHeight'#2#0#13'Items.Strings'#1#6#4'Full'#6#5'Read '#6
-  +#6'Insert'#0#8'TabOrder'#2#8#0#0#0
+  +'der'#2#5#0#0#9'TCheckBox'#17'cxGrantPermission'#4'Left'#2#16#6'Height'#2#24
+  +#3'Top'#3#17#2#5'Width'#2'@'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'
+  +#6#5'Grant'#8'OnChange'#7#23'cxGrantPermissionChange'#8'TabOrder'#2#6#0#0#9
+  +'TComboBox'#12'cbPermission'#4'Left'#2'`'#6'Height'#2#27#3'Top'#3#14#2#5'Wid'
+  +'th'#3#145#0#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Enabled'#8#10'ItemHeigh'
+  +'t'#2#0#9'ItemIndex'#2#0#13'Items.Strings'#1#6#4'Full'#6#7'Modify '#6#4'Read'
+  +#0#5'Style'#7#14'csDropDownList'#8'TabOrder'#2#7#4'Text'#6#4'Full'#0#0#6'TLa'
+  +'bel'#12'laPermission'#4'Left'#3#0#1#6'Height'#2#18#3'Top'#3#19#2#5'Width'#2
+  +'^'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#13'Permission to'#11
+  +'ParentColor'#8#7'Visible'#8#0#0#9'TComboBox'#12'cbRolesUsers'#4'Left'#3'i'#1
+  +#6'Height'#2#29#3'Top'#3#12#2#5'Width'#3#181#0#7'Anchors'#11#6'akLeft'#8'akB'
+  +'ottom'#0#10'ItemHeight'#2#0#13'Items.Strings'#1#6#4'Full'#6#5'Read '#6#6'In'
+  +'sert'#0#8'TabOrder'#2#8#7'Visible'#8#0#0#6'TImage'#6'Image1'#4'Left'#3#192#1
+  +#6'Height'#2'?'#3'Top'#2#0#5'Width'#2'P'#12'Picture.Data'#10#189#10#0#0#23'T'
+  +'PortableNetworkGraphic'#161#10#0#0#137'PNG'#13#10#26#10#0#0#0#13'IHDR'#0#0#0
+  +'@'#0#0#0'@'#8#6#0#0#0#170'iq'#222#0#0#0#4'sBIT'#8#8#8#8'|'#8'd'#136#0#0#0#9
+  +'pHYs'#0#0#13#215#0#0#13#215#1'B('#155'x'#0#0#0#25'tEXtSoftware'#0'www.inksc'
+  +'ape.org'#155#238'<'#26#0#0#10#30'IDATx'#156#237'[MhU'#219#21#254#214#249#203
+  +#185#215#188#220'h~j'#213#151#196#24'#'#25'X'#131'>H0'#133'V(t'#148'I;'#234
+  +'@'#177'"tP'#138#208'A'#139'#'#133'"'#165#208#161#224#228'U|8'#16#4#235'@'#20
+  +#138#130'P^G'#26#127'jP'#136'6'#228'E^$'#168'Qs'#239'M'#206#239'^'#29#220#187
+  +#239#219#247#228#220#159'sn'#174'B_'#23'l'#206#222#235#236#179#207'^'#223'^{'
+  +#237#181#255#136#153#241'}&'#237'SW'#224'S'#211#255#1#248#212#21#248#212'd'
+  +#180#242'1'#17#17#0'Z\\'#28#176','#235#11'f'#142#5'4'#12#195#186'i'#0#240'}'
+  +#127'qdd'#228'>'#0#193#204#162#149'z%!Jk'#4#151#150#150'vn'#217#178#229'oB'
+  +#136'q!D'#151'Z'#14'3W'#130'L'#215#227#11'! '#132'0'#29#199#249'rll'#236#15#0
+  +#214'P'#2#162#237#22':1'#0'DD'#239#223#191#255'53'#255'E'#8#177'E'#8'AB'#8'R'
+  +#203#147'A'#136#239#26'R'#229#199#129#21#134#161#25#134'!'#28#199#185'=>>'
+  +#254'+'#0#171#0#194'v'#131#144#8#0'"'#162#165#165#165'/l'#219#190#195#204'V'
+  +#24#134'$'#132' f'#150#130#19#128'D'#173#175#0#160#251#190'OB'#8'0'#243#191
+  ,#15#28'8'#240'3'#0#31#0#248#237#4'!'#145#17'<{'#246#172'n'#219#246'WB'#8'+'#8
+  +#2'-'#12'C'#141#153'5'#169#5'eUFY'#8#168#233'F'#252'0'#12#17#134'!'#130' '
+  +#128#231'y?z'#252#248#241'}'#0#219#0#152'e['#211#22'j'#26#0'"'#162#227#199
+  +#143#255'\'#8'1$['#30#128'l'#177#216#22'V'#187'B'#28'_'#205#31#5#162'P('#12
+  +'<x'#240#224#233#238#221#187#127#8#192'"'#162#182#140'XI'#10'%'#211'4'#127
+  +#170#168'<'#133'aXW'#240'Z'#253'='#238#27'!'#4#130' '#168#2'buuu'#235#149'+W'
+  +#158#29'=zt'#31#128#142'v'#128#144#8#0']'#215#15'0sE'#221#155#21'^'#213#130
+  +'zZ'#162'j'#128#2'B'#230#228#201#147#247#207#156'9s'#24#128#189#217' $)Lc'
+  +#230#174'zB&Q'#249'h^)p'#28#8#249'|'#222#156#154#154#250#199#133#11#23'~'#1
+  +' '#187#153' $'#210#128' '#8'*'#234#223#170#202'G'#131#212#0#181#27#200'x'
+  +#217'&'#232#3#3#3'_]'#185'r'#229#183#0':'#137'H'#255#216#0#0'@'#211#173#155
+  +#180#139#0#168#169#1#10#8#154'a'#24#127#190'v'#237#218#159#0'|FDz'#171'#D"'#0
+  +'j'#9#159'F'#229#163'|M'#211#184'^7'#144'O'#199'qhmm'#237'w7o'#222#252#18'@'
+  +#14'@K $'#214#128#205'R'#249'(_'#211'4'#142#19'8'#142#231'y'#30'-//'#255#242
+  +#214#173'[7'#0't'#3'0'#210#130#208'2'#0#146#151'T'#229#163'A'#211'4d2'#25#150
+  +'B'#199#129#160#218#4#215'u'#177#176#176'p'#248#198#141#27'_'#3#216#138#148
+  +#14'S"'#0'6S'#229'c'#242's6'#155#21'D'#212'P'#3'T#'#249#226#197#139'}'#215
+  +#175'_'#127#220#211#211#211'W'#6'!'#145'L'#169'4 '#10'H+-'#175#242#1#160#183
+  +#183'7'#236#232#232#224'F '#168#241#185#185#185#237#231#207#159#127'z'#240
+  +#224#193#207#145#208'kL'#172#1'i'#4'L'#240#13'k'#154#134#254#254'~'#209#223
+  +#223#207']]]lYV'#165#12#169#225#170#166#19#17#136#8#11#11#11']'#167'N'#157'z'
+  +'r'#228#200#145'a$'#232#14#137#22'D'#132#16#208'4'#173#162#218#170#0#210'-Vy'
+  +'qqY'#225'8'#0'$V'#0'('#155#205#138'L&'#131#158#158#158#154' F'#248'LD'#198
+  +#232#232#232'O'#238#222#189#251#6#192'['#0#27'W^Z'#1' '#174#194'O'#158'<'#209
+  +#230#230#230'4'#245'}'#220'S}'#223#223#223#207#19#19#19#161'L'#231#243'yZXX '
+  +#215'uU'#155'Qq'#183'U;"'#227'===<44'#196#134'aT'#242'33'#150#151#151'w'#162
+  +'42'#188''''#162#134#139'*'#137#0#136#10'U6B'#218#225#195#135'C'#223#247#225
+  +#186'.'#28#199#129#231'yp'#28#7#174#235#194'u]'#146'<'#215'u'#225'y'#30#152
+  +'Y{'#247#238#29#229'r9'#14#195#16#15#31'>'#212#182'o'#223'.'#136#8#249'|'#30
+  +#133'B'#129#242#249'<'#23#139#197'J'#186'P('#160'X,'#162'P('#160'P(Poo/MOO'
+  +#243#228#228#164'P4'#0#190#239'g'#0't'#0'h'#170#11#164'6'#130#204#12#207#243
+  +'`'#24#6#151#231#240'q'#129'<'#207#131#239#251'U'#252' '#8#216'u]'#0#192#250
+  +#250':e2'#25'tvv'#178'a'#24#208'4'#13'D'#196#0#212#245#1'v'#28#7'kkk'#18#4'~'
+  +#250#244')'#242#249'<'#202'-'#204'j'#183'jVx '#229#162'h'#180'/'#150'['#186
+  +'*x'#158'G'#178#197#229#179#28#175#154'Gd'#179'Y6'#12#131#231#231#231'ufF'#16
+  +#4'`fd2'#25#152#166#137#174#174'.'#4'AP'#9#190#239'#'#8#2'tuu'#241#190'}'#251
+  +'D'#180'NI)U'#23#136#142#237#209#22#174#213#242#158#231#145#239#251#27#156
+  +#166#253#251#247#139#178'f'#144'Zn'#189#184'eY,'#13#242'G'#7' Z'#153'h'#203
+  +'G'#187'B'#25#136#10'?'#206'k4M'#19#134'ap'#163'!4'#174#30#181#12#238#166#3
+  +' '#132#136#29#194#20'#G1*_'#5#132#239#251#21#139#221'H'#160'('#175#25'~['#1
+  +#168'UY)'#168'Ty'#249'TxU'#192#196#9#146'$'#30#253#191#202'o+'#0'q?g'#230#13
+  +'*^'#203#30#200' w'#134#228#247#133'B'#129'^'#190'|I'#145#238'QYeV'#255'%'
+  +#211#219#182'm'#227#129#129#1#161#235'zKZ'#144'J'#3'T/'#16'@'#205'~'#239#251
+  +#254#6#225'}'#223#175#18'>'#12'C'#204#206#206'j}}}'#162#12#134#28#247#185#28
+  +'G'#177'X'#172#242#3#138#197'"z{{'#181#233#233'i:t'#232'P'#216#10#0'-M'#135
+  +'5MC'#24#134#20'1'#130#21'{'#160#14#131'jwP'#221#225#245#245'u'#178'm'#27#217
+  +'l'#150'u]'#135#166'i'#0'PY'#28#9#130#0#174#235'F'#253#0'(~@'#149'f$'#165#196
+  +']@'#253#137'i'#154#200#229'r'#188#186#186'JD'#4#203#178'`'#24#6':::'#160#142
+  +#233#234#166#137#174#235#200#229'r'#200#229'r,'#253#0']'#215'yqq'#177#226#7
+  +'h'#154#134#206#206'N'#216#182#141#238#238#238#138#15#16#134'a'#149#31'022"'
+  +#212':'#181#29#128'8 '#166#166#166#194#149#149#21'*['#247'X'#160'T>'#17#161
+  +#187#187#155#203'-'#13'f'#198#216#216'X'#197#15#136#254#163#150#245'7Ms'#131
+  +#31#144#134'Ri@'#20#245#173'['#183'n'#24#191#147'Zv'#195'0*~@'#244'_q'#229
+  +#169#239#210#170#127'b'#0#226#28#152'Z'#149'jV'#136'8~'#179#241#232#148'<'#13
+  +#165#158#14#215#19'('#202#219','#190#250#207#184#165'6"'#170#218#146'o'#134
+  +'R'#27#193'4'#241'z'#2'%'#1#165#158'&&'#165#150'g'#131'A'#16#224#213#171'W'
+  +#20#157#229#197#229#143#171'h='#1#226'@'#146'd'#219'6'#231'r9'#150'+_'#159
+  +#196#8'23ffft!'#4'l'#219#174'Z'#210#14#130#128#212#177'<'#186#172#29']'#254
+  +#142'{WNS'#220#251'={'#246'`hh'#136#247#238#221#27#166#21#190'e'#0#132#16'XY'
+  +'Y'#161#137#137#137#128#185'2+'#148#142#17'K'''#8#0'\'#215#173'lj'#168#206'Q'
+  +#212#131#148#19'*'#197#163'd'#153'Ou'#185#159'={'#134#163'G'#143'RT'#187#218
+  +#10#0'P='#228#16#17'v'#237#218'%fff'#12#219#182'Y'#130#18#5#137#153#161#235
+  +':l'#219#134'eY'#177'@'#170'e'#151#207' '#196#230#145#241'\.'#135#29';vT9Bi6'
+  +#135#18#15#131#146#228#143#199#198#198#196#192#192#0';'#142'S'#225#171#239
+  ,#213#252'I'#159#245#202#178'm'#187#178' '#170'~'#151#148'Z'#158#12'1'#151#220
+  +#217'L&S'#197'ke'#232'k'#198#223#144'i'#149#159#134'R'#219#128'Z'#21'heH'#140
+  +#2#155#6#196#182#250#1'QA'#154#173#152'L'#215#227#199#237'76'#138'G'#203'k'
+  +#187#13#136#254'8N'#160'('#175#221'*'#31#247'>'#9#181#188'('#26#134'!'#150
+  +#151#151#201'q'#28'R'#243#196'U'#168#150#193'k&'#175#202'g.'#173#10#231'r9'
+  +#174#245'}'#179#212#242'd'#232#209#163'G:3C'#238#232#198'9Bq{'#254#170'c'#19
+  +#183#227#27'u'#132#162'e'#12#13#13'app'#144#135#135#135'[Z'#17'jio'#144#153
+  +#241#225#195#7#26#31#31#15#153#153#165'#TvbdZ='#217'Q'#181'a'#210#228'n'#18
+  +'G'#22'['#201#247'}'#204#206#206#226#216#177'c'#20']'#158'k+'#0'B'#136'B'#20
+  +#237#157';w'#138#217#217'Y'#221'4M'#150'VXU_YA'#203#178'`YV'#172#22')'#223
+  +#144#250'M'#20'l5tvv'#162#191#191'_D'#187#202#252#252#252'j'#219#0'('#20#10
+  +#179#182'm'#255'X'#173#220#240#240#176#216#177'cGe'#175'/'#206#136'I!'#227
+  +#248#181#242'7'#202'g'#154'&'#203#21'a'#133#188#231#207#159#191'C'#19#219#226
+  +#146#146#0#192#139#139#139'_'#143#142#142#254#134'KTqW;::X'#174#3#214#27#226
+  +#146'X'#243'f'#135'>'#149#239#186#238'*'#128'u'#0'~'#137#221#184'_$Y'#21#22
+  +'''N'#156#248#167#16'b'#177'V%'#227#134#185#205':L'#29#205#27#151#255#230#205
+  +#155#255'B'#233#136#189#3#160')'#163#144#4#0#6#176'~'#241#226#197'?2s'#208
+  +#168#194'q'#155#26#245#242'7#|='#254#235#215#175#191#185'z'#245#234#12#128
+  +#215#0#138'h'#178#27'$'#5#192#185't'#233#210#204#237#219#183#255'*'#132'Xo'
+  +#212#234#9'N'#136#165#6#11#0#222#188'y'#243#242#244#233#211#127#7#240#13#128
+  +'oQ'#186'r'#211#148#6'$'#189'1'#162#1#200#2#24#24#28#28#156'<w'#238#220#239
+  +'{zz>'#215'u='#131#200'u'#153'F'#173#27#199#151#233#168#128'5'#226#161#231'y'
+  +#133';w'#238'<'#184'|'#249#242'='#0#255#1#240#24#192'<'#128#15#220#228#197
+  +#171#196'WfP'#210#154'N'#0';'#1#140#0#24#236#235#235#251#193#228#228#228' 3'
+  +#27'hp:'#163#222#255#26'Md'#228#183'o'#223#190']'#191'w'#239#222'2'#0#23#165
+  +'>'#255#18#192#11#0#139'('#221'5'#10#154'1'#128'@'#202'[c'#229#147#218#25#148
+  +'Nh'#246#149#159#159#161't6gSNq7 '#1#192#3'P'#0#240#30#165'~'#255#22'%'#213
+  +'Ot'#209'*'#245#181#185'rw0'#0'X'#0#236#242#211#192#199#185#140#201'('#25'9'
+  +#15'%'#139#239#0#8#208#228#208#167'Rj'#0#128#239'.N'#150#147#26#18#28'N'#218
+  +#4'b5$'#21'\RK'#0#252'/'#208#247#254#238#240#127#1#155#11#30'&'#160#155'1'
+  +#142#0#0#0#0'IEND'#174'B`'#130#0#0#0
 ]);

newtable.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, IBConnection, sqldb, FileUtil, LResources, Forms, Controls,
-  Graphics, Dialogs, StdCtrls, Grids, Buttons, SynEdit, SynCompletion,
+  Graphics, Dialogs, StdCtrls, Grids, Buttons, ExtCtrls, SynEdit, SynCompletion,
   SynHighlighterSQL;
 
 type
@@ -22,12 +22,14 @@ type
     cxGrantPermission: TCheckBox;
     cxCreateGen: TCheckBox;
     edNewTable: TEdit;
+    Image1: TImage;
     Label1: TLabel;
-    Label2: TLabel;
+    laPermission: TLabel;
     StringGrid1: TStringGrid;
     procedure bbCloseClick(Sender: TObject);
     procedure bbScriptClick(Sender: TObject);
     procedure BitBtn2Click(Sender: TObject);
+    procedure cxGrantPermissionChange(Sender: TObject);
     procedure edNewTableKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure StringGrid1KeyUp(Sender: TObject; var Key: Word;
@@ -281,6 +283,14 @@ begin
   bbCloseClick(nil);
 end;
 
+procedure TfmNewTable.cxGrantPermissionChange(Sender: TObject);
+begin
+  cbPermission.Enabled:= cxGrantPermission.Checked;
+  laPermission.Visible:= cxGrantPermission.Checked;
+  cbRolesUsers.Visible:= cxGrantPermission.Checked;
+
+end;
+
 procedure TfmNewTable.edNewTableKeyUp(Sender: TObject; var Key: Word;
   Shift: TShiftState);
 begin

permissionmanage.lfm

@@ -8,7 +8,7 @@ object fmPermissionManage: TfmPermissionManage
   ClientWidth = 518
   OnClose = FormClose
   Position = poScreenCenter
-  LCLVersion = '1.0.1.3'
+  LCLVersion = '1.0.4.0'
   object PageControl1: TPageControl
     Left = 0
     Height = 368
@@ -98,7 +98,7 @@ object fmPermissionManage: TfmPermissionManage
       end
       object bbApplyTable: TBitBtn
         Left = 6
-        Height = 30
+        Height = 35
         Top = 299
         Width = 75
         Anchors = [akLeft, akBottom]
@@ -119,7 +119,7 @@ object fmPermissionManage: TfmPermissionManage
       object cxSelectGrant: TCheckBox
         Left = 345
         Height = 24
-        Top = 102
+        Top = 103
         Width = 99
         Caption = 'With Grant'
         TabOrder = 8
@@ -127,7 +127,7 @@ object fmPermissionManage: TfmPermissionManage
       object cxInsertGrant: TCheckBox
         Left = 345
         Height = 24
-        Top = 154
+        Top = 156
         Width = 99
         Caption = 'With Grant'
         TabOrder = 9
@@ -135,7 +135,7 @@ object fmPermissionManage: TfmPermissionManage
       object cxUpdateGrant: TCheckBox
         Left = 345
         Height = 24
-        Top = 202
+        Top = 203
         Width = 99
         Caption = 'With Grant'
         TabOrder = 10
@@ -143,7 +143,7 @@ object fmPermissionManage: TfmPermissionManage
       object cxDeleteGrant: TCheckBox
         Left = 342
         Height = 24
-        Top = 253
+        Top = 254
         Width = 99
         Caption = 'With Grant'
         TabOrder = 11
@@ -151,7 +151,7 @@ object fmPermissionManage: TfmPermissionManage
       object cxReferencesGrant: TCheckBox
         Left = 345
         Height = 24
-        Top = 307
+        Top = 309
         Width = 99
         Caption = 'With Grant'
         TabOrder = 12
@@ -170,7 +170,7 @@ object fmPermissionManage: TfmPermissionManage
       object cxAllGrant: TCheckBox
         Left = 345
         Height = 24
-        Top = 53
+        Top = 55
         Width = 110
         AutoSize = False
         Caption = 'With Grant'
@@ -220,7 +220,7 @@ object fmPermissionManage: TfmPermissionManage
       end
       object bbApplyView: TBitBtn
         Left = 6
-        Height = 30
+        Height = 33
         Top = 299
         Width = 75
         Anchors = [akLeft, akBottom]
@@ -241,7 +241,7 @@ object fmPermissionManage: TfmPermissionManage
         Left = 318
         Height = 24
         Top = 34
-        Width = 44
+        Width = 47
         Caption = 'All'
         Font.Style = [fsBold]
         ParentFont = False
@@ -251,7 +251,7 @@ object fmPermissionManage: TfmPermissionManage
         Left = 345
         Height = 24
         Top = 49
-        Width = 99
+        Width = 104
         Caption = 'With Grant'
         Font.Style = [fsBold]
         ParentFont = False
@@ -381,7 +381,7 @@ object fmPermissionManage: TfmPermissionManage
       end
       object bbApplyProc: TBitBtn
         Left = 6
-        Height = 30
+        Height = 33
         Top = 296
         Width = 75
         Anchors = [akLeft, akBottom]
@@ -432,7 +432,7 @@ object fmPermissionManage: TfmPermissionManage
       end
       object bbApplyRoles: TBitBtn
         Left = 12
-        Height = 30
+        Height = 35
         Top = 298
         Width = 75
         Anchors = [akLeft, akBottom]
@@ -455,7 +455,7 @@ object fmPermissionManage: TfmPermissionManage
       end
       object BitBtn1: TBitBtn
         Left = 102
-        Height = 30
+        Height = 35
         Top = 298
         Width = 75
         Anchors = [akLeft, akBottom]

permissionmanage.lrs

@@ -4,7 +4,7 @@ LazarusResources.Add('TfmPermissionManage','FORMDATA',[
   'TPF0'#19'TfmPermissionManage'#18'fmPermissionManage'#4'Left'#3#218#1#6'Heigh'
   +'t'#3'p'#1#3'Top'#3#204#0#5'Width'#3#6#2#7'Caption'#6#21'Permission Manageme'
   +'nt'#12'ClientHeight'#3'p'#1#11'ClientWidth'#3#6#2#7'OnClose'#7#9'FormClose'
-  +#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.1.3'#0#12'TPageCont'
+  +#8'Position'#7#14'poScreenCenter'#10'LCLVersion'#6#7'1.0.4.0'#0#12'TPageCont'
   +'rol'#12'PageControl1'#4'Left'#2#0#6'Height'#3'p'#1#3'Top'#2#0#5'Width'#3#240
   +#1#10'ActivePage'#7#8'tsTables'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8
   +'akBottom'#0#8'TabIndex'#2#0#8'TabOrder'#2#0#0#9'TTabSheet'#8'tsTables'#7'Ca'
@@ -25,23 +25,23 @@ LazarusResources.Add('TfmPermissionManage','FORMDATA',[
   +#236#0#5'Width'#2'F'#7'Caption'#6#6'Delete'#8'TabOrder'#2#4#0#0#9'TCheckBox'
   +#12'cxReferences'#4'Left'#3'>'#1#6'Height'#2#24#3'Top'#3#31#1#5'Width'#2'e'#7
   +'Caption'#6#10'References'#8'TabOrder'#2#5#0#0#7'TBitBtn'#12'bbApplyTable'#4
-  +'Left'#2#6#6'Height'#2#30#3'Top'#3'+'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'
+  +'Left'#2#6#6'Height'#2'#'#3'Top'#3'+'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'
   +#8'akBottom'#0#7'Caption'#6#5'Apply'#4'Kind'#7#4'bkOK'#7'OnClick'#7#17'bbApp'
   +'lyTableClick'#8'TabOrder'#2#6#0#0#9'TComboBox'#7'cbUsers'#4'Left'#2#18#6'He'
   +'ight'#2#29#3'Top'#2'"'#5'Width'#3#236#0#10'ItemHeight'#2#0#8'OnChange'#7#14
   +'cbTablesChange'#8'TabOrder'#2#7#0#0#9'TCheckBox'#13'cxSelectGrant'#4'Left'#3
-  +'Y'#1#6'Height'#2#24#3'Top'#2'f'#5'Width'#2'c'#7'Caption'#6#10'With Grant'#8
+  +'Y'#1#6'Height'#2#24#3'Top'#2'g'#5'Width'#2'c'#7'Caption'#6#10'With Grant'#8
   +'TabOrder'#2#8#0#0#9'TCheckBox'#13'cxInsertGrant'#4'Left'#3'Y'#1#6'Height'#2
-  +#24#3'Top'#3#154#0#5'Width'#2'c'#7'Caption'#6#10'With Grant'#8'TabOrder'#2#9
+  +#24#3'Top'#3#156#0#5'Width'#2'c'#7'Caption'#6#10'With Grant'#8'TabOrder'#2#9
   +#0#0#9'TCheckBox'#13'cxUpdateGrant'#4'Left'#3'Y'#1#6'Height'#2#24#3'Top'#3
-  +#202#0#5'Width'#2'c'#7'Caption'#6#10'With Grant'#8'TabOrder'#2#10#0#0#9'TChe'
-  +'ckBox'#13'cxDeleteGrant'#4'Left'#3'V'#1#6'Height'#2#24#3'Top'#3#253#0#5'Wid'
+  +#203#0#5'Width'#2'c'#7'Caption'#6#10'With Grant'#8'TabOrder'#2#10#0#0#9'TChe'
+  +'ckBox'#13'cxDeleteGrant'#4'Left'#3'V'#1#6'Height'#2#24#3'Top'#3#254#0#5'Wid'
   +'th'#2'c'#7'Caption'#6#10'With Grant'#8'TabOrder'#2#11#0#0#9'TCheckBox'#17'c'
-  +'xReferencesGrant'#4'Left'#3'Y'#1#6'Height'#2#24#3'Top'#3'3'#1#5'Width'#2'c'
+  +'xReferencesGrant'#4'Left'#3'Y'#1#6'Height'#2#24#3'Top'#3'5'#1#5'Width'#2'c'
   +#7'Caption'#6#10'With Grant'#8'TabOrder'#2#12#0#0#9'TCheckBox'#5'cxAll'#4'Le'
   +'ft'#3'>'#1#6'Height'#2#24#3'Top'#2'"'#5'Width'#2'B'#8'AutoSize'#8#7'Caption'
   +#6#3'All'#10'Font.Style'#11#6'fsBold'#0#10'ParentFont'#8#8'TabOrder'#2#13#0#0
-  +#9'TCheckBox'#10'cxAllGrant'#4'Left'#3'Y'#1#6'Height'#2#24#3'Top'#2'5'#5'Wid'
+  +#9'TCheckBox'#10'cxAllGrant'#4'Left'#3'Y'#1#6'Height'#2#24#3'Top'#2'7'#5'Wid'
   +'th'#2'n'#8'AutoSize'#8#7'Caption'#6#10'With Grant'#10'Font.Style'#11#6'fsBo'
   +'ld'#0#10'ParentFont'#8#8'TabOrder'#2#14#0#0#0#9'TTabSheet'#7'tsViews'#7'Cap'
   +'tion'#6#5'Views'#12'ClientHeight'#3'Q'#1#11'ClientWidth'#3#236#1#0#6'TLabel'
@@ -53,14 +53,14 @@ LazarusResources.Add('TfmPermissionManage','FORMDATA',[
   +'tColor'#8#0#0#9'TComboBox'#7'cbViews'#4'Left'#2#18#6'Height'#2#31#3'Top'#2
   +'|'#5'Width'#3#220#0#10'ItemHeight'#2#0#8'OnChange'#7#13'cbViewsChange'#5'St'
   +'yle'#7#14'csDropDownList'#8'TabOrder'#2#1#0#0#7'TBitBtn'#11'bbApplyView'#4
-  +'Left'#2#6#6'Height'#2#30#3'Top'#3'+'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'
+  +'Left'#2#6#6'Height'#2'!'#3'Top'#3'+'#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'
   +#8'akBottom'#0#7'Caption'#6#5'Apply'#4'Kind'#7#4'bkOK'#7'OnClick'#7#16'bbApp'
   +'lyViewClick'#8'TabOrder'#2#2#0#0#6'TLabel'#7'Label10'#4'Left'#3'6'#1#6'Heig'
   +'ht'#2#18#3'Top'#2#10#5'Width'#2'S'#7'Caption'#6#11'Permissions'#11'ParentCo'
   +'lor'#8#0#0#9'TCheckBox'#9'cxViewAll'#4'Left'#3'>'#1#6'Height'#2#24#3'Top'#2
-  +'"'#5'Width'#2','#7'Caption'#6#3'All'#10'Font.Style'#11#6'fsBold'#0#10'Paren'
+  +'"'#5'Width'#2'/'#7'Caption'#6#3'All'#10'Font.Style'#11#6'fsBold'#0#10'Paren'
   +'tFont'#8#8'TabOrder'#2#3#0#0#9'TCheckBox'#14'cxViewAllGrant'#4'Left'#3'Y'#1
-  +#6'Height'#2#24#3'Top'#2'1'#5'Width'#2'c'#7'Caption'#6#10'With Grant'#10'Fon'
+  +#6'Height'#2#24#3'Top'#2'1'#5'Width'#2'h'#7'Caption'#6#10'With Grant'#10'Fon'
   +'t.Style'#11#6'fsBold'#0#10'ParentFont'#8#8'TabOrder'#2#4#0#0#9'TCheckBox'#12
   +'cxViewSelect'#4'Left'#3'='#1#6'Height'#2#24#3'Top'#2'V'#5'Width'#2'C'#7'Cap'
   +'tion'#6#6'Select'#8'TabOrder'#2#5#0#0#9'TCheckBox'#17'cxViewSelectGrant'#4
@@ -91,7 +91,7 @@ LazarusResources.Add('TfmPermissionManage','FORMDATA',[
   +#5'Width'#3#211#0#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#10'ItemHeig'
   +'ht'#2#0#7'OnClick'#7#18'clbProceduresClick'#7'OnKeyUp'#7#18'clbProceduresKe'
   +'yUp'#8'TabOrder'#2#1#8'TopIndex'#2#255#0#0#7'TBitBtn'#11'bbApplyProc'#4'Lef'
-  +'t'#2#6#6'Height'#2#30#3'Top'#3'('#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8
+  +'t'#2#6#6'Height'#2'!'#3'Top'#3'('#1#5'Width'#2'K'#7'Anchors'#11#6'akLeft'#8
   +'akBottom'#0#7'Caption'#6#5'Apply'#4'Kind'#7#4'bkOK'#7'OnClick'#7#16'bbApply'
   +'ProcClick'#8'TabOrder'#2#2#0#0#9'TCheckBox'#11'cxProcGrant'#4'Left'#3#246#0
   +#6'Height'#2#24#3'Top'#3'+'#1#5'Width'#2'c'#7'Anchors'#11#6'akLeft'#8'akBott'
@@ -103,13 +103,13 @@ LazarusResources.Add('TfmPermissionManage','FORMDATA',[
   +'Width'#3#188#0#10'ItemHeight'#2#0#8'OnChange'#7#17'cbRolesUserChange'#8'Tab'
   +'Order'#2#0#0#0#6'TLabel'#6'Label7'#4'Left'#3#230#0#6'Height'#2#18#3'Top'#2
   +#11#5'Width'#2'S'#7'Caption'#6#11'Permissions'#11'ParentColor'#8#0#0#7'TBitB'
-  +'tn'#12'bbApplyRoles'#4'Left'#2#12#6'Height'#2#30#3'Top'#3'*'#1#5'Width'#2'K'
+  +'tn'#12'bbApplyRoles'#4'Left'#2#12#6'Height'#2'#'#3'Top'#3'*'#1#5'Width'#2'K'
   +#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#5'Apply'#4'Kind'#7#4'bkO'
   +'K'#7'OnClick'#7#17'bbApplyRolesClick'#8'TabOrder'#2#1#0#0#13'TCheckListBox'
   +#8'clbRoles'#4'Left'#3#246#0#6'Height'#3#1#1#3'Top'#2''''#5'Width'#3#211#0#7
   +'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#10'ItemHeight'#2#0#7'OnClick'#7
   +#13'clbRolesClick'#7'OnKeyUp'#7#13'clbRolesKeyUp'#8'TabOrder'#2#2#8'TopIndex'
-  +#2#255#0#0#7'TBitBtn'#7'BitBtn1'#4'Left'#2'f'#6'Height'#2#30#3'Top'#3'*'#1#5
+  +#2#255#0#0#7'TBitBtn'#7'BitBtn1'#4'Left'#2'f'#6'Height'#2'#'#3'Top'#3'*'#1#5
   +'Width'#2'K'#7'Anchors'#11#6'akLeft'#8'akBottom'#0#7'Caption'#6#7'Refresh'#7
   +'OnClick'#7#12'BitBtn1Click'#8'TabOrder'#2#3#0#0#9'TCheckBox'#11'cxRoleGrant'
   +#4'Left'#3#246#0#6'Height'#2#24#3'Top'#3'0'#1#5'Width'#2'i'#7'Anchors'#11#6

systables.pas

@@ -53,8 +53,9 @@ type
     function GetFieldInfo(dbIndex: Integer; TableName, FieldName: string; var FieldType: string;
       var FieldSize: Integer; var NotNull: Boolean; var DefaultValue, Description : string): Boolean;
 
-    function GetDatabaseInfo(dbIndex: Integer; var DatabaseName, CharSet, CreationDate: string;
-      var ODSVerMajor, ODSVerMinor, Pages, PageSize: Integer; var ProcessList: TStringList): Boolean;
+    function GetDatabaseInfo(dbIndex: Integer; var DatabaseName, CharSet,
+      CreationDate, ServerTime: string; var ODSVerMajor, ODSVerMinor, Pages,
+  PageSize: Integer; var ProcessList: TStringList): Boolean;
 
     function GetIndices(dbIndex: Integer; ATableName: string; PrimaryIndexName: string;
       var List: TStringList): Boolean;
@@ -99,7 +100,6 @@ procedure TdmSysTables.Init(dbIndex: Integer);
 begin
   with fmMain.RegisteredDatabases[dbIndex] do
   begin
-  //  IBConnection.Close;
     sqQuery.Close;
     IBConnection.DatabaseName:= RegRec.DatabaseName;
     IBConnection.UserName:= RegRec.UserName;
@@ -154,7 +154,7 @@ begin
     if TVIndex = 11 then // Users
       sqQuery.SQL.Text:= 'select distinct RDB$User from RDB$USER_PRIVILEGES where RDB$User_Type = 8 order by rdb$User';
 
-
+    // Put the result list as comma delemited string
     sqQuery.Open;
     while not sqQuery.EOF do
     begin
@@ -679,7 +679,7 @@ begin
   sqQuery.Close;
 end;
 
-function TdmSysTables.GetDatabaseInfo(dbIndex: Integer; var DatabaseName, CharSet, CreationDate: string;
+function TdmSysTables.GetDatabaseInfo(dbIndex: Integer; var DatabaseName, CharSet, CreationDate, ServerTime: string;
   var ODSVerMajor, ODSVerMinor, Pages, PageSize: Integer; var ProcessList: TStringList): Boolean;
 begin
   try
@@ -700,6 +700,7 @@ begin
     Pages:= sqQuery.FieldByName('MON$Pages').AsInteger;
     sqQuery.Close;
 
+    // Attached clients
     sqQuery.SQL.Text:= 'select * from MON$ATTACHMENTS';
     if ProcessList = nil then
       ProcessList:= TStringList.Create;
@@ -713,6 +714,12 @@ begin
       Next;
     end;
     sqQuery.Close;
+
+    // Server time
+    sqQuery.SQL.Text:= 'select current_timestamp from RDB$Database';
+    sqQuery.Open;
+    ServerTime:= sqQuery.Fields[0].AsString;
+    sqQuery.Close;
     Result:= True;
 
   except